Changeset 824 for trunk/orient.tcl


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

# on 2004/10/04 16:21:09, toby did:
remove non-BWidget code

File:
1 edited

Legend:

Unmodified
Added
Removed
  • trunk/orient.tcl

    • Property rcs:date changed from 2002/08/09 16:39:59 to 2004/10/04 16:21:09
    • Property rcs:lines changed from +3 -3 to +6 -10
    • Property rcs:rev changed from 1.7 to 1.8
    r636 r824  
    2121
    2222    # Create a frame on the right side
    23     if $expgui(haveBW) {
    24         pack [TitleFrame $expgui(orientFrame).f1 -bd 4 \
    25                 -text "March-Dollase Preferential Orientation" \
    26                 -relief groove] -fill both -expand true
    27         set PrefOrientBox [$expgui(orientFrame).f1 getframe]
    28     } else {
    29         pack [frame $expgui(orientFrame).f1] -fill both -expand true
    30         set PrefOrientBox $expgui(orientFrame).f1
    31     }
     23    pack [TitleFrame $expgui(orientFrame).f1 -bd 4 \
     24              -text "March-Dollase Preferential Orientation" \
     25              -relief groove] -fill both -expand true
     26    set PrefOrientBox [$expgui(orientFrame).f1 getframe]
     27
    3228    grid columnconfigure $PrefOrientBox 0 -weight 1
    3329    grid rowconfigure $PrefOrientBox 1 -weight 1
Note: See TracChangeset for help on using the changeset viewer.