# HG changeset patch # User tz # Date 886008722 -3600 # Node ID 1586e7da66bc53c5dda7661bde88b67026b1daff # Parent 249e94fdeb944605a579226e853596e7517f193e updates default info label after making new diff -r 249e94fdeb94 -r 1586e7da66bc MenuEditor.st --- 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