Artifact d63bd19cadf22bcaf22791c9b8e528e2f49d3cb0:

Attachment "scrollframe-bug.diff" to ticket [2fa44401d5] added by anonymous 2013-12-08 16:59:29. (unpublished)

---

diff -u bwidget-1.9.7-orig/scrollframe.tcl bwidget-1.9.7/scrollframe.tcl
--- bwidget-1.9.7-orig/scrollframe.tcl	2013-12-08 17:23:21.810759369 +0100
+++ bwidget-1.9.7/scrollframe.tcl	2013-12-08 17:34:28.310445852 +0100
@@ -116,20 +116,20 @@
     set modcw [Widget::hasChanged $path -constrainedwidth cw]
     set modw  [Widget::hasChanged $path -areawidth w]
     if { $modcw || (!$cw && $modw) } {
-        if { $cw } {
-            set w [winfo width $path]
-        }
         set upd 1
     }
+    if { $cw } {
+        set w [winfo width $path]
+    }
 
     set modch [Widget::hasChanged $path -constrainedheight ch]
     set modh  [Widget::hasChanged $path -areaheight h]
     if { $modch || (!$ch && $modh) } {
-        if { $ch } {
-            set h [winfo height $path]
-        }
         set upd 1
     }
+    if { $ch } {
+        set h [winfo height $path]
+    }
 
     if { $upd } {
         $path:cmd itemconfigure win -width $w -height $h