Changeset 32 for trunk/gsascmds.tcl

Timestamp:

Dec 4, 2009 4:59:14 PM (13 years ago)

Author:

toby

Message:

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

File:

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

trunk/gsascmds.tcl

@@ -600 +600 @@
     pack [radiobutton $frmC.0 -text "Mod. Date" -value 0 \
             -variable expgui(filesort) -command "ChooseExpFil $frmA"] -side top
-    pack [button $frmC.b -text Open \
+    pack [button $frmC.b -text Read \
             -command "valid_exp_file $frmA $mode"] -side top
+    if {$mode == "new"} {
+        $frmC.b config -text Save
+    }
     pack [button $frmC.q -text Quit \
             -command "set expgui(FileMenuEXPNAM) {}; destroy $frm"] -side top
     bind $frm <Return> "$frmC.b invoke"
 
-    pack [label $frmA.0 -text "Enter an experiment file"] -side top -anchor center
+    if {$mode == "new"} {
+        pack [label $frmA.0 -text "Enter an experiment file to create"] \
+                -side top -anchor center
+    } else {
+        pack [label $frmA.0 -text "Select an experiment file to read"] \
+                -side top -anchor center
+    }
     expfilebox $frmA $mode
     # force the window to stay on top