changeset 704 | 0f2dc21e9f66 |
parent 701 | bcd65f75ade4 |
child 710 | 8c968790c885 |
--- a/UIHelpTool.st Fri Mar 06 00:03:26 1998 +0100 +++ b/UIHelpTool.st Fri Mar 06 00:27:00 1998 +0100 @@ -507,7 +507,8 @@ ^nil ]. - helpSpec := dictionaries at: cls name ifAbsent: [dictionary]. + helpSpec := dictionaries at: cls name + ifAbsent: [aClass = cls name asString ifTrue: [dictionary] ifFalse: [Dictionary new]]. (cls class implements: #helpSpec) ifTrue: