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

Timestamp:

Feb 1, 2014 4:16:57 PM (10 years ago)

Author:

ldelgass

Message:

Fixes for legend background color in flowvisviewer. Still has bugs with
transfer function editor and legend label color.

File:

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

trunk/gui/scripts/flowvisviewer.tcl

@@ -352 +352 @@
     set _image(legend) [image create photo]
     itk_component add legend {
-        canvas $itk_component(plotarea).legend \
-            -height 50 -highlightthickness 0 -background black
+        canvas $itk_component(plotarea).legend -height 50 -highlightthickness 0
     } {
         usual
@@ -1044 +1043 @@
     set h [winfo height $c]
     set lx 10
-    # FIXME:  I don't know what I have to do this for the 2D flow
-    #         example.  Otherwise the canvas background is white.
-    #         I'll get to this when we add background changes into
-    #         nanvis.
-    $c configure -background black
     set ly [expr {$h - 1}]
-    if {"" == [$c find withtag transfunc]} {
+    if {"" == [$c find withtag colorbar]} {
         $c create image 10 10 -anchor nw \
-            -image $_image(legend) -tags transfunc
+            -image $_image(legend) -tags colorbar
         $c create text $lx $ly -anchor sw \
             -fill $itk_option(-plotforeground) -tags "limits vmin"
         $c create text [expr {$w-$lx}] $ly -anchor se \
             -fill $itk_option(-plotforeground) -tags "limits vmax"
-        $c lower transfunc
-        $c bind transfunc <ButtonRelease-1> \
-            [itcl::code $this AddIsoMarker %x %y]
+        $c lower colorbar
+        $c bind colorbar <ButtonRelease-1> [itcl::code $this AddIsoMarker %x %y]
     }
     # Display the markers used by the active transfer function.