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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/liveplot_FoxExport.tcl

    • Property rcs:date changed from 2003/05/22 21:35:52 to 2003/08/11 19:21:36
    • Property rcs:rev changed from 1.1 to 1.2
    • Property rcs:lines set to +15 -15
    r692 r723  
    1111
    1212    grid [frame $b.par -bd 2 -relief groove] \
    13             -row [incr row] -col 0 -columnspan 2 -sticky w
     13            -row [incr row] -column 0 -columnspan 2 -sticky w
    1414    grid [label $b.par.1 -text "Dataset name:"] \
    15             -row 0 -col 0
     15            -row 0 -column 0
    1616    global plot expnam hst
    1717    set plot(projname) "$expnam H$hst"
    1818    grid [entry $b.par.2 -textvariable plot(projname) -width 25] \
    19             -row 0 -col 1 -columnspan 3 -sticky w
     19            -row 0 -column 1 -columnspan 3 -sticky w
    2020    if {[catch {set plot(lambda)}]} {set plot(lambda) 0}
    2121    grid [label $b.par.3 -text "wavelength:"] \
    22             -row 1 -col 0
     22            -row 1 -column 0
    2323    grid [entry $b.par.4 -textvariable plot(lambda) -width 9] \
    24             -row 1 -col 1 -sticky w
     24            -row 1 -column 1 -sticky w
    2525   
    2626    grid [label $b.par.5 -text "max:"] \
    27             -row 2 -col 0
     27            -row 2 -column 0
    2828    if {[catch {set plot(sinthmax_type)}]} {set plot(sinthmax_type) 1}
    2929    if {[catch {set plot(sinthmax)}]} {set plot(sinthmax) 10}
    3030    grid [entry $b.par.6 -textvariable plot(sinthmax) -width 9] \
    31             -row 2 -col 1  -sticky w
     31            -row 2 -column 1  -sticky w
    3232    grid [radiobutton $b.par.7 -variable plot(sinthmax_type) \
    3333            -text sin(th)/lam -value 1 \
    3434            -command {set plot(sinthmax) [expr $plot(sinthmax)/6.28]} \
    35             ] -row 2 -col 2
     35            ] -row 2 -column 2
    3636    grid [radiobutton $b.par.8 -variable plot(sinthmax_type) \
    3737            -text Q -value 6.28\
    3838            -command {set plot(sinthmax) [expr $plot(sinthmax)*6.28]} \
    39             ] -row 2 -col 3     
     39            ] -row 2 -column
    4040    grid [label $b.par.9 -text "# of Bkg points:"] \
    41             -row 3 -col 0
     41            -row 3 -column 0
    4242    if {[catch {set plot(nbkg)}]} {set plot(nbkg) 20}
    4343    grid [entry $b.par.10 -textvariable plot(nbkg) -width 3] \
    44             -row 3 -col 1 -sticky w
     44            -row 3 -column 1 -sticky w
    4545    grid [frame $b.bot] \
    46             -row [incr row] -col 0 -columnspan 2 -sticky w
     46            -row [incr row] -column 0 -columnspan 2 -sticky w
    4747    grid columnconfig $b.bot 0 -weight 1
    4848    grid [label $b.bot.note -fg red -text ""] \
    49             -row 0 -col 0 -columnspan 3
     49            -row 0 -column 0 -columnspan 3
    5050    grid [button $b.bot.b1 -text "Write" -command "MakeFoxfile $b"] \
    51             -row 1 -col 0 -sticky w
     51            -row 1 -column 0 -sticky w
    5252    grid [button $b.bot.b2 -text "Close" -command "destroy $b"] \
    53             -row 1 -col 1 -sticky w
     53            -row 1 -column 1 -sticky w
    5454}
    5555
Note: See TracChangeset for help on using the changeset viewer.