--- a/Image.st	Thu Sep 10 13:05:03 1998 +0200
+++ b/Image.st	Thu Sep 10 16:51:01 1998 +0200
@@ -1729,6 +1729,7 @@
 
     |r|
 
+    [Screen current leftButtonPressed] whileTrue:[Delay waitForSeconds:0.05].
     r := Rectangle fromUser.
     r width == 0 ifTrue:[^ nil].
     r height == 0 ifTrue:[^ nil].
@@ -1739,7 +1740,7 @@
      Image fromScreenArea inspect
     "
 
-    "Modified: / 16.4.1998 / 14:04:58 / cg"
+    "Modified: / 10.9.1998 / 15:59:58 / cg"
 !
 
 fromUser
@@ -11509,6 +11510,6 @@
 !Image class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.256 1998-09-08 11:13:41 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libview/Image.st,v 1.257 1998-09-10 14:51:01 cg Exp $'
 ! !
 Image initialize!