# HG changeset patch
# User tz
# Date 889533773 -3600
# Node ID fb90f37268be1c12336a5ffe14edac2b3737165a
# Parent  7f95684c7f7d7dfe3c78dc40a349e8bccd89c756
bug fixed, if window spec in non application model class implemented

diff -r 7f95684c7f7d -r fb90f37268be UIHelpTool.st
--- 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).