Changeset 927


Ignore:
Timestamp:
Dec 4, 2009 5:14:27 PM (11 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:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2008/07/14 01:27:23 to 2008/07/14 13:22:34
    • Property rcs:lines changed from +2 -2 to +11 -8
    • Property rcs:rev changed from 1.17 to 1.18
    r925 r927  
    364364            -from 0.1 -to 3 -resolution 0.05] -side top
    365365    pack [frame $box.a] -side bottom
    366     pack [button $box.a.1 -text "Apply" -command "setsymopts $sym"] -side left
    367     pack [button $box.a.2 -text "Close" -command "destroy $box"] -side left
     366    pack [button $box.a.1 -text Change -command "setsymopts $sym"] -side left
     367    pack [button $box.a.2 -text Cancel -command "destroy $box"] -side left
    368368}
    369369proc setsymopts {sym} {
     
    753753    grid [entry $box.emx -textvariable graph(tmax) -width 10] -column 1 -row 2
    754754    grid [frame $box.c] -column 0 -columnspan 99 -row 99
    755     grid [button $box.c.1 -text Set -command "destroy $box"\
     755    grid [button $box.c.1 -text Change -command "destroy $box"\
    756756            ] -column 1 -row 0
    757     grid [button $box.c.2 -text Quit \
     757    grid [button $box.c.2 -text Cancel \
    758758            -command "foreach i {min max} {set graph(\$i) {}}; destroy $box" \
    759759            ] -column 2 -row 0
     
    11641164            }
    11651165        }
    1166         grid [button $top.b$col -text "Set" \
     1166        grid [button $top.b$col -text Continue \
    11671167                -command "SetDummyRangeBox $graph(hst) $start $end $step"] \
    11681168                -sticky ns -row 0 -column $col
     
    15701570    #afterputontop
    15711571    wm deiconify .
    1572     bind all <Control-c> catchQuit
     1572    if {$::tcl_platform(platform) != "windows"} {
     1573        bind all <Control-c> catchQuit
     1574    }
     1575
    15731576    # reset the number of cycles if they have changed
    15741577    if {$cycsav != [expinfo cycles]} {
     
    16151618    label $np.dl3 -text "\n" -justify left -fg blue
    16161619    grid [frame $np.f6] -column 0 -row 99 -columnspan 5 -sticky ew
    1617     grid [button $np.f6.b6a -text Set \
     1620    grid [button $np.f6.b6a -text Change \
    16181621            -command "SetDummyRange $np $hst"] -column 0 -row 0
    16191622    bind $np <Return> "SetDummyRange $np $hst"
Note: See TracChangeset for help on using the changeset viewer.