equal
deleted
inserted
replaced
645 ^ super valueOfInfoLabel |
645 ^ super valueOfInfoLabel |
646 ! ! |
646 ! ! |
647 |
647 |
648 !UIHelpTool methodsFor:'building'! |
648 !UIHelpTool methodsFor:'building'! |
649 |
649 |
|
650 buildAndMergeFromClass:aClass |
|
651 "class and selector changed; merge old definitions |
|
652 into definitions loaded from a class |
|
653 " |
|
654 |saveDictionary saveHelpKey| |
|
655 |
|
656 saveDictionary := dictionary. |
|
657 saveHelpKey := self helpKey. |
|
658 |
|
659 self buildFromClass:aClass. |
|
660 |
|
661 saveDictionary notEmpty ifTrue:[ |
|
662 dictionary declareAllFrom:saveDictionary. |
|
663 self updateList. |
|
664 ]. |
|
665 self helpKey:saveHelpKey. |
|
666 self modified:true. |
|
667 ! |
|
668 |
650 buildFromClass:aClass |
669 buildFromClass:aClass |
651 "reads the help dictionary from aClass and find remaining classes |
670 "reads the help dictionary from aClass and find remaining classes |
652 'between' aClass and ApplicationModel" |
671 'between' aClass and ApplicationModel" |
653 |
672 |
654 |list| |
673 |list| |