--- a/UIPainterView.st Fri Jun 20 11:39:27 2008 +0200
+++ b/UIPainterView.st Mon Jun 23 19:25:26 2008 +0200
@@ -397,7 +397,7 @@
at:aPointOrNil
!
-pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNil
+pasteSpecifications:aSpecificationOrList keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep
"add the specs to the object view; returns list of pasted widgets"
|specsToPaste pasteOffset builder newSel
@@ -405,13 +405,14 @@
treeView askForSelectionChangeAllowed ifFalse:[^ nil].
- (self window sensor shiftDown
- or:[ self window sensor ctrlDown ]) ifTrue:[
+ (aPointOrNilOrKeep == #keep
+ or:[ self window sensor shiftDown
+ or:[ self window sensor ctrlDown ]]) ifTrue:[
"/ paste into the selection
containerToPasteInto := self singleSelection.
] ifFalse:[
"/ ignore the selection and paste where we drop!!
- pastePoint := aPointOrNil.
+ pastePoint := aPointOrNilOrKeep.
pastePoint isNil ifTrue:[
pastePoint := device
translatePoint:(self sensor mousePoint)
@@ -523,7 +524,11 @@
|sel|
- sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true.
+ sel := self
+ pasteSpecifications:(self getClipboardObject)
+ keepLayout:true
+ keepPosition:true
+ at:#keep.
self changeSelectionAfterPasteOf:sel.
!