--- a/UIPainterView.st Fri Feb 28 18:03:28 1997 +0100
+++ b/UIPainterView.st Fri Feb 28 18:04:09 1997 +0100
@@ -402,11 +402,13 @@
|cls code|
className isNil ifTrue:[
- ^ self warn:'set the class first'
+ self warn:'set the class first'.
+ ^ ''
].
- (cls := Smalltalk at:className asSymbol) isNil ifTrue:[
- ^ self warn:'create the class first'
- ].
+"/ (cls := Smalltalk at:className asSymbol) isNil ifTrue:[
+"/ self warn:'create the class first'.
+"/ ^ ''
+"/ ].
code := ''.
@@ -1152,7 +1154,8 @@
menu := PopUpMenu labels:( resources array:#(
'copy'
'cut'
- 'paste'
+ 'paste'
+ 'undo'
'-'
'arrange'
'dimension'
@@ -1162,6 +1165,7 @@
selectors:#( #copySelection
#deleteSelection
#pasteBuffer
+ #undoLast
nil
#arrange
#dimension
@@ -1174,12 +1178,14 @@
nil
nil
nil
+ nil
)
receiver:self.
(canPaste and:[self canPasteInto:selection]) ifFalse:[
menu disable:#pasteBuffer
].
+ undoHistory isEmpty ifTrue:[menu disable:#undoLast].
menu subMenuAt:#arrange put:(self subMenuArrange).
menu subMenuAt:#dimension put:(self subMenuDimension).