#OTHER by cg
drag and drop confusion fixed
(Logical vs. Device coordinates)
--- 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'!