hg/stx-libview2: changeset 2626:762fe84ed4fa

author	Claus Gittinger <cg@exept.de>
	Fri, 01 May 2009 19:36:50 +0200
changeset 2626	762fe84ed4fa
parent 2625	3ad1c3a78c8d
child 2627	9f78995f7a33

change back the cursor, when escaping; handle ctrl,alt and shift keys to modify the dropType; (but do not yet show the corresponding cursor icon)

--- a/DragHandler.st	Fri May 01 19:36:47 2009 +0200
+++ b/DragHandler.st	Fri May 01 19:36:50 2009 +0200
@@ -326,9 +326,7 @@
     |p extent point area|
 
     (saveArea notNil and:[lastRootPoint notNil]) ifTrue:[
-        (    lastRootPoint x == aRootPoint x
-        and:[lastRootPoint y == aRootPoint y]
-        ) ifTrue:[
+        (lastRootPoint = aRootPoint) ifTrue:[
             "/ nothing changed
             ^ self
         ].
@@ -464,5 +462,5 @@
 !DragHandler class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.12 2008-04-22 16:16:52 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/DragHandler.st,v 1.13 2009-05-01 17:36:50 cg Exp $'
 ! !