changeset 465 | 1b55cc13793b |
parent 459 | fb5b5ecf7e86 |
child 478 | 7ba29987cc0d |
--- a/UIHelpTool.st Fri Jan 23 15:12:07 1998 +0100 +++ b/UIHelpTool.st Fri Jan 23 15:26:35 1998 +0100 @@ -440,10 +440,10 @@ cls := self applicationClassAssociatedWith:aClass. cls isNil ifTrue:[ - ^ self information:'no application class defined'. + ^ self information:'No application class defined!!'. ]. - dictionary isEmpty ifTrue:[ - ^ self information:'no help text defined' + dictionary isEmpty | isModified not ifTrue:[ + ^nil ]. superHelpSpecKeys := cls superclass helpSpec keys.