Changeset 731

Timestamp:

Dec 4, 2009 5:11:04 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/gsascmds.tcl (modified) (2 diffs, 3 props)

trunk/gsascmds.tcl

@@ -1958 +1958 @@
 # to set sizes after gridding the boxes
 proc MakeScrollTable {box} {
-    grid [label $box.0] -col 0 -row 0
+    grid [label $box.0] -column 0 -row 0
     grid [set tbox [canvas $box.top \
             -scrollregion {0 0 10 10} \
@@ -2066 +2066 @@
         incr row
 #       if {[string range $expmap(htype_$i) 0 0] == "P"} {
-            grid [checkbutton $sbox.$i -text $i -variable expgui(useflag_$i)] -row $row -col 0 
+            grid [checkbutton $sbox.$i -text $i -variable expgui(useflag_$i)] -row $row -column 0 
             set expgui(useflag_$i) [histinfo $i use]
 #       }
         grid [label $bbox.0$i \
                 -text [string range $expmap(htype_$i) 0 3] \
-                ] -row $row -col 0 -padx $px
+                ] -row $row -column 0 -padx $px
         grid [label $bbox.1$i -text [histinfo $i bank] \
-                ] -row $row -col 1 -padx $px
-        grid [label $bbox.2$i -text $det] -row $row -col 2 -padx $px
+                ] -row $row -column 1 -padx $px
+        grid [label $bbox.2$i -text $det] -row $row -column 2 -padx $px
         grid [label $bbox.3$i -text [string range [histinfo $i title] 0 66] \
-                ] -row $row -col 3 -padx $px -sticky ew
-    }
-    grid [label $tbox.0 -text type -bd 2 -relief raised] -row 0 -col 0 -padx $px
-    grid [label $tbox.1 -text bank -bd 2 -relief raised] -row 0 -col 1 -padx $px
-    grid [label $tbox.2 -text "ang/wave" -bd 2 -relief raised] -row 0 -col 2 -padx $px
-    grid [label $tbox.3 -text "histogram title" -bd 2 -relief raised] -row 0 -col 3 -sticky w -padx $px
+                ] -row $row -column 3 -padx $px -sticky ew
+    }
+    grid [label $tbox.0 -text type -bd 2 -relief raised] -row 0 -column 0 -padx $px
+    grid [label $tbox.1 -text bank -bd 2 -relief raised] -row 0 -column 1 -padx $px
+    grid [label $tbox.2 -text "ang/wave" -bd 2 -relief raised] -row 0 -column 2 -padx $px
+    grid [label $tbox.3 -text "histogram title" -bd 2 -relief raised] -row 0 -column 3 -sticky w -padx $px
     ResizeScrollTable $box.a
     InitHistUseFlags