Mercurial Mercurial > hg > stx-libtool2 / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
oops
authorClaus Gittinger <cg@exept.de>
Mon, 23 Jun 2008 19:38:04 +0200
changeset 2369 98871b82aa87
parent 2368 99f14af1d5ec
child 2370 ce1233002cf8
oops
UIPainterView.st file | annotate | diff | comparison | revisions 
--- 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|
hg/stx-libtool2