--- a/DragAndDropManager.st Wed Dec 21 12:35:21 2005 +0100
+++ b/DragAndDropManager.st Wed Dec 21 12:36:08 2005 +0100
@@ -1311,6 +1311,8 @@
keyPress:aKey x:x y:y view:aView
"stop the drag operation, when the escape key is pressed"
+ <resource: #keyboard (#Escape)>
+
escapePressed == true ifTrue:[ ^ self ]. "/ ignorred, escaped was pressed
aKey == #Escape ifTrue:[
@@ -1569,7 +1571,7 @@
!DragAndDropManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.65 2005-12-21 11:35:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libview2/DragAndDropManager.st,v 1.66 2005-12-21 11:36:08 cg Exp $'
! !
DragAndDropManager initialize!