Changeset 3035 for trunk

Timestamp:

Jun 12, 2012 6:48:13 PM (12 years ago)

Author:

mmc

Message:

Fix for #258880, drag&drop movement wasn't working in the builder when
the list of elements was large and scrolled down. The screen (x,y)
coordinate wasn't being converted to canvas coordinates, so the drag&drop
"start" operation wasn't picking the right element.

File:

• trunk/builder/scripts/hierlist.tcl (modified) (1 diff)

trunk/builder/scripts/hierlist.tcl

@@ -371 +371 @@
 # ----------------------------------------------------------------------
 itcl::body Rappture::Hierlist::dd_get_source {widget x y} {
+    # convert from screen coords to canvas coords (for scrollbars)
+    set x [$widget canvasx $x]
+    set y [$widget canvasy $y]
+
     set data ""
-    foreach id [$itk_component(area) find overlapping $x $y $x $y] {
-        foreach tag [$itk_component(area) gettags $id] {
+    foreach id [$widget find overlapping $x $y $x $y] {
+        foreach tag [$widget gettags $id] {
             # search for a tag like item:NNN and make sure it's selected
             if {[regexp {^item:([0-9]+)$} $tag match node]