Changeset 3906 for trunk

Timestamp:

Aug 30, 2013 2:27:23 PM (11 years ago)

Author:

gah

Message:

fix drawingentry.tcl: convert floating point canvas coordinates to integer before using in popup

File:

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

trunk/gui/scripts/drawingentry.tcl

@@ -1074 +1074 @@
 
     # Activate the popup and call for the output.
-    set x [expr {round($x + [winfo rootx $itk_component(drawing)])}]
-    set y [expr {round($y + [winfo rooty $itk_component(drawing)])}]
+    set rootx [winfo rootx $itk_component(drawing)] 
+    set rooty [winfo rooty $itk_component(drawing)]
+
+    set x [expr {round($x + $rootx)}]
+    set y [expr {round($y + $rooty)}]
     $popup activate @$x,$y above
 }