# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1216374421 -7200
# Node ID 3bf786f18f5d2044b74b24b21a3f2c54a9f27a4b
# Parent  c775c95566b92b86977c74db5e80ae9b6597d687
dropObjects:at: fixed

diff -r c775c95566b9 -r 3bf786f18f5d UIPainterView.st
--- 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'!