Changeset 1375 for trunk/gui/scripts/scroller.tcl

Timestamp:

Apr 2, 2009, 6:05:34 PM (16 years ago)

Author:

mmc

Message:

Created the SidebarFrame? widget to manage all sidebar options, and plugged
it into the various vis viewers and the xyresult.

File:

• trunk/gui/scripts/scroller.tcl (modified) (2 diffs)

trunk/gui/scripts/scroller.tcl

@@ -113 +113 @@
 itcl::body Rappture::Scroller::contents {{widget "!@#query"}} {
     if {$widget == "!@#query"} {
+        if {$_contents == $_frame} {
+            return $_frame.f
+        }
         return $_contents
     }
@@ -268 +271 @@
         }
         outer {
-            $_frame itemconfigure frame -width [winfo width $_frame]
+            if {[winfo width $_frame] > [winfo reqwidth $_frame.f]} {
+                $_frame itemconfigure frame -width [winfo width $_frame]
+            } else {
+                $_frame itemconfigure frame -width 0
+            }
             if {[winfo height $_frame] > [winfo reqheight $_frame.f]} {
                 $_frame itemconfigure frame -height [winfo height $_frame]