author | tz |
Fri, 06 Mar 1998 00:27:00 +0100 | |
changeset 704 | 0f2dc21e9f66 |
parent 703 | 5d0a14bdcc15 |
child 705 | 3e41c0e80d92 |
UIHelpTool.st | file | annotate | diff | comparison | revisions |
--- 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: