--- a/UIHelpTool.st Tue Dec 17 11:20:46 2002 +0100
+++ b/UIHelpTool.st Tue Dec 17 15:44:06 2002 +0100
@@ -647,6 +647,25 @@
!UIHelpTool methodsFor:'building'!
+buildAndMergeFromClass:aClass
+ "class and selector changed; merge old definitions
+ into definitions loaded from a class
+ "
+ |saveDictionary saveHelpKey|
+
+ saveDictionary := dictionary.
+ saveHelpKey := self helpKey.
+
+ self buildFromClass:aClass.
+
+ saveDictionary notEmpty ifTrue:[
+ dictionary declareAllFrom:saveDictionary.
+ self updateList.
+ ].
+ self helpKey:saveHelpKey.
+ self modified:true.
+!
+
buildFromClass:aClass
"reads the help dictionary from aClass and find remaining classes
'between' aClass and ApplicationModel"