Tk Library Source Code

Artifact a96023a1896266724fcc215e35b4e6113052273d:

Attachment "010-BWidget-1.9.4-scrollregion-fix.patch" to ticket [3317772fff] added by oehhar 2011-06-23 14:19:54.

---

diff -ur BWidget-1.9.4/listbox.tcl BWidget-1.9.4/listbox.tcl
--- BWidget-1.9.4/listbox.tcl	2011-06-22 00:03:20.000000000 +0200
+++ BWidget-1.9.4/listbox.tcl	2011-06-22 00:06:59.000000000 +0200
@@ -971,16 +971,10 @@
         set ys [lindex $bbox 3]
 
         if { $w < $xs } {
-            set w [expr {int($xs)}]
-            if { [set r [expr {$w % $xinc}]] } {
-                set w [expr {$w+$xinc-$r}]
-            }
+            set w [expr {$xs + $w % $xinc}]
         }
         if { $h < $ys } {
-            set h [expr {int($ys)}]
-            if { [set r [expr {$h % $yinc}]] } {
-                set h [expr {$h+$yinc-$r}]
-            }
+            set h [expr {$ys + $h % $yinc}]
         }
     }
 
diff -ur BWidget-1.9.4/tree.tcl BWidget-1.9.4/tree.tcl
--- BWidget-1.9.4/tree.tcl	2011-06-22 00:03:20.000000000 +0200
+++ BWidget-1.9.4/tree.tcl	2011-06-22 00:06:59.000000000 +0200
@@ -1229,16 +1229,10 @@
         set ys [lindex $bbox 3]
 
         if { $w < $xs } {
-            set w [expr {int($xs)}]
-            if { [set r [expr {$w % $xinc}]] } {
-                set w [expr {$w+$xinc-$r}]
-            }
+            set w [expr {$xs + $w % $xinc}]
         }
         if { $h < $ys } {
-            set h [expr {int($ys)}]
-            if { [set r [expr {$h % $yinc}]] } {
-                set h [expr {$h+$yinc-$r}]
-            }
+            set h [expr {$ys + $h % $yinc}]
         }
     }