UIPainterView.st
changeset 2376 3bf786f18f5d
parent 2369 98871b82aa87
child 2386 4471bede7939
--- a/UIPainterView.st	Mon Jul 14 22:23:26 2008 +0200
+++ b/UIPainterView.st	Fri Jul 18 11:47:01 2008 +0200
@@ -675,7 +675,7 @@
 !
 
 dropObjects:aCollectionOfDropObjects at:aPoint
-    |spec newSel oldSel dragOffset widg doit|
+    |spec newSel oldSel dragOffset dropPoint widg doit|
 
     doit := true.
     self selection notNil ifTrue:[
@@ -695,13 +695,33 @@
     spec := (aCollectionOfDropObjects at:1) theObject.
     doit ifTrue:[
         dragOffset := DragAndDropManager dragOffsetQuerySignal query.
-        newSel := self pasteSpecifications:spec keepLayout:false keepPosition:false at:aPoint - dragOffset.
-
+        aPoint isNil ifTrue:[
+            dropPoint := #keep.
+        ] ifFalse:[
+            dropPoint := aPoint - dragOffset.
+        ].
+        newSel := self pasteSpecifications:spec keepLayout:false keepPosition:false at:dropPoint.
         self select:(oldSel ? newSel)
     ].
 
     "Modified: / 18-03-1999 / 18:29:43 / stefan"
     "Created: / 13-10-2006 / 16:09:27 / cg"
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
 ! !
 
 !UIPainterView methodsFor:'drawing'!