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