Changeset 1865 for trunk/gui/scripts/panes.tcl

Timestamp:

Aug 20, 2010, 7:49:45 AM (14 years ago)

Author:

mmc

Message:

Fixed the Scroller to favor keeping the scrollbar on screen, so we don't
get stuck in a mode where they disappear.

Fixed the Panes widget to do the layout with reqwidth instead of width.
When the widget first appears, the sashes have a width of 1 pixel, but
they immediately show up as 10 pixels, so the layout was off.

File:

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

trunk/gui/scripts/panes.tcl

@@ -325 +325 @@
                 lappend flist $f
                 if {[info exists itk_component($sash)]} {
-                    set h [expr {$h - [winfo height $itk_component($sash)]}]
+                    set h [expr {$h - [winfo reqheight $itk_component($sash)]}]
                 }
             } else {
@@ -373 +373 @@
                 lappend flist $f
                 if {[info exists itk_component($sash)]} {
-                    set w [expr {$w - [winfo width $itk_component($sash)]}]
+                    set w [expr {$w - [winfo reqwidth $itk_component($sash)]}]
                 }
             } else {