--- a/UIHelpTool.st Mon Mar 09 21:47:21 1998 +0100
+++ b/UIHelpTool.st Tue Mar 10 13:42:53 1998 +0100
@@ -387,8 +387,9 @@
(specClass class implements:#helpSpec) ifFalse:[
dictionaries at: specClass name put: dictionary
].
- self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
- self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name]).
+ self listOfHelpSpecClasses contents: (specClass withAllSuperclasses reverse collect: [:cls| cls name]).
+ (self listOfHelpSpecClasses includes: #ApplicationModel)
+ ifTrue: [self listOfHelpSpecClasses removeAll: (ApplicationModel withAllSuperclasses collect: [:cls| cls name])].
self selectionOfHelpSpecClass value: specClass name.
(builder componentAt: #listOfHelpSpecClassesView) selection:
(self listOfHelpSpecClasses value indexOf: specClass name).