--- 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, '!!'.
]
!