Changeset 102


Ignore:
Timestamp:
Dec 4, 2009 5:00:26 PM (11 years ago)
Author:
toby
Message:

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 1999/07/22 20:07:37 to 1999/09/09 19:08:11
    • Property rcs:lines changed from +2 -2 to +13 -17
    • Property rcs:rev changed from 1.13 to 1.14
    r98 r102  
    506506    update
    507507    tkwait variable infile(done)
    508     catch {focus $oldFocus}
    509     if {$oldGrab != ""} {
    510         if {$grabStatus == "global"} {
    511             grab -global $oldGrab
    512         } else {
    513             grab $oldGrab
    514         }
    515     }
    516508    destroy $frm
    517509    afterputontop
     
    12181210    global makenew
    12191211    set makenew(OldFocus) [focus]
    1220     set makenew(OldGrab) [grab current $w]
    1221     if {$makenew(OldGrab) != ""} {
    1222         set makenew(GrabStatus) [grab status $makenew(OldGrab)]
    1223     }
    1224     grab $w
     1212    catch {
     1213        set makenew(OldGrab) [grab current $w]
     1214        if {$makenew(OldGrab) != ""} {
     1215            set makenew(GrabStatus) [grab status $makenew(OldGrab)]
     1216        }
     1217        grab $w
     1218    }
    12251219}
    12261220
     
    12301224    catch {focus $makenew(OldFocus)}
    12311225    if {$makenew(OldGrab) != ""} {
    1232         if {$makenew(GrabStatus) == "global"} {
    1233             grab -global $makenew(OldGrab)
    1234         } else {
    1235             grab $makenew(OldGrab)
     1226        catch {
     1227            if {$makenew(GrabStatus) == "global"} {
     1228                grab -global $makenew(OldGrab)
     1229            } else {
     1230                grab $makenew(OldGrab)
     1231            }
    12361232        }
    12371233    }
Note: See TracChangeset for help on using the changeset viewer.