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.
changed #pasteWithLayout
authorStefan Vogel <sv@exept.de>
Wed, 27 Feb 2008 16:03:11 +0100
changeset 2315 c301d0caf97b
parent 2314 e65082256c46
child 2316 32e98f335115
changed #pasteWithLayout
UIPainterView.st file | annotate | diff | comparison | revisions 
--- a/UIPainterView.st	Wed Feb 27 12:11:30 2008 +0100
+++ b/UIPainterView.st	Wed Feb 27 16:03:11 2008 +0100
@@ -507,6 +507,15 @@
     "Modified: / 10.10.2001 / 14:15:12 / cg"
 !
 
+pasteWithLayout
+    "add the objects in the paste-buffer to the object view"
+
+    |sel|
+
+    sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true.
+    self changeSelectionAfterPasteOf:sel.
+!
+
 pasteWithoutLayout
     "add the objects in the paste-buffer to the object view"
hg/stx-libtool2