Changeset 4163 for trunk/gui/scripts/flowvisviewer.tcl
- Timestamp:
- Feb 1, 2014 1:57:07 AM (10 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/gui/scripts/flowvisviewer.tcl
r4075 r4163 1901 1901 itcl::configbody Rappture::FlowvisViewer::plotbackground { 1902 1902 if { [isconnected] } { 1903 foreach {r g b} [Color2RGB $itk_option(-plotbackground)] break 1904 #fix this! 1905 #SendCmd "color background $r $g $b" 1903 set color $itk_option(-plotbackground) 1904 set rgb [Color2RGB $color] 1905 SendCmd "screen bgcolor $rgb" 1906 $itk_component(legend) configure -background $color 1906 1907 } 1907 1908 } … … 1912 1913 itcl::configbody Rappture::FlowvisViewer::plotforeground { 1913 1914 if { [isconnected] } { 1914 foreach {r g b} [Color2RGB $itk_option(-plotforeground)] break 1915 #fix this! 1916 #SendCmd "color background $r $g $b" 1915 set color $itk_option(-plotforeground) 1916 set rgb [Color2RGB $color] 1917 SendCmd "volume outline color $rgb" 1918 SendCmd "grid axiscolor $rgb" 1919 SendCmd "grid linecolor $rgb" 1920 $itk_component(legend) itemconfigure labels -fill $color 1921 $itk_component(legend) itemconfigure limits -fill $color 1917 1922 } 1918 1923 }
Note: See TracChangeset
for help on using the changeset viewer.