Changeset 4163 for trunk/gui/scripts/flowvisviewer.tcl

Timestamp:

Feb 1, 2014, 1:57:07 AM (11 years ago)

Author:

ldelgass

Message:

bgcolor fixes for nanovis clients

File:

• trunk/gui/scripts/flowvisviewer.tcl (modified) (2 diffs)

trunk/gui/scripts/flowvisviewer.tcl

@@ -1901 +1901 @@
 itcl::configbody Rappture::FlowvisViewer::plotbackground {
     if { [isconnected] } {
-        foreach {r g b} [Color2RGB $itk_option(-plotbackground)] break
-        #fix this!
-        #SendCmd "color background $r $g $b"
+        set color $itk_option(-plotbackground)
+        set rgb [Color2RGB $color]
+        SendCmd "screen bgcolor $rgb"
+        $itk_component(legend) configure -background $color
     }
 }
@@ -1912 +1913 @@
 itcl::configbody Rappture::FlowvisViewer::plotforeground {
     if { [isconnected] } {
-        foreach {r g b} [Color2RGB $itk_option(-plotforeground)] break
-        #fix this!
-        #SendCmd "color background $r $g $b"
+        set color $itk_option(-plotforeground)
+        set rgb [Color2RGB $color]
+        SendCmd "volume outline color $rgb"
+        SendCmd "grid axiscolor $rgb"
+        SendCmd "grid linecolor $rgb"
+        $itk_component(legend) itemconfigure labels -fill $color 
+        $itk_component(legend) itemconfigure limits -fill $color 
     }
 }