--- 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)