Changeset 1764 for branches/blt4/gui/scripts/sidebarframe.tcl

Timestamp:

Jun 16, 2010 4:42:43 PM (14 years ago)

Author:

gah

Message:

 

File:

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

branches/blt4/gui/scripts/sidebarframe.tcl

@@ -166 +166 @@
     #
     itk_component add area {
-        blt::scrollset $itk_component(sidebar).area \
-            -xscrollbar $itk_component(sidebar).area.xs \
-            -yscrollbar $itk_component(sidebar).area.ys \
-            -window $itk_component(sidebar).area.frame
-    }
-    frame $itk_component(area).frame
-    blt::tk::scrollbar $itk_component(sidebar).area.xs
-    blt::tk::scrollbar $itk_component(sidebar).area.ys
+        blt::tk::frame $itk_component(sidebar).area 
+    }
     itk_component add controlbar {
         frame $itk_component(sidebar).cbar
@@ -236 +230 @@
     }
 
-    set f $itk_component(area).frame
+    set f $itk_component(area)
     set pname "panel[incr _counter]"
     itk_component add $pname {
@@ -346 +340 @@
     $itk_component(title) configure -text $_panels($pname-title)
 
-    set f $itk_component(area).frame
+    set f $itk_component(area)
     foreach w [pack slaves $f] {
         pack forget $w