--- a/MenuEditor.st Wed Jan 28 18:20:27 1998 +0100
+++ b/MenuEditor.st Wed Jan 28 18:32:02 1998 +0100
@@ -1389,7 +1389,8 @@
defaultInfoLabel
- ^(specClass ? 'No class defined') printString, ' >> ', self treeView selectorName
+ specClass isNil ifTrue: [^'No menu class defined'].
+ ^specClass printString, ' >> ', self treeView selectorName
! !
@@ -1729,10 +1730,10 @@
aClass isClass ifTrue: [className := aClass name].
aClass isString ifTrue: [className := aClass].
message := className, ' ', aSelector.
- self addToHistory: message -> #loadFromMessage:.
- self valueOfInfoLabel value: self defaultInfoLabel
+ self addToHistory: message -> #loadFromMessage:
].
+ self valueOfInfoLabel value: self defaultInfoLabel.
self treeView selection: 2.
self menuChanged