#OTHER by cg expecco_18_1_0 expecco_18_1_0wa1
authorClaus Gittinger <cg@exept.de>
Fri, 15 Jun 2018 02:40:48 +0200
changeset 3566 278888b1ca84
parent 3565 16978aaed2f6
child 3568 5004640f2a10
#OTHER by cg drag and drop confusion fixed (Logical vs. Device coordinates)
MenuEditor.st
--- a/MenuEditor.st	Thu Jun 14 17:17:32 2018 +0200
+++ b/MenuEditor.st	Fri Jun 15 02:40:48 2018 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 1997 by eXept Software AG
 	      All Rights Reserved
@@ -2195,16 +2197,16 @@
 
     dropOverLine isNil ifTrue:[^ self ].       "/ context not valid to me ...
 
-    lnNr := listOfItemsView yVisibleToLineNr:(aDropContext targetPoint y).
+    lnNr := listOfItemsView yVisibleToLineNr:(aDropContext targetPointInDeviceCoordinates y).
     item := nil.
 
     lnNr notNil ifTrue:[
-	item := listOfItems at:lnNr ifAbsent:nil.
-	item notNil ifTrue:[
-	    (item isAction and:[item hasDelayedMenu]) ifTrue:[
-		item := nil
-	    ]
-	]
+        item := listOfItems at:lnNr ifAbsent:nil.
+        item notNil ifTrue:[
+            (item isAction and:[item hasDelayedMenu]) ifTrue:[
+                item := nil
+            ]
+        ]
     ].
     item isNil ifTrue:[ lnNr := 0 ].   "/ not dropable for item
 
@@ -2212,6 +2214,7 @@
     self changeDropLineTo:lnNr in:aDropContext.
 
     "Modified: / 29-11-2011 / 11:28:17 / cg"
+    "Modified: / 15-06-2018 / 02:27:44 / Claus Gittinger"
 ! !
 
 !MenuEditor methodsFor:'event processing'!