--- a/UIHelpTool.st Mon Jan 26 16:18:30 1998 +0100
+++ b/UIHelpTool.st Mon Jan 26 17:23:07 1998 +0100
@@ -428,14 +428,14 @@
listChgd ifTrue:[
self updateList
].
- modifiedHolder value:true
+ modifiedHolder notNil ifTrue: [modifiedHolder value:true]
]
!
installHelpSpecInto:aClass
"install help text
"
- |cls src superHelpSpecKeys|
+ |cls src superHelpSpecKeys helpSpec|
cls := self applicationClassAssociatedWith:aClass.
@@ -447,8 +447,13 @@
].
superHelpSpecKeys := cls superclass helpSpec keys.
- dictionary := dictionary keys removeAll: superHelpSpecKeys; yourself.
- dictionary isEmpty ifTrue:[
+
+ helpSpec := IdentityDictionary new.
+ dictionary associationsDo:
+ [:asso|
+ (superHelpSpecKeys includes: asso key) ifFalse: [helpSpec at: asso key put: asso value]
+ ].
+ helpSpec isEmpty ifTrue:[
^nil
].
@@ -468,11 +473,11 @@
'.
- dictionary asSortedCollection
+ helpSpec keys asSortedCollection
do:[:key |
|txt t|
- txt := dictionary at:key.
+ txt := helpSpec at:key.
src nextPutLine:key storeString.
t := txt asString replaceAll:(Character cr) with:(Character space).