Changeset 3547 for trunk/gui/scripts

Timestamp:

Mar 21, 2013, 7:29:50 AM (11 years ago)

Author:

gah

Message:

remove test in DrawLegend? allowing title to be created.

Location:

trunk/gui/scripts

Files:

• vtkheightmapviewer.tcl (modified) (1 diff)
• vtkisosurfaceviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkheightmapviewer.tcl

@@ -2334 +2334 @@
         # If there's a legend title, create a text item for the title.
         $c create text $x $y \
-            -anchor ne \
-            -fill $itk_option(-plotforeground) -tags "title legend" \
-            -font $font 
-            incr y $lineht
+                -anchor ne \
+                -fill $itk_option(-plotforeground) -tags "title legend" \
+                -font $font 
         $c create text $x $y \
             -anchor ne \

trunk/gui/scripts/vtkisosurfaceviewer.tcl

@@ -2382 +2382 @@
         set y 2 
         # If there's a legend title, create a text item for the title.
-        if { $title != "" } {
-            $c create text $x $y \
+        $c create text $x $y \
                 -anchor ne \
                 -fill $itk_option(-plotforeground) -tags "title legend" \
                 -font $font 
             incr y $lineht
-        }
         $c create text $x $y \
             -anchor ne \
@@ -2451 +2449 @@
     set y 2
     # If there's a legend title, move the title to the correct position
+puts stderr "DrawLegend title=$title x=$x y=$y $itk_option(-plotforeground)"
     if { $title != "" } {
+        $c itemconfigure title -text $title
         $c coords title $x $y
         incr y $lineht
+        $c raise title
     }
     $c coords zmax $x $y
@@ -2481 +2482 @@
         post {
             foreach { x1 y1 x2 y2 } [$c bbox title] break
-            set x1 [expr [winfo width $itk_component(view)] - [winfo reqwidth $itk_component(fieldmenu)]]
+            set cw [winfo width $itk_component(view)]
+            set mw [winfo reqwidth $itk_component(fieldmenu)]
+            set x1 [expr $cw - $mw]
             set x [expr $x1 + [winfo rootx $itk_component(view)]]
             set y [expr $y2 + [winfo rooty $itk_component(view)]]