Changeset 840 for trunk/orient.tcl


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

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

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/orient.tcl

    • Property rcs:date changed from 2004/10/04 16:21:09 to 2005/03/24 21:53:50
    • Property rcs:lines changed from +6 -10 to +5 -4
    • Property rcs:rev changed from 1.8 to 1.9
    r824 r840  
    22# Pamela Whitfield & Brian Toby
    33# a GUI for March-Dollase preferred orientation
     4# revised labeling as per egbert.keller@krist.uni-freiburg.de (msg of 12/13/02)
    45
    56proc MakeOrientPane {} {
     
    103104            set naxis [hapinfo $hist $phase POnaxis]
    104105            set col 0
    105             foreach var {h k l} lbl {u v w} {
     106            foreach var {h k l} lbl {h k l} {
    106107                grid [label $pOrientf1.l${var}$row -text $lbl \
    107108                        -anchor center] \
     
    133134                incr row
    134135                set col -1
    135                 grid [label $pOrientf1.axis$row -text "axis $axis"\
     136                grid [label $pOrientf1.axis$row -text "Plane $axis"\
    136137                        -anchor center ] \
    137138                        -column [incr col] -row $row
     
    171172                        -column 15 -row $row -sticky e
    172173            }
    173             grid [button $pOrientf1.add$row -text "Add axis" \
     174            grid [button $pOrientf1.add$row -text "Add plane" \
    174175                    -command "AddNewPOaxis $hist $phase"] \
    175176                    -column 0 -columnspan 4 -row [incr row] -sticky nws
Note: See TracChangeset for help on using the changeset viewer.