Artifact
4dd652f30079c609823d86ad1c5fe81d89f11b3f:
Attachment "button.tcl.patch" to
ticket [2975142fff]
added by
ralfixx
2010-03-23 18:05:11.
--- tk8.5/library/button.tcl~ 2010-03-23 11:33:11.000000000 +0100
+++ tk8.5/library/button.tcl 2010-03-23 11:50:54.000000000 +0100
@@ -704,7 +704,7 @@
set Priv($w,aselectcolor) \
[format "#%04x%04x%04x" [expr {($r1+$r2)/2}] \
[expr {($g1+$g2)/2}] [expr {($b1+$b2)/2}]]
- if {[set ::[$w cget -variable]] eq [$w cget -onvalue]} {
+ if {[uplevel \#0 [list set [$w cget -variable]]] eq [$w cget -onvalue]} {
$w configure -selectcolor $Priv($w,aselectcolor)
}
}
Diff finished. Tue Mar 23 11:51:17 2010