618 ifTrue: |
620 ifTrue: |
619 [ |
621 [ |
620 (specClass class implements:specSelector) ifFalse:[ |
622 (specClass class implements:specSelector) ifFalse:[ |
621 dictionaries at: specClass name put: dictionary |
623 dictionaries at: specClass name put: dictionary |
622 ]. |
624 ]. |
623 self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]). |
625 list := self listOfHelpSpecClasses. |
624 (self listOfHelpSpecClasses includes: #ApplicationModel) |
626 |
625 ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])]. |
627 list contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]). |
|
628 (list includes: #ApplicationModel) |
|
629 ifTrue: [list removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])]. |
626 self selectionOfHelpSpecClass value: specClass name. |
630 self selectionOfHelpSpecClass value: specClass name. |
627 (builder componentAt: #listOfHelpSpecClassesView) selection: |
631 |
628 (self listOfHelpSpecClasses value indexOf: specClass name). |
632 listOfHelpSpecClassesView := builder componentAt: #listOfHelpSpecClassesView. |
|
633 listOfHelpSpecClassesView notNil ifTrue:[ |
|
634 listOfHelpSpecClassesView selection: |
|
635 (list value indexOf: specClass name). |
|
636 ]. |
629 self helpSpecClassSelected. |
637 self helpSpecClassSelected. |
630 ]. |
638 ]. |
631 |
639 |
632 self updateList |
640 self updateList |
633 |
641 |
634 "Modified: / 20.6.1998 / 14:54:46 / cg" |
642 "Modified: / 21.8.1998 / 15:48:00 / cg" |
635 ! |
643 ! |
636 |
644 |
637 buildFromClass: aClass andSelector: aSelector |
645 buildFromClass: aClass andSelector: aSelector |
638 "sets aSelector and reads the help dictionary from aClass" |
646 "sets aSelector and reads the help dictionary from aClass" |
639 |
647 |