Changeset 646 for trunk

Timestamp:

Mar 28, 2007, 2:04:44 PM (17 years ago)

Author:

mmc

Message:

Fixed a problem with zooming and dragging, when length scales of the
data were much larger or smaller than 1.

File:

• trunk/gui/scripts/contourresult.tcl (modified) (1 diff)

trunk/gui/scripts/contourresult.tcl

@@ -1022 +1022 @@
                 set w [winfo width $itk_component(plot)]
                 set h [winfo height $itk_component(plot)]
-                set dx [expr {double($x-$_click(x))/$w}]
-                set dy [expr {double($y-$_click(y))/$h}]
+                set scalex [expr {$_limits(xmax)-$_limits(xmin)}]
+                set scaley [expr {$_limits(ymax)-$_limits(ymin)}]
+                set dx [expr {double($x-$_click(x))/$w*$scalex}]
+                set dy [expr {double($y-$_click(y))/$h*$scaley}]
 
                 if {$_dims == "2D"} {