Changeset 722


Ignore:
Timestamp:
Dec 4, 2009 5:10:55 PM (11 years ago)
Author:
toby
Message:

# on 2003/08/11 19:21:23, toby did:
code cleanup -col -> -column

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/excledt.tcl

    • Property rcs:date changed from 2003/04/10 21:55:15 to 2003/08/11 19:21:23
    • Property rcs:lines changed from +180 -374 to +53 -53
    • Property rcs:rev changed from 1.9 to 1.10
    r666 r722  
    715715    set link excledt.html
    716716    grid [button $box.help -text Help -bg yellow \
    717             -command "MakeWWWHelp $link"] -col 98 -row 0
     717            -command "MakeWWWHelp $link"] -column 98 -row 0
    718718    bind $box <Key-F1> "MakeWWWHelp $link"
    719719
     
    741741    }
    742742    grid [label $box.t -text "Set usable data range, histogram $hst"] \
    743             -col 0 -columnspan 4 -row 0
    744     grid [label $box.lu -text "($unit)"] -col 2 -row 1 -rowspan 2
    745     grid [label $box.lmn -text "$var minimum"] -col 0 -row 1
    746     grid [entry $box.emn -textvariable graph(tmin) -width 10] -col 1 -row 1
    747     grid [label $box.lmx -text "$var maximum"] -col 0 -row 2
    748     grid [entry $box.emx -textvariable graph(tmax) -width 10] -col 1 -row 2
    749     grid [frame $box.c] -col 0 -columnspan 99 -row 99
     743            -column 0 -columnspan 4 -row 0
     744    grid [label $box.lu -text "($unit)"] -column 2 -row 1 -rowspan 2
     745    grid [label $box.lmn -text "$var minimum"] -column 0 -row 1
     746    grid [entry $box.emn -textvariable graph(tmin) -width 10] -column 1 -row 1
     747    grid [label $box.lmx -text "$var maximum"] -column 0 -row 2
     748    grid [entry $box.emx -textvariable graph(tmax) -width 10] -column 1 -row 2
     749    grid [frame $box.c] -column 0 -columnspan 99 -row 99
    750750    grid [button $box.c.1 -text Set -command "destroy $box"\
    751             ] -col 1 -row 0
     751            ] -column 1 -row 0
    752752    grid [button $box.c.2 -text Quit \
    753753            -command "foreach i {min max} {set graph(\$i) {}}; destroy $box" \
    754             ] -col 2 -row 0
     754            ] -column 2 -row 0
    755755    set exclist [histinfo $hst excl]
    756756    set oldtmin [lindex [lindex $exclist 0] 1]
     
    959959    if {$msg != ""} {
    960960        grid [label $box.0 -text $msg -fg red] \
    961                 -col 1 -row 0 -columnspan 99
     961                -column 1 -row 0 -columnspan 99
    962962    }
    963963    if {$graph(xunits) == 1} {
     
    988988    if {$reg == 1} {
    989989        grid [label $box.1 -text "Editing Data Limits ($unit)"] \
    990                 -col 1 -row 1 -columnspan 99
     990                -column 1 -row 1 -columnspan 99
    991991        grid [label $box.2 -text "$beg $var "] \
    992                 -col 1 -row 2
     992                -column 1 -row 2
    993993        grid [entry $box.3 -width 12 -textvariable graph(tmax)] \
    994                 -col 2 -row 2
     994                -column 2 -row 2
    995995    } elseif {$reg == [llength $exclist]} {
    996996        grid [label $box.1 -text "Editing Data Limits ($unit)"] \
    997                 -col 1 -row 1 -columnspan 99
     997                -column 1 -row 1 -columnspan 99
    998998        grid [label $box.2 -text "$end $var "] \
    999                 -col 1 -row 2
     999                -column 1 -row 2
    10001000        grid [entry $box.3 -width 12 -textvariable graph(tmin)] \
    1001                 -col 2 -row 2
     1001                -column 2 -row 2
    10021002    } else {
    10031003        grid [label $box.1 -text "Editing excluded region #$reg in $var ($unit)"] \
    1004                 -col 1 -row 1 -columnspan 99
     1004                -column 1 -row 1 -columnspan 99
    10051005        grid [label $box.2 -text "$beg $var "] \
    1006                 -col 1 -row 2
     1006                -column 1 -row 2
    10071007        grid [entry $box.3 -width 12 -textvariable graph(tmin)] \
    1008                 -col 2 -row 2
     1008                -column 2 -row 2
    10091009        grid [label $box.4 -text "$end $var "] \
    1010                 -col 1 -row 3
     1010                -column 1 -row 3
    10111011        grid [entry $box.5 -width 12 -textvariable graph(tmax)] \
    1012                 -col 2 -row 3
     1012                -column 2 -row 3
    10131013    }
    10141014    # save starting values as tmin & tmax
     
    10171017    }
    10181018    bind $box <Return> "destroy .edit"
    1019     grid [frame $box.c] -col 1 -row 99 -columnspan 99
     1019    grid [frame $box.c] -column 1 -row 99 -columnspan 99
    10201020    grid [button $box.c.1 -text "OK" -command "destroy .edit"] \
    1021             -col 1 -row 1
     1021            -column 1 -row 1
    10221022    grid [button $box.c.2 -text "Cancel" \
    10231023            -command "set graph(tmin) $tmin; set graph(tmax) $tmax;destroy .edit"] \
    1024             -col 2 -row 1
     1024            -column 2 -row 1
    10251025    putontop $box
    10261026    tkwait window $box
     
    11101110        grid [label $top.$col -text "Range:" \
    11111111                    -padx 0 -pady 1 -bd 4] \
    1112                     -row 0 -col $col
     1112                    -row 0 -column $col
    11131113        incr col
    11141114        if {$graph(xunits) == 1} {
     
    11171117                grid [label $top.$col -text "$i\n[format %.4f $v]" \
    11181118                        -padx 3 -pady 1 -bd 2 -relief groove] \
    1119                         -row 0 -col $col -sticky ns
     1119                        -row 0 -column $col -sticky ns
    11201120                incr col
    11211121            }
    11221122            grid [label $top.$col -text "\xc5" \
    11231123                    -padx 0 -pady 1 -bd 4] \
    1124                     -row 0 -col $col -sticky nsw -ipadx 5
     1124                    -row 0 -column $col -sticky nsw -ipadx 5
    11251125            incr col
    11261126            grid [label $top.$col -text "points\n$points" \
    11271127                    -padx 3 -pady 1 -bd 2 -relief groove] \
    1128                     -row 0 -col $col -sticky ns
     1128                    -row 0 -column $col -sticky ns
    11291129            incr col
    11301130        } elseif {$graph(xunits) == 2} {
     
    11321132                    v [lsort -real [toQ [list $start $end] $graph(hst)]] {
    11331133                grid [label $top.$col -text "$i\n[format %.3f $v]" \
    1134                         -padx 3 -pady 1 -bd 2 -relief groove] -row 0 -col $col -sticky ns
     1134                        -padx 3 -pady 1 -bd 2 -relief groove] -row 0 -column $col -sticky ns
    11351135                incr col
    11361136            }
    11371137            grid [label $top.$col -text "\xc5" \
    11381138                    -padx 0 -pady 1] \
    1139                     -row 0 -col $col
     1139                    -row 0 -column $col
    11401140            incr col
    11411141            grid [label $top.$col -text "-1\n" \
    11421142                    -padx 0 -pady 0] \
    1143                     -row 0 -col $col -sticky nsw -ipadx 5
     1143                    -row 0 -column $col -sticky nsw -ipadx 5
    11441144            incr col
    11451145            grid [label $top.$col -text "points\n$points" \
    1146                     -padx 3 -pady 1 -bd 2 -relief groove] -row 0 -col $col -sticky ns
     1146                    -padx 3 -pady 1 -bd 2 -relief groove] -row 0 -column $col -sticky ns
    11471147            incr col
    11481148        } else {
     
    11501150                grid [label $top.$col -text "$i\n[set $i]" \
    11511151                        -padx 3 -pady 1 -bd 2 -relief groove] \
    1152                         -row 0 -col $col -sticky ns
     1152                        -row 0 -column $col -sticky ns
    11531153                incr col
    11541154            }
     
    11561156        grid [button $top.b$col -text "Set" \
    11571157                -command "SetDummyRangeBox $graph(hst) $start $end $step"] \
    1158                 -sticky ns -row 0 -col $col
     1158                -sticky ns -row 0 -column $col
    11591159    } else {
    11601160        $graph(bbox).bl.1 config -text "Excluded\nRegions"
     
    11891189            }
    11901190            grid [button $top.$col -text $lbl -command "EditExclRegion $col" \
    1191                     -padx 1 -pady 1] -row 0 -col $col -sticky  ns
     1191                    -padx 1 -pady 1] -row 0 -column $col -sticky  ns
    11921192        }
    11931193    }
     
    14041404    catch {pack [frame $bb -bd 3 -relief sunken] -side bottom -fill both}
    14051405    grid [label $bb.top -text "Excluded Region Editing"] \
    1406             -col 0 -row 0 -columnspan 4
     1406            -column 0 -row 0 -columnspan 4
    14071407    grid [button $bb.help -text Help -bg yellow \
    14081408            -command "MakeWWWHelp excledt.html"] \
     
    14101410   
    14111411    grid [frame $bb.l -bd 3 -relief groove] \
    1412             -col 0 -row 1 -columnspan 2 -sticky nse
    1413     grid [label $bb.l.1 -text "Mouse click\naction"] -col 0 -row 0
     1412            -column 0 -row 1 -columnspan 2 -sticky nse
     1413    grid [label $bb.l.1 -text "Mouse click\naction"] -column 0 -row 0
    14141414    foreach c {1 2 3} l {zoom "Add\nregion" "Delete\nregion"} {
    14151415        grid [button $graph(bbox).l.b$c -text $l -command "exclEditMode $c $bb"] \
    1416                 -col $c -row 0 -sticky ns
     1416                -column $c -row 0 -sticky ns
    14171417    }
    14181418    exclEditMode 1 $bb
    14191419
    14201420    grid [frame $bb.bl] \
    1421             -col 0 -row 3 -rowspan 2 -sticky nsew
    1422     grid [label $graph(bbox).bl.1 -text "Excluded\nRegions"] -col 0 -row 0
     1421            -column 0 -row 3 -rowspan 2 -sticky nsew
     1422    grid [label $graph(bbox).bl.1 -text "Excluded\nRegions"] -column 0 -row 0
    14231423    grid [canvas [set graph(ExclCanvas) $bb.bc] \
    14241424            -scrollregion {0 0 5000 500} -width 0 -height 0 \
     
    14301430    grid [button $bb.cw -text "Save &\nFinish" \
    14311431            -command "CheckChanges $startchanges;destroy $graph(exclbox)"] \
    1432         -col 4 -row 1 -columnspan 2 -sticky ns
     1432        -column 4 -row 1 -columnspan 2 -sticky ns
    14331433
    14341434    grid columnconfigure $bb 1 -weight 1
     
    15491549    trace variable newhist(tstep) w "ValidateDummyRange $np $hst"
    15501550    pack [frame $np.d1]
    1551     grid [label $np.d1.l1 -text min] -col 1 -row 1
    1552     grid [label $np.d1.l2 -text max] -col 2 -row 1
    1553     grid [label $np.d1.l3 -text step] -col 3 -row 1
    1554     grid [label $np.d1.lu -text ""] -col 4 -row 1 -rowspan 2
    1555     grid [entry $np.d1.e1 -width 10 -textvariable newhist(tmin)] -col 1 -row 2
    1556     grid [entry $np.d1.e2 -width 10 -textvariable newhist(tmax)] -col 2 -row 2
    1557     grid [entry $np.d1.e3 -width 10 -textvariable newhist(tstep)] -col 3 -row 2
    1558     grid [label $np.d1.m1 -anchor w -padx 5] -col 1 -row 3 -sticky ew
    1559     grid [label $np.d1.m2 -anchor w -padx 5] -col 2 -row 3 -sticky ew
     1551    grid [label $np.d1.l1 -text min] -column 1 -row 1
     1552    grid [label $np.d1.l2 -text max] -column 2 -row 1
     1553    grid [label $np.d1.l3 -text step] -column 3 -row 1
     1554    grid [label $np.d1.lu -text ""] -column 4 -row 1 -rowspan 2
     1555    grid [entry $np.d1.e1 -width 10 -textvariable newhist(tmin)] -column 1 -row 2
     1556    grid [entry $np.d1.e2 -width 10 -textvariable newhist(tmax)] -column 2 -row 2
     1557    grid [entry $np.d1.e3 -width 10 -textvariable newhist(tstep)] -column 3 -row 2
     1558    grid [label $np.d1.m1 -anchor w -padx 5] -column 1 -row 3 -sticky ew
     1559    grid [label $np.d1.m2 -anchor w -padx 5] -column 2 -row 3 -sticky ew
    15601560    label $np.dl1 -text "Data range:"
    15611561    label $np.dl2 -text "Allowed"
Note: See TracChangeset for help on using the changeset viewer.