--- a/UIHelpTool.st Fri Mar 06 15:35:09 1998 +0100
+++ b/UIHelpTool.st Fri Mar 06 16:45:37 1998 +0100
@@ -321,13 +321,29 @@
!UIHelpTool methodsFor:'accessing'!
+dictionaries
+ "return dictionaries"
+
+ ^dictionaries
+!
+
+dictionaries:aDictionaryOfDictionaries
+ "set dictionaries"
+
+ (dictionaries := aDictionaryOfDictionaries) isNil ifTrue:[
+ dictionaries := Dictionary new.
+ ].
+ self updateList
+!
+
dictionary
- "return the value of the instance variable 'dictionary' (automatically generated)"
+ "return dictionary"
- ^ dictionary!
+ ^ dictionary
+!
dictionary:aDictionary
- "set the value of the instance variable 'dictionary' (automatically generated)"
+ "set dictionary"
(dictionary := aDictionary) isNil ifTrue:[
dictionary := Dictionary new.
@@ -530,7 +546,8 @@
[DialogBox confirm: 'Class ', cls name asBoldText, ' already implements\a menu spec!!\\Do only replace, if you have removed\help keys in an existing help spec.\' withCRs yesLabel: ' Merge ' noLabel: ' Replace ']])
ifTrue:
[
- implementedHelpSpec associationsDo: [:h| helpSpec at: h key put: h value].
+ implementedHelpSpec associationsDo: [:h| (helpSpec includesKey: h key)
+ ifFalse: [helpSpec at: h key put: h value]].
]
].