Changeset 824

Timestamp:

Dec 4, 2009 5:12:40 PM (14 years ago)

Author:

toby

Message:

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

File:

• trunk/orient.tcl (modified) (1 diff, 3 props)

trunk/orient.tcl

@@ -21 +21 @@
 
     # Create a frame on the right side
-    if $expgui(haveBW) {
-        pack [TitleFrame $expgui(orientFrame).f1 -bd 4 \
-                -text "March-Dollase Preferential Orientation" \
-                -relief groove] -fill both -expand true
-        set PrefOrientBox [$expgui(orientFrame).f1 getframe]
-    } else {
-        pack [frame $expgui(orientFrame).f1] -fill both -expand true
-        set PrefOrientBox $expgui(orientFrame).f1
-    }
+    pack [TitleFrame $expgui(orientFrame).f1 -bd 4 \
+              -text "March-Dollase Preferential Orientation" \
+              -relief groove] -fill both -expand true
+    set PrefOrientBox [$expgui(orientFrame).f1 getframe]
+
     grid columnconfigure $PrefOrientBox 0 -weight 1
     grid rowconfigure $PrefOrientBox 1 -weight 1