# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1214242684 -7200
# Node ID 98871b82aa87d34e4f048c5e1ab3187b516012c5
# Parent  99f14af1d5ec30c5e0b571fe5a0df5461fd66b92
oops

diff -r 99f14af1d5ec -r 98871b82aa87 UIPainterView.st
--- a/UIPainterView.st	Mon Jun 23 19:37:51 2008 +0200
+++ b/UIPainterView.st	Mon Jun 23 19:38:04 2008 +0200
@@ -478,7 +478,7 @@
 
         view := self addSpec:eachSpec builder:builder in:containerToPasteInto.
 
-        keepPosition ifTrue:[
+        (keepPosition and:[ uiPainterAttributes notNil ]) ifTrue:[
             thisAbsOrigin := uiPainterAttributes at:#absOrigin.
             newOrigin := device 
                                 translatePoint:thisAbsOrigin
@@ -520,7 +520,7 @@
 !
 
 pasteWithLayout
-    "add the objects in the paste-buffer to the object view"
+    "add the objects in the paste-buffer to the object view - keep the old layout"
 
     |sel|
 
@@ -533,7 +533,7 @@
 !
 
 pasteWithoutLayout
-    "add the objects in the paste-buffer to the object view"
+    "add the objects in the paste-buffer to the object view - do not keep the old layout"
 
     |sel|