Changeset 2486

Timestamp:

Sep 6, 2011, 10:55:01 PM (13 years ago)

Author:

ldelgass

Message:

Fix legend height - request legend with vertical aspect, don't need to rotate
image.

File:

• trunk/gui/scripts/vtkcontourviewer.tcl (modified) (3 diffs)

trunk/gui/scripts/vtkcontourviewer.tcl

@@ -703 +703 @@
     set bytes [ReceiveBytes $info(-bytes)]
     foreach { _view(ortho-x) _view(ortho-y) _view(ortho-w) _view(ortho-h) } $info(-bbox) break
-    puts stderr "bbox: $_view(ortho-x) $_view(ortho-y) $_view(ortho-w) $_view(ortho-h)"
+    #puts stderr "bbox: $_view(ortho-x) $_view(ortho-y) $_view(ortho-w) $_view(ortho-h)"
     if { $info(-type) == "image" } {
         $_image(plot) configure -data $bytes
@@ -725 +725 @@
     set lineht [font metrics $itk_option(-font) -linespace]
     set c $itk_component(legend)
-    set w [expr {[winfo height $itk_component(view)]-20}]
-    set h 45
+    set w 20
+    set h [expr {[winfo height $itk_component(view)] - 2 * ($lineht+2)}]
     puts stderr "in fixlegend w=$w h=$h"
     if {$w > 0 && $h > 0 && $_first != "" } {
@@ -790 +790 @@
             set _image(legend) [image create photo]
         }
+        $_image(legend) configure -data $bytes
         puts stderr "read $size bytes for [image width $_image(legend)]x[image height $_image(legend)] legend>"
-        set src [image create photo -data $bytes]
-        blt::winop image rotate $src $_image(legend) 90
-        set dst $_image(legend)
         DrawLegend
     }