# HG changeset patch
# User tz
# Date 889138082 -3600
# Node ID bcd65f75ade4e50096bf1d82025e6a6263b325d9
# Parent  2aae4f3b65266f730b07238b6bd39d0fa7403192
ca's #doFromClass corrected

diff -r 2aae4f3b6526 -r bcd65f75ade4 UIHelpTool.st
--- a/UIHelpTool.st	Thu Mar 05 23:30:36 1998 +0100
+++ b/UIHelpTool.st	Thu Mar 05 23:48:02 1998 +0100
@@ -811,7 +811,7 @@
 doFromClass
     "setup new specification from a class accessed through to a dialog
     "
-    |cls accepted|
+    |cls cls2 accepted|
 
     specClass notNil ifTrue:[cls := specClass name asValue]
                     ifFalse:[cls := '' asValue].
@@ -825,14 +825,13 @@
                 addOkButton; 
                 open
             ) accepted.
-
         accepted ifFalse:[^ self].
-        cls := self applicationClassAssociatedWith:cls value.
+        cls2 := self applicationClassAssociatedWith:cls value.
 
-        cls notNil ifTrue:[
-            ^ self helpSpecFrom:cls
+        (cls2 notNil and: [cls2 respondsTo: #helpSpec]) ifTrue:[ 
+            ^ self helpSpecFrom:cls2
         ].
-        self warn:'No such class!!'.
+        self warn:'No help spec found in class ', cls value asBoldText, '!!'.
     ]
 !