Changeset 840 for trunk

Timestamp:

Dec 4, 2009 5:12:56 PM (13 years ago)

Author:

toby

Message:

# on 2005/03/24 21:53:50, toby did:
change designation of preferred direction

File:

• trunk/orient.tcl (modified) (4 diffs, 3 props)

trunk/orient.tcl

@@ -2 +2 @@
 # Pamela Whitfield & Brian Toby
 # a GUI for March-Dollase preferred orientation
+# revised labeling as per egbert.keller@krist.uni-freiburg.de (msg of 12/13/02)
 
 proc MakeOrientPane {} {
@@ -103 +104 @@
             set naxis [hapinfo $hist $phase POnaxis]
             set col 0
-            foreach var {h k l} lbl {u v w} {
+            foreach var {h k l} lbl {h k l} {
                 grid [label $pOrientf1.l${var}$row -text $lbl \
                         -anchor center] \
@@ -133 +134 @@
                 incr row
                 set col -1
-                grid [label $pOrientf1.axis$row -text "axis $axis"\
+                grid [label $pOrientf1.axis$row -text "Plane $axis"\
                         -anchor center ] \
                         -column [incr col] -row $row
@@ -171 +172 @@
                         -column 15 -row $row -sticky e
             }
-            grid [button $pOrientf1.add$row -text "Add axis" \
+            grid [button $pOrientf1.add$row -text "Add plane" \
                     -command "AddNewPOaxis $hist $phase"] \
                     -column 0 -columnspan 4 -row [incr row] -sticky nws