equal
deleted
inserted
replaced
616 |
616 |
617 buildFromClass:aClass |
617 buildFromClass:aClass |
618 "reads the help dictionary from aClass and find remaining classes |
618 "reads the help dictionary from aClass and find remaining classes |
619 'between' aClass and ApplicationModel" |
619 'between' aClass and ApplicationModel" |
620 |
620 |
|
621 builder isNil ifTrue:[ |
|
622 builder := self builderClass new |
|
623 ]. |
|
624 |
621 modified := false. |
625 modified := false. |
622 specClass notNil |
626 specClass notNil |
623 ifTrue: |
627 ifTrue: |
624 [ |
628 [ |
625 dictionary := Dictionary new. |
629 dictionary := Dictionary new. |
640 (self listOfHelpSpecClasses value indexOf: specClass name). |
644 (self listOfHelpSpecClasses value indexOf: specClass name). |
641 self helpSpecClassSelected. |
645 self helpSpecClassSelected. |
642 ]. |
646 ]. |
643 |
647 |
644 self updateList |
648 self updateList |
|
649 |
|
650 "Modified: / 19.6.1998 / 01:52:15 / cg" |
645 ! |
651 ! |
646 |
652 |
647 buildFromClass: aClass andSelector: aSelector |
653 buildFromClass: aClass andSelector: aSelector |
648 "sets aSelector and reads the help dictionary from aClass" |
654 "sets aSelector and reads the help dictionary from aClass" |
649 |
655 |