UIHelpTool.st
changeset 456 e2bbb3f9c5fd
parent 454 8b016ffd83ce
child 459 fb5b5ecf7e86
--- 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.