# HG changeset patch # User Stefan Vogel # Date 1204124591 -3600 # Node ID c301d0caf97b1cc8373d0d7b793fd91af6b52bc1 # Parent e65082256c4619141b81b82578670ade4e60ed85 changed #pasteWithLayout diff -r e65082256c46 -r c301d0caf97b UIPainterView.st --- 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"