--- a/UIPainterView.st Fri May 08 11:31:43 2009 +0200
+++ b/UIPainterView.st Fri May 08 13:52:41 2009 +0200
@@ -380,16 +380,18 @@
pasteSpecifications:aSpecificationOrList into:aContainerOrNil beforeIndex:anIndexOrNil keepLayout:keepLayout keepPosition:keepPosition at:aPointOrNilOrKeep
"add the specs to the object view; returns list of pasted widgets"
- |specsToPaste pasteOffset builder newSel
+ |sensor specsToPaste pasteOffset builder newSel
bounds containerToPasteInto pastePoint beforeIndex|
treeView askForSelectionChangeAllowed ifFalse:[^ nil].
+ sensor := self window sensor.
+
containerToPasteInto := aContainerOrNil.
(aPointOrNilOrKeep == #keep
- or:[ self window sensor shiftDown
- or:[ self window sensor ctrlDown ]]) ifTrue:[
+ or:[ sensor shiftDown
+ or:[ sensor ctrlDown ]]) ifTrue:[
"/ paste into the selection
containerToPasteInto isNil ifTrue:[
containerToPasteInto := self singleSelection.
@@ -399,7 +401,7 @@
pastePoint := aPointOrNilOrKeep.
pastePoint isNil ifTrue:[
pastePoint := device
- translatePoint:(self sensor mousePoint)
+ translatePoint:(sensor mousePoint)
fromView:nil
toView:self.
].