Changeset 102 for trunk

Timestamp:

Dec 4, 2009 5:00:26 PM (14 years ago)

Author:

toby

Message:

# on 1999/09/09 19:08:11, toby did:
hide grab fail error messages
,

File:

• trunk/gsascmds.tcl (modified) (3 diffs, 3 props)

trunk/gsascmds.tcl

@@ -506 +506 @@
     update
     tkwait variable infile(done)
-    catch {focus $oldFocus}
-    if {$oldGrab != ""} {
-        if {$grabStatus == "global"} {
-            grab -global $oldGrab
-        } else {
-            grab $oldGrab
-        }
-    }
     destroy $frm
     afterputontop
@@ -1218 +1210 @@
     global makenew
     set makenew(OldFocus) [focus]
-    set makenew(OldGrab) [grab current $w]
-    if {$makenew(OldGrab) != ""} {
-        set makenew(GrabStatus) [grab status $makenew(OldGrab)]
-    }
-    grab $w
+    catch {
+        set makenew(OldGrab) [grab current $w]
+        if {$makenew(OldGrab) != ""} {
+            set makenew(GrabStatus) [grab status $makenew(OldGrab)]
+        }
+        grab $w
+    }
 }
 
@@ -1230 +1224 @@
     catch {focus $makenew(OldFocus)}
     if {$makenew(OldGrab) != ""} {
-        if {$makenew(GrabStatus) == "global"} {
-            grab -global $makenew(OldGrab)
-        } else {
-            grab $makenew(OldGrab)
+        catch {
+            if {$makenew(GrabStatus) == "global"} {
+                grab -global $makenew(OldGrab)
+            } else {
+                grab $makenew(OldGrab)
+            }
         }
     }