--- a/UIHelpTool.st Mon Jan 26 15:59:20 1998 +0100
+++ b/UIHelpTool.st Mon Jan 26 16:18:30 1998 +0100
@@ -442,11 +442,15 @@
cls isNil ifTrue:[
^ self information:'No application class defined!!'.
].
- dictionary isEmpty | isModified not ifTrue:[
+ isModified not ifTrue:[
^nil
].
superHelpSpecKeys := cls superclass helpSpec keys.
+ dictionary := dictionary keys removeAll: superHelpSpecKeys; yourself.
+ dictionary isEmpty ifTrue:[
+ ^nil
+ ].
src := '' writeStream.
@@ -464,7 +468,7 @@
'.
- (dictionary keys removeAll: superHelpSpecKeys; yourself) asSortedCollection
+ dictionary asSortedCollection
do:[:key |
|txt t|