From f7b28676027f22919e57ce751316250d20e249d1 Mon Sep 17 00:00:00 2001
From: cas <cas@opencascade.com>
Date: Wed, 20 Dec 2000 12:17:30 +0000
Subject: [PATCH] No comments

---
 src/WOKTclLib/wokQUE.tcl |  5 +++++
 src/WOKTclLib/wokRPR.tcl | 13 ++++++++++---
 2 files changed, 15 insertions(+), 3 deletions(-)

diff --git a/src/WOKTclLib/wokQUE.tcl b/src/WOKTclLib/wokQUE.tcl
index 4cf86c5..b06b2ce 100755
--- a/src/WOKTclLib/wokQUE.tcl
+++ b/src/WOKTclLib/wokQUE.tcl
@@ -21,6 +21,10 @@ proc wokWaffQueue { {loc {}} } {
 	return 
     }
     
+    if { [wokStore:Report:SetQName $curwb] == {} } {
+	return
+    }
+
     toplevel $w
     wm title $w "Integration Queue of $curwb"
     wm geometry $w 742x970+515+2
@@ -95,6 +99,7 @@ proc wokWaffQueue { {loc {}} } {
     tixForm $w.journal -top $w.file -left $w.reports -right -2
     tixForm $w.top -top $w.reports  -left 2 -right  %99 -bottom $w.lab 
     tixForm $w.lab -left 2 -right %99  -bottom %99
+
     
     set IWOK_WINDOWS($w,menu)        $w.file.m
     set IWOK_WINDOWS($w,label)       $w.lab
diff --git a/src/WOKTclLib/wokRPR.tcl b/src/WOKTclLib/wokRPR.tcl
index 6f9c431..d10c04e 100755
--- a/src/WOKTclLib/wokRPR.tcl
+++ b/src/WOKTclLib/wokRPR.tcl
@@ -14,7 +14,9 @@ proc wokUpdateRepository { {loc {}} } {
     }
     set fact [wokinfo -f $verrue]
     set shop [wokinfo -s $verrue]
-    set type [wokIntegre:BASE:InitFunc]
+    set curwb [wokinfo -w $verrue]
+
+   
 
     set w [wokTPL rpr${verrue}]
     if [winfo exists $w ] {
@@ -23,11 +25,16 @@ proc wokUpdateRepository { {loc {}} } {
 	return 
     }
 
+    if { [wokStore:Report:SetQName $curwb] == {} } {
+	return
+    }
+    
+    set type [wokIntegre:BASE:InitFunc]
+
     toplevel    $w
-    wm title    $w "Repository of $shop ."
+    wm title    $w "Repository of $curwb ."
     wm geometry $w 1124x658+135+92
     wokButton setw [list Rpr_close $w]
-    ;#bind $w <Destroy> { if [winfo exists %W] {wokRPRExit %W}}
 
     tixBusy $w on
     update
-- 
2.39.5