--- a/UIPainter.st Tue Sep 21 12:31:03 2004 +0200
+++ b/UIPainter.st Tue Sep 21 12:49:29 2004 +0200
@@ -2661,10 +2661,11 @@
treeSelection := treeView selection.
"/ the top-node cannot be cut, copied or pasted.
canCutOrCopy := treeSelection size >= 1 and:[treeSelection first ~~ 1].
- clipboard := self getSelection.
-
- clipboard isCollection ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]]
- ifFalse:[sel := clipboard].
+ clipboard := self getClipboardObject.
+
+ clipboard isCollection
+ ifTrue:[clipboard notEmpty ifTrue:[sel := clipboard first]]
+ ifFalse:[sel := clipboard].
canPaste := (sel isKindOf:UISpecification)
"/ and:[treeSelection size = 1
--- 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
--- a/UISelectionPanel.st Tue Sep 21 12:31:03 2004 +0200
+++ b/UISelectionPanel.st Tue Sep 21 12:49:29 2004 +0200
@@ -1526,7 +1526,7 @@
^ self defineClassAndSelector
].
- paste := self window getSelection.
+ paste := self window getClipboardObject.
(self canPaste:paste) ifTrue:[
menu := self class menuUnselected decodeAsLiteralArray.