--- a/RectanglefromUserController.st	Mon Apr 10 08:41:31 2017 +0200
+++ b/RectanglefromUserController.st	Mon Apr 10 08:41:37 2017 +0200
@@ -167,6 +167,7 @@
         super buttonRelease:button x:x y:y.
         ^ self
     ].
+    
     (lastX isNil or:[lastY isNil]) ifTrue:[
         lastX := x.
         lastY := y.
@@ -180,9 +181,12 @@
     action value:rect.
 
     "Modified: / 09-02-2017 / 23:18:01 / cg"
+    "Modified (format): / 10-04-2017 / 08:39:33 / cg"
 !
 
 keyPress:key x:x y:y
+    "actually, this is for the escape key (to abort a drag operation)"
+    
     startPoint isNil ifTrue:[
         super keyPress:key x:x y:y.
         ^ self
@@ -196,6 +200,8 @@
 
     startPoint := nil.
     action value:nil.
+
+    "Modified (comment): / 10-04-2017 / 08:40:57 / cg"
 ! !
 
 !RectangleFromUserController class methodsFor:'documentation'!