# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1073896310 -3600
# Node ID fbf082828db6e15420998f497466c286727959a1
# Parent  0f340ebe25d4c1212412fe3e17a20f7539d09008
allow save into non/AppModel classes

diff -r 0f340ebe25d4 -r fbf082828db6 UIHelpTool.st
--- a/UIHelpTool.st	Thu Jan 08 23:40:15 2004 +0100
+++ b/UIHelpTool.st	Mon Jan 12 09:31:50 2004 +0100
@@ -1132,10 +1132,11 @@
         self information:(resources string:'No class specified !!').
         ^ nil
     ].
-    (specClass isSubclassOf:ApplicationModel) ifFalse:[
-        self information:(resources string:'Cannot save help into non-Application class').
-        ^ nil
-    ].
+"/ cg: the following test is rubbish !!
+"/    (specClass isSubclassOf:ApplicationModel) ifFalse:[
+"/        self information:(resources string:'Cannot save help into non-Application class').
+"/        ^ nil
+"/    ].
 
     classItemList do:[:aClassItem| 
         aClassItem createHelpMethodNamed:(self specSelector)