Changeset 522 for trunk

Timestamp:

Sep 12, 2006, 10:24:27 AM (18 years ago)

Author:

nkissebe

Message:

another case of widgets not knowing special named colors (Windows implementation). So we fetch rgb values and use those. *njk*

File:

• trunk/gui/scripts/balloon.tcl (modified) (1 diff)

trunk/gui/scripts/balloon.tcl

@@ -316 +316 @@
             set light [Rappture::color::brightness $bg 0.4]
             set dark [Rappture::color::brightness $bg -0.4]
+            set rgb [winfo rgb . $bg]
+            set bg [format "#%03x%03x%03x" [lindex $rgb 0] [lindex $rgb 1] [lindex $rgb 2]]
 
             $_fills($dir) put $bg -to 0 0 $sw $sh