- Timestamp:
- Dec 4, 2009 5:12:38 PM (13 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/odf.tcl
- Property rcs:date changed from 2003/05/27 16:09:07 to 2004/10/04 16:11:47
- Property rcs:lines changed from +12 -1 to +9 -25
- Property rcs:rev changed from 1.6 to 1.7
r713 r822 120 120 proc MakeODFPane {} { 121 121 global expgui entryvar entrycmd entrybox 122 if $expgui(haveBW) { 123 pack [TitleFrame $expgui(odfFrame).f1 -bd 4 \ 124 -text "Spherical Harmonic (ODF) Preferential Orientation" \ 125 -relief groove] -side top -expand yes -fill x -anchor n 126 set expgui(odfFrameTop) [$expgui(odfFrame).f1 getframe] 127 } else { 128 pack [label $expgui(odfFrame).f0 \ 129 -text "Spherical Harmonic (ODF) Preferential Orientation"] \ 130 -side top -expand yes -fill x -anchor n 131 set expgui(odfFrameTop) [frame $expgui(odfFrame).top] 132 grid $expgui(odfFrameTop) -side top -expand yes -fill x -anchor n 133 } 122 pack [TitleFrame $expgui(odfFrame).f1 -bd 4 \ 123 -text "Spherical Harmonic (ODF) Preferential Orientation" \ 124 -relief groove] -side top -expand yes -fill x -anchor n 125 set expgui(odfFrameTop) [$expgui(odfFrame).f1 getframe] 134 126 135 127 grid [frame $expgui(odfFrameTop).ps] -column 0 -row 0 -sticky w … … 203 195 tk_optionMenu $ordframe.om entryvar(ODFdampC) 0 1 2 3 4 5 6 7 8 9 204 196 grid $ordframe.om -column [incr col] -row $row 205 if $expgui(haveBW) { 206 pack [TitleFrame $expgui(odfFrame).f2 -bd 4 \ 207 -text "Spherical Harmonic Terms: (l,m,n) & coeff's" \ 208 -relief groove] -side top -fill both -expand yes -anchor n 209 set canvasfr [$expgui(odfFrame).f2 getframe] 210 } else { 211 set canvasfr [frame $expgui(odfFrame).f3 -bd 4 -relief groove] 212 pack $canvasfr -side top -expand yes -fill both -anchor n 213 grid [label $canvasfr.l \ 214 -text "Spherical Harmonic Terms: (l,m,n) & coeff's"] \ 215 -sticky news -row 0 -column 0 216 } 197 pack [TitleFrame $expgui(odfFrame).f2 -bd 4 \ 198 -text "Spherical Harmonic Terms: (l,m,n) & coeff's" \ 199 -relief groove] -side top -fill both -expand yes -anchor n 200 set canvasfr [$expgui(odfFrame).f2 getframe] 217 201 218 202 set expgui(odfFrameCanvas) $canvasfr.canvas
Note: See TracChangeset
for help on using the changeset viewer.