Changeset 927

Timestamp:

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

Author:

toby

Message:

# on 2008/07/14 13:22:34, toby did:
minor cleanups -- change some button labels to be more conventional
remove ^{C binding for windows}

File:

• trunk/excledt.tcl (modified) (5 diffs, 3 props)

trunk/excledt.tcl

@@ -364 +364 @@
             -from 0.1 -to 3 -resolution 0.05] -side top
     pack [frame $box.a] -side bottom
-    pack [button $box.a.1 -text "Apply" -command "setsymopts $sym"] -side left
-    pack [button $box.a.2 -text "Close" -command "destroy $box"] -side left
+    pack [button $box.a.1 -text Change -command "setsymopts $sym"] -side left
+    pack [button $box.a.2 -text Cancel -command "destroy $box"] -side left
 }
 proc setsymopts {sym} {
@@ -753 +753 @@
     grid [entry $box.emx -textvariable graph(tmax) -width 10] -column 1 -row 2
     grid [frame $box.c] -column 0 -columnspan 99 -row 99
-    grid [button $box.c.1 -text Set -command "destroy $box"\
+    grid [button $box.c.1 -text Change -command "destroy $box"\
             ] -column 1 -row 0
-    grid [button $box.c.2 -text Quit \
+    grid [button $box.c.2 -text Cancel \
             -command "foreach i {min max} {set graph(\$i) {}}; destroy $box" \
             ] -column 2 -row 0
@@ -1164 +1164 @@
             }
         }
-        grid [button $top.b$col -text "Set" \
+        grid [button $top.b$col -text Continue \
                 -command "SetDummyRangeBox $graph(hst) $start $end $step"] \
                 -sticky ns -row 0 -column $col
@@ -1570 +1570 @@
     #afterputontop
     wm deiconify .
-    bind all <Control-c> catchQuit
+    if {$::tcl_platform(platform) != "windows"} {
+        bind all <Control-c> catchQuit
+    }
+
     # reset the number of cycles if they have changed
     if {$cycsav != [expinfo cycles]} {
@@ -1615 +1618 @@
     label $np.dl3 -text "\n" -justify left -fg blue
     grid [frame $np.f6] -column 0 -row 99 -columnspan 5 -sticky ew 
-    grid [button $np.f6.b6a -text Set \
+    grid [button $np.f6.b6a -text Change \
             -command "SetDummyRange $np $hst"] -column 0 -row 0
     bind $np <Return> "SetDummyRange $np $hst"