Changeset 822 for trunk/odf.tcl


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

# on 2004/10/04 16:11:47, toby did:
BWidget is now required

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  
    120120proc MakeODFPane {} {
    121121    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]
    134126
    135127    grid [frame  $expgui(odfFrameTop).ps] -column 0 -row 0 -sticky w
     
    203195    tk_optionMenu $ordframe.om entryvar(ODFdampC) 0 1 2 3 4 5 6 7 8 9
    204196    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]
    217201
    218202    set expgui(odfFrameCanvas) $canvasfr.canvas
Note: See TracChangeset for help on using the changeset viewer.