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 self createBuilder. |
|
622 |
|
623 modified := false. |
621 modified := false. |
624 specClass notNil |
622 specClass notNil |
625 ifTrue: |
623 ifTrue: |
626 [ |
624 [ |
627 dictionary := Dictionary new. |
625 dictionary := Dictionary new. |
643 self helpSpecClassSelected. |
641 self helpSpecClassSelected. |
644 ]. |
642 ]. |
645 |
643 |
646 self updateList |
644 self updateList |
647 |
645 |
648 "Modified: / 19.6.1998 / 03:35:52 / cg" |
646 "Modified: / 20.6.1998 / 14:54:46 / cg" |
649 ! |
647 ! |
650 |
648 |
651 buildFromClass: aClass andSelector: aSelector |
649 buildFromClass: aClass andSelector: aSelector |
652 "sets aSelector and reads the help dictionary from aClass" |
650 "sets aSelector and reads the help dictionary from aClass" |
653 |
651 |