Changeset 729

Timestamp:

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

Author:

toby

Message:

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

File:

• trunk/cifselect.tcl (modified) (11 diffs, 3 props)

trunk/cifselect.tcl

@@ -92 +92 @@
     # overall heading
     grid [frame $frame.head] \
-            -row 0 -col 0 -columnspan 99 -sticky ew
+            -row 0 -column 0 -columnspan 99 -sticky ew
     grid [label $frame.head.l -textvariable CIFselect(boxhead)\
             -anchor center] \
-            -row 0 -col 0 -sticky ew
+            -row 0 -column 0 -sticky ew
     set CIFselect(boxhead) "Select an atom for distance and angle display"
     grid columnconfigure $frame.head 0 -weight 1 -pad 10
@@ -119 +119 @@
             "Distances and angles around atom [labelatom $phase $atom]"
 
-    grid [frame $frame.a] -row 1 -col 0 -columnspan 99
+    grid [frame $frame.a] -row 1 -column 0 -columnspan 99
     foreach {tbox bbox sbox cbox} [MakeScrollTable $frame.a] {}
     [winfo parent $bbox] config -width 550 -height 300
@@ -126 +126 @@
     set row 0
     grid [label $tbox.$row-2 -text distance \
-                -width $width] -row $row -col 2
+                -width $width] -row $row -column 2
     set col 3
     foreach l $alist {
@@ -133 +133 @@
         incr col 
         grid [label $tbox.$row-$col -text [labelatom $phase $l] \
-                -width $width] -row $row -col $col
+                -width $width] -row $row -column $col
         incr col
     }
@@ -144 +144 @@
         set col 0
         grid [label $sbox.$row-l -text [labelatom $phase $l]] \
-                -row $row -col $col
+                -row $row -column $col
         incr col 2
         set dist [eval formatSU $disarr(${phase}P${atom}:$l)]
         grid [label $bbox.$row-d -text $dist -width $width] \
-                -row $row -col $col -sticky ew
+                -row $row -column $col -sticky ew
         ColorWidget $bbox.$row-d $disflag(${phase}P${atom}:$l)
         set widget($bbox.$row-d) ${phase}P${atom}:$l
@@ -166 +166 @@
                 incr col 2
                 grid [label $bbox.$row-$col -text $atxt -width $width] \
-                        -row $row -col $col -sticky ew
+                        -row $row -column $col -sticky ew
                 ColorWidget $bbox.$row-$col $angflag($index)
                 set widget($bbox.$row-$col) $index
@@ -180 +180 @@
         set col 0
         grid [label $sbox.$row-l -text [labelatom $phase $l]] \
-                -row $row -col $col
+                -row $row -column $col
         set dist [eval formatSU $disarr(${phase}P${atom}:$l)]
         incr col 2
         grid [label $bbox.$row-d -text $dist -width $width] \
-                -row $row -col $col -sticky ew
+                -row $row -column $col -sticky ew
         ColorWidget $bbox.$row-d $disflag(${phase}P${atom}:$l)
         set widget($bbox.$row-d) ${phase}P${atom}:$l
@@ -530 +530 @@
     bind $top <Key-F1> "MakeWWWHelp gsas2cif.html cifselect"
 
-    grid [frame $top.mode -bd 4 -relief groove] -row 1 -col 1 -sticky news
+    grid [frame $top.mode -bd 4 -relief groove] -row 1 -column 1 -sticky news
     grid [label $top.mode.l -text "Response to Mouse click:"] \
-            -row 1 -col 0 -columnspan 99 
+            -row 1 -column 0 -columnspan 99 
     set col 1
     foreach val {Toggle Set Clear} {
         grid [radiobutton $top.mode.r$col -text $val \
                 -variable CIFselect(click) \
-                -value [string tolower $val]] -row 2 -col $col
+                -value [string tolower $val]] -row 2 -column $col
         incr col
     }
     
-    grid [frame $top.sel -bd 4 -relief groove] -row 2 -col 1 -sticky news
+    grid [frame $top.sel -bd 4 -relief groove] -row 2 -column 1 -sticky news
     grid [label $top.sel.l -text "Distance selection: select matching angles?"] \
-            -row 1 -col 1 -columnspan 3
+            -row 1 -column 1 -columnspan 3
     set col 1
     foreach val {Yes No} {
         grid [radiobutton $top.sel.r$col -text $val \
                 -variable CIFselect(select) \
-                -value [string tolower $val]] -row 2 -col $col
+                -value [string tolower $val]] -row 2 -column $col
         incr col
     }
     
-    grid [frame $top.ph -bd 4 -relief groove] -row 1 -col 0 -sticky news
-    grid [label $top.ph.h -text "Select phase"] -row 1 -col 0 -columnspan 99
+    grid [frame $top.ph -bd 4 -relief groove] -row 1 -column 0 -sticky news
+    grid [label $top.ph.h -text "Select phase"] -row 1 -column 0 -columnspan 99
     set col 0
     foreach phase $expmap(phaselist) {
@@ -559 +559 @@
                 -variable CIFselect(phase) \
                 -command SelectPhase \
-                -value $phase] -row 2 -col $col
+                -value $phase] -row 2 -column $col
         incr col
     }
@@ -566 +566 @@
 
     grid [frame $top.atom -bd 4 -relief groove] \
-            -row 2 -rowspan 2 -col 0 -sticky news
-    grid [label $top.atom.h -text "Select atom"] -row 1 -col 0 -columnspan 99
+            -row 2 -rowspan 2 -column 0 -sticky news
+    grid [label $top.atom.h -text "Select atom"] -row 1 -column 0 -columnspan 99
     set CIFselect(atomlist) $top.atom.lbox
     grid columnconfigure $top.atom 0 -weight 1
@@ -578 +578 @@
     bind $top.atom.lbox <<ListboxSelect>> SelectAtom
     
-    grid [frame $top.bt] -row 3 -col 1 -sticky news
+    grid [frame $top.bt] -row 3 -column 1 -sticky news
     button $top.bt.save -command "SaveFlags $expnam" -text Save
     button $top.bt.export -command ExportDistAngMatrix -text "Export Tables"