--- a/UIHelpTool.st Thu Jan 22 20:06:18 1998 +0100
+++ b/UIHelpTool.st Thu Jan 22 20:28:03 1998 +0100
@@ -424,7 +424,7 @@
installHelpSpecInto:aClass
"install help text
"
- |cls src order|
+ |cls src superHelpSpecKeys|
cls := self applicationClassAssociatedWith:aClass.
@@ -434,6 +434,9 @@
dictionary isEmpty ifTrue:[
^ self information:'no help text defined'
].
+
+ superHelpSpecKeys := cls superclass helpSpec keys.
+
src := '' writeStream.
src nextPutAll:
@@ -450,8 +453,8 @@
'.
- order := dictionary keys asSortedCollection.
- order do:[:key |
+ (dictionary keys removeAll: superHelpSpecKeys; yourself) asSortedCollection
+ do:[:key |
|txt t|
txt := dictionary at:key.