diff -r ba152306fbf5 -r 6ad211a201cf UIPainterView.st
--- a/UIPainterView.st	Wed Apr 07 16:33:10 2004 +0200
+++ b/UIPainterView.st	Wed Apr 07 17:56:31 2004 +0200
@@ -555,8 +555,9 @@
 !
 
 drop:anObjectOrCollection at:aPoint
-    |spec newSel oldSel dragOffset widg|
-
+    |spec newSel oldSel dragOffset widg doit|
+
+    doit := true.
     self selection notNil ifTrue:[
         oldSel := self singleSelection.
 
@@ -572,10 +573,12 @@
         self setSelection:widg withRedraw:true.
     ].
     spec := (anObjectOrCollection at:1) theObject.
-    dragOffset := DragAndDropManager dragOffsetQuerySignal query.
-    newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset.
-
-    self select:(oldSel ? newSel)
+    doit ifTrue:[
+        dragOffset := DragAndDropManager dragOffsetQuerySignal query.
+        newSel := self pasteSpecifications:spec keepLayout:false at:aPoint - dragOffset.
+
+        self select:(oldSel ? newSel)
+    ].
 
     "Modified: / 18.3.1999 / 18:29:43 / stefan"
     "Modified: / 30.10.2001 / 14:02:35 / cg"