- Timestamp:
- Dec 4, 2009 5:12:56 PM (13 years ago)
- 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 2 2 # Pamela Whitfield & Brian Toby 3 3 # a GUI for March-Dollase preferred orientation 4 # revised labeling as per egbert.keller@krist.uni-freiburg.de (msg of 12/13/02) 4 5 5 6 proc MakeOrientPane {} { … … 103 104 set naxis [hapinfo $hist $phase POnaxis] 104 105 set col 0 105 foreach var {h k l} lbl { u v w} {106 foreach var {h k l} lbl {h k l} { 106 107 grid [label $pOrientf1.l${var}$row -text $lbl \ 107 108 -anchor center] \ … … 133 134 incr row 134 135 set col -1 135 grid [label $pOrientf1.axis$row -text " axis$axis"\136 grid [label $pOrientf1.axis$row -text "Plane $axis"\ 136 137 -anchor center ] \ 137 138 -column [incr col] -row $row … … 171 172 -column 15 -row $row -sticky e 172 173 } 173 grid [button $pOrientf1.add$row -text "Add axis" \174 grid [button $pOrientf1.add$row -text "Add plane" \ 174 175 -command "AddNewPOaxis $hist $phase"] \ 175 176 -column 0 -columnspan 4 -row [incr row] -sticky nws
Note: See TracChangeset
for help on using the changeset viewer.