equal
deleted
inserted
replaced
1387 |
1387 |
1388 !MenuEditor methodsFor:'active help'! |
1388 !MenuEditor methodsFor:'active help'! |
1389 |
1389 |
1390 defaultInfoLabel |
1390 defaultInfoLabel |
1391 |
1391 |
1392 ^(specClass ? 'No class defined') printString, ' >> ', self treeView selectorName |
1392 specClass isNil ifTrue: [^'No menu class defined']. |
|
1393 ^specClass printString, ' >> ', self treeView selectorName |
1393 |
1394 |
1394 ! ! |
1395 ! ! |
1395 |
1396 |
1396 !MenuEditor methodsFor:'aspects'! |
1397 !MenuEditor methodsFor:'aspects'! |
1397 |
1398 |
1727 [ |
1728 [ |
1728 |className message| |
1729 |className message| |
1729 aClass isClass ifTrue: [className := aClass name]. |
1730 aClass isClass ifTrue: [className := aClass name]. |
1730 aClass isString ifTrue: [className := aClass]. |
1731 aClass isString ifTrue: [className := aClass]. |
1731 message := className, ' ', aSelector. |
1732 message := className, ' ', aSelector. |
1732 self addToHistory: message -> #loadFromMessage:. |
1733 self addToHistory: message -> #loadFromMessage: |
1733 self valueOfInfoLabel value: self defaultInfoLabel |
1734 ]. |
1734 ]. |
1735 |
1735 |
1736 self valueOfInfoLabel value: self defaultInfoLabel. |
1736 self treeView selection: 2. |
1737 self treeView selection: 2. |
1737 self menuChanged |
1738 self menuChanged |
1738 |
1739 |
1739 ! |
1740 ! |
1740 |
1741 |