# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1241783561 -7200
# Node ID 43400c4e5196a1719751a5720870f8400556125a
# Parent  b19544e382b78a1f278c28397aedee1ae25dca22
*** empty log message ***

diff -r b19544e382b7 -r 43400c4e5196 UIPainterView.st
--- 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.
         ].