--- 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'!