--- a/UIPainterView.st	Tue Sep 21 12:31:03 2004 +0200
+++ b/UIPainterView.st	Tue Sep 21 12:49:29 2004 +0200
@@ -321,12 +321,11 @@
     "
     |sel|
 
-    sel := self pasteSpecifications:(self getSelection) keepLayout:false.
+    sel := self pasteSpecifications:(self getClipboardObject) keepLayout:false.
 
     sel notNil ifTrue:[
-	self select:sel.
+        self select:sel.
     ].
-
 !
 
 pasteKeepingPosition
@@ -337,13 +336,13 @@
     |sel|
 
     sel := self
-	pasteSpecifications:(self getSelection)
-	keepLayout:true
-	keepPosition:true
-	at:nil.
+        pasteSpecifications:(self getClipboardObject)
+        keepLayout:true
+        keepPosition:true
+        at:nil.
 
     sel notNil ifTrue:[
-	self select:sel.
+        self select:sel.
     ].
 !
 
@@ -485,10 +484,10 @@
     "
     |sel|
 
-    sel := self pasteSpecifications:(self getSelection) keepLayout:true.
+    sel := self pasteSpecifications:(self getClipboardObject) keepLayout:true.
 
     sel notNil ifTrue:[
-	self select:sel.
+        self select:sel.
     ].
 ! !
 
@@ -507,7 +506,7 @@
     "returns true if something to be past exists and can be paste into
      the selection if exists
     "
-    ^ self canPaste:(self getSelection)
+    ^ self canPaste:(self getClipboardObject)
 !
 
 canPaste:something