Changeset 731


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/gsascmds.tcl

    • Property rcs:date changed from 2003/05/22 21:43:32 to 2003/08/11 19:28:54
    • Property rcs:lines changed from +20 -6 to +11 -11
    • Property rcs:rev changed from 1.50 to 1.51
    r701 r731  
    19581958# to set sizes after gridding the boxes
    19591959proc MakeScrollTable {box} {
    1960     grid [label $box.0] -col 0 -row 0
     1960    grid [label $box.0] -column 0 -row 0
    19611961    grid [set tbox [canvas $box.top \
    19621962            -scrollregion {0 0 10 10} \
     
    20662066        incr row
    20672067#       if {[string range $expmap(htype_$i) 0 0] == "P"} {
    2068             grid [checkbutton $sbox.$i -text $i -variable expgui(useflag_$i)] -row $row -col 0
     2068            grid [checkbutton $sbox.$i -text $i -variable expgui(useflag_$i)] -row $row -column 0
    20692069            set expgui(useflag_$i) [histinfo $i use]
    20702070#       }
    20712071        grid [label $bbox.0$i \
    20722072                -text [string range $expmap(htype_$i) 0 3] \
    2073                 ] -row $row -col 0 -padx $px
     2073                ] -row $row -column 0 -padx $px
    20742074        grid [label $bbox.1$i -text [histinfo $i bank] \
    2075                 ] -row $row -col 1 -padx $px
    2076         grid [label $bbox.2$i -text $det] -row $row -col 2 -padx $px
     2075                ] -row $row -column 1 -padx $px
     2076        grid [label $bbox.2$i -text $det] -row $row -column 2 -padx $px
    20772077        grid [label $bbox.3$i -text [string range [histinfo $i title] 0 66] \
    2078                 ] -row $row -col 3 -padx $px -sticky ew
    2079     }
    2080     grid [label $tbox.0 -text type -bd 2 -relief raised] -row 0 -col 0 -padx $px
    2081     grid [label $tbox.1 -text bank -bd 2 -relief raised] -row 0 -col 1 -padx $px
    2082     grid [label $tbox.2 -text "ang/wave" -bd 2 -relief raised] -row 0 -col 2 -padx $px
    2083     grid [label $tbox.3 -text "histogram title" -bd 2 -relief raised] -row 0 -col 3 -sticky w -padx $px
     2078                ] -row $row -column 3 -padx $px -sticky ew
     2079    }
     2080    grid [label $tbox.0 -text type -bd 2 -relief raised] -row 0 -column 0 -padx $px
     2081    grid [label $tbox.1 -text bank -bd 2 -relief raised] -row 0 -column 1 -padx $px
     2082    grid [label $tbox.2 -text "ang/wave" -bd 2 -relief raised] -row 0 -column 2 -padx $px
     2083    grid [label $tbox.3 -text "histogram title" -bd 2 -relief raised] -row 0 -column 3 -sticky w -padx $px
    20842084    ResizeScrollTable $box.a
    20852085    InitHistUseFlags
Note: See TracChangeset for help on using the changeset viewer.