equal
deleted
inserted
replaced
685 ^ keyItemModel. |
685 ^ keyItemModel. |
686 ! ! |
686 ! ! |
687 |
687 |
688 !UIHelpTool methodsFor:'building'! |
688 !UIHelpTool methodsFor:'building'! |
689 |
689 |
690 buildAndMergeFromClass:aClass |
690 buildAndMergeFromClass:aClassOrClassName |
691 "setup a new specClass, merge the current items into |
691 "setup a new specClass, merge the current items into |
692 " |
692 " |
693 |root mergeItems| |
693 |root mergeItems aClass| |
694 |
694 |
|
695 (aClass := aClassOrClassName) isBehavior ifFalse:[ |
|
696 aClass := Smalltalk classNamed:aClassOrClassName |
|
697 ]. |
|
698 |
695 root := classItemList first. |
699 root := classItemList first. |
696 |
700 |
697 root isUnspecified ifTrue:[ mergeItems := root children ] |
701 root isUnspecified ifTrue:[ mergeItems := root children ] |
698 ifFalse:[ mergeItems := nil ]. |
702 ifFalse:[ mergeItems := nil ]. |
699 |
703 |
712 ] ifFalse:[ |
716 ] ifFalse:[ |
713 item helpText:(anItem helpText). |
717 item helpText:(anItem helpText). |
714 ] |
718 ] |
715 ] |
719 ] |
716 ]. |
720 ]. |
|
721 |
|
722 "Modified: / 01-11-2017 / 21:23:22 / cg" |
717 ! |
723 ! |
718 |
724 |
719 loadFromClass:aClass |
725 loadFromClass:aClass |
720 "reads the help dictionary from aClass and find remaining classes |
726 "reads the help dictionary from aClass and find remaining classes |
721 'between' aClass and ApplicationModel |
727 'between' aClass and ApplicationModel |