Changeset 2485 for trunk/gui

Timestamp:

Sep 6, 2011, 4:52:31 PM (13 years ago)

Author:

ldelgass

Message:

Fix requested legend height - leave 2 pixels between bottom of bar and vmin
label, use the correct font to get lineheight. Also fix off by one error in
computing value for legend mouseover (imgY is [0,height-1] to give t parameter
in [0,1] range).

File:

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

trunk/gui/scripts/vtkviewer.tcl

@@ -1283 +1283 @@
     #puts stderr "RequestLegend _first=$_first"
     puts stderr "RequestLegend width=$_width height=$_height"
-    set lineht [font metrics $itk_option(-font) -linespace]
+    set font "Arial 8"
+    set lineht [font metrics $font -linespace]
     set c $itk_component(legend)
     set w 15
-    set h [expr {$_height - 2 * $lineht}]
+    set h [expr {$_height - 2 * ($lineht + 2)}]
     if { $h < 1} {
         return
@@ -1915 +1916 @@
 
     # Compute the value of the point
-    set t [expr 1.0 - (double($imgY) / double($imgHeight))]
+    set t [expr 1.0 - (double($imgY) / double($imgHeight-1))]
     #puts stderr "t=$t x=$x y=$y"
     set value [expr $t * ($_limits(vmax) - $_limits(vmin)) + $_limits(vmin)]