--- a/UIHelpTool.st Fri Aug 21 20:54:35 1998 +0200
+++ b/UIHelpTool.st Fri Aug 21 20:58:27 1998 +0200
@@ -606,6 +606,8 @@
"reads the help dictionary from aClass and find remaining classes
'between' aClass and ApplicationModel"
+ |list listOfHelpSpecClassesView|
+
modified := false.
specClass notNil
ifTrue:
@@ -620,18 +622,24 @@
(specClass class implements:specSelector) ifFalse:[
dictionaries at: specClass name put: dictionary
].
- self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
- (self listOfHelpSpecClasses includes: #ApplicationModel)
- ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
+ list := self listOfHelpSpecClasses.
+
+ list contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
+ (list includes: #ApplicationModel)
+ ifTrue: [list removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
self selectionOfHelpSpecClass value: specClass name.
- (builder componentAt: #listOfHelpSpecClassesView) selection:
- (self listOfHelpSpecClasses value indexOf: specClass name).
+
+ listOfHelpSpecClassesView := builder componentAt: #listOfHelpSpecClassesView.
+ listOfHelpSpecClassesView notNil ifTrue:[
+ listOfHelpSpecClassesView selection:
+ (list value indexOf: specClass name).
+ ].
self helpSpecClassSelected.
].
self updateList
- "Modified: / 20.6.1998 / 14:54:46 / cg"
+ "Modified: / 21.8.1998 / 15:48:00 / cg"
!
buildFromClass: aClass andSelector: aSelector