Changeset 2316 for branches/blt4/gui

Timestamp:

Jul 20, 2011, 8:00:33 PM (13 years ago)

Author:

gah

Message:

 

File:

• branches/blt4/gui/scripts/sidebarframe.tcl (modified) (2 diffs)

branches/blt4/gui/scripts/sidebarframe.tcl

@@ -47 +47 @@
     public method select {which}
     public method pop {what}
-
+    public method width { size } {
+        set _width $size
+    }
     protected method _toggleTab { which }
     protected method _sash {op x}
@@ -206 +208 @@
             Background
     }
-    pack $itk_component(tabs) -side top -expand yes -anchor e -padx {4 0} -fill y
+    pack $itk_component(tabs) -side top -expand yes -anchor e -padx {4 0} \
+        -fill y
 
     eval itk_initialize $args