Changeset 237 for trunk/addcmds.tcl


Ignore:
Timestamp:
Dec 4, 2009 5:02:41 PM (14 years ago)
Author:
toby
Message:

# on 2000/07/20 22:12:18, toby did:
select new phase after a phase is added

File:
1 edited

Legend:

Unmodified
Added
Removed

  • trunk/addcmds.tcl

    • Property rcs:date changed from 2000/07/06 21:31:38 to 2000/07/20 22:12:18
    • Property rcs:lines changed from +34 -9 to +4 -2
    • Property rcs:rev changed from 1.8 to 1.9
    r232 r237  
    6161
    6262proc addphase {np} {
    63     global expgui
     63    global expgui expmap
    6464    # validate the input
    6565    set err {}
    … …  
    175175                 $errmsg
    176176    file delete exptool.in exptool.out
     177    # now select the new phase
     178    SelectOnePhase [lindex $expmap(phaselist) end]   
    177179}
    178180
Note: See TracChangeset for help on using the changeset viewer.