class: UIPainterView
class definition
changed:
#pasteBuffer
#pasteSpecifications:into:beforeIndex:keepLayout:keepPosition:at:
--- a/UIPainterView.st Mon Jan 21 14:47:47 2013 +0100
+++ b/UIPainterView.st Mon Jan 21 14:48:16 2013 +0100
@@ -15,7 +15,8 @@
instanceVariableNames:'treeView listHolder superclassName className methodName
categoryName handleColorBlack handleColorWhite handleMasterColor
sketchPainter listOfAspectsHolder'
- classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances'
+ classVariableNames:'HandCursor RedefineAspectMethods AspectsAsInstances
+ ClipboardContents'
poolDictionaries:''
category:'Interface-UIPainter'
!
@@ -363,8 +364,12 @@
].
clipboard := self getClipboardObject.
- sel := self pasteSpecifications:clipboard keepLayout:true "(clipboard size > 1)".
- self changeSelectionAfterPasteOf:sel.
+ clipboard isString ifTrue:[
+ Dialog warn:'can only paste widgets here'.
+ ] ifFalse:[
+ sel := self pasteSpecifications:clipboard keepLayout:true "(clipboard size > 1)".
+ self changeSelectionAfterPasteOf:sel.
+ ].
!
pasteKeepingPosition
@@ -444,7 +449,7 @@
self enabled ifTrue:[
Dialog warn:'Cannot paste into selected component (not a container ?)'.
] ifFalse:[
- Dialog warn:'Operation currently disabled (In Geometry test mode)'.
+ Dialog warn:'Operation currently disabled (In geometry test mode)'.
].
^ nil
].
@@ -3095,4 +3100,5 @@
^ '$Header$'
! !
+
UIPainterView initialize!