Changeset 2766

Timestamp:

Jan 18, 2012 5:42:20 PM (12 years ago)

Author:

mmc

Message:

Fixed the Balloon widget to support "-relief flat". Using a flat black
style may work better for Rapplicants and the new Rappture interface.
Default is still raised/gray.

File:

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

trunk/gui/scripts/balloon.tcl

@@ -321 +321 @@
 
             set bg $itk_option(-background)
-            set light [Rappture::color::brightness $bg 0.4]
-            set dark [Rappture::color::brightness $bg -0.4]
+            set rgb [winfo rgb . $bg]
+            set flatbg [format "#%03x%03x%03x" [lindex $rgb 0] [lindex $rgb 1] [lindex $rgb 2]]
+            switch -- $itk_option(-relief) {
+                raised {
+                    set light [Rappture::color::brightness $bg 0.4]
+                    set dark [Rappture::color::brightness $bg -0.4]
+                    set bg $flatbg
+                }
+                flat - solid {
+                    set light $flatbg
+                    set dark $flatbg
+                    set bg $flatbg
+                }
+                sunken {
+                    set light [Rappture::color::brightness $bg -0.4]
+                    set dark [Rappture::color::brightness $bg 0.4]
+                    set bg $flatbg
+                }
+            }
             set rgb [winfo rgb . $bg]
             set bg [format "#%03x%03x%03x" [lindex $rgb 0] [lindex $rgb 1] [lindex $rgb 2]]