Changeset 32


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

# on 1999/01/20 20:19:58, toby did:
change labels on .EXP select menu

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 1999/01/20 19:27:48 to 1999/01/20 20:19:58
    • Property rcs:lines changed from +283 -104 to +11 -2
    • Property rcs:rev changed from 1.3 to 1.4
    r29 r32  
    600600    pack [radiobutton $frmC.0 -text "Mod. Date" -value 0 \
    601601            -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
    602     pack [button $frmC.b -text Open \
     602    pack [button $frmC.b -text Read \
    603603            -command "valid_exp_file $frmA $mode"] -side top
     604    if {$mode == "new"} {
     605        $frmC.b config -text Save
     606    }
    604607    pack [button $frmC.q -text Quit \
    605608            -command "set expgui(FileMenuEXPNAM) {}; destroy $frm"] -side top
    606609    bind $frm <Return> "$frmC.b invoke"
    607610
    608     pack [label $frmA.0 -text "Enter an experiment file"] -side top -anchor center
     611    if {$mode == "new"} {
     612        pack [label $frmA.0 -text "Enter an experiment file to create"] \
     613                -side top -anchor center
     614    } else {
     615        pack [label $frmA.0 -text "Select an experiment file to read"] \
     616                -side top -anchor center
     617    }
    609618    expfilebox $frmA $mode
    610619    # force the window to stay on top
Note: See TracChangeset for help on using the changeset viewer.