Changeset 326 for trunk/addcmds.tcl


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

# on 2000/10/17 23:59:32, toby did:
correct comments w/r focus

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/addcmds.tcl

    • Property rcs:date changed from 2000/10/12 21:35:45 to 2000/10/17 23:59:32
    • Property rcs:lines changed from +57 -24 to +10 -10
    • Property rcs:rev changed from 1.13 to 1.14
    r321 r326  
    7272    wm title $np "add new phase"
    7373
    74     # grab focus, etc.
     74    # set grab, etc.
    7575    putontop $np
    7676   
    7777    tkwait window $np
    7878   
    79     # fix focus...
     79    # fix grab...
    8080    afterputontop
    8181}
     
    274274    #    for {set i 0} {$i<100} {incr i} {set newhist(set$i) 0}
    275275
    276     # grab focus, etc.
     276    # set grab, etc.
    277277    putontop $np
    278278
    279279    tkwait window $np
    280280
    281     # fix focus...
     281    # fix grab...
    282282    afterputontop
    283283}
     
    778778    wm title $top "add new atom"
    779779
    780     # grab focus, etc.
     780    # set grab, etc.
    781781    putontop $top
    782782
    783783    tkwait window $top
    784784
    785     # fix focus...
     785    # fix grab...
    786786    afterputontop
    787787}
     
    13101310    wm title $top "Replace phase $expgui(curPhase)"
    13111311
    1312     # grab focus, etc.
     1312    # set grab, etc.
    13131313    putontop $top
    13141314
    13151315    tkwait window $top
    13161316
    1317     # fix focus...
     1317    # fix grab...
    13181318    afterputontop
    13191319}
     
    14741474    SetAddAtomsScroll $top
    14751475
    1476     # fix focus...
     1476    # fix grab for old window
    14771477    afterputontop
    1478     # grab focus, etc.
     1478    # set grab, etc.
    14791479    putontop $top
    14801480}
Note: See TracChangeset for help on using the changeset viewer.