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