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