# HG changeset patch
# User ca
# Date 1040136246 -3600
# Node ID 60bd14266560a4982c2990b6cf846066e105b45a
# Parent  76cd515f008ad17e0b2dfaa38295cdf75daf949f
*** empty log message ***

diff -r 76cd515f008a -r 60bd14266560 UIHelpTool.st
--- 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" 
diff -r 76cd515f008a -r 60bd14266560 UIPainter.st
--- a/UIPainter.st	Tue Dec 17 11:20:46 2002 +0100
+++ b/UIPainter.st	Tue Dec 17 15:44:06 2002 +0100
@@ -3526,7 +3526,7 @@
 doDefineClassAndSelector
     "launches a dialog for defining class, superclass, and selector of the application"
 
-    |again tmp helpDict helpKey helpTool|
+    |again tmp|
 
     [
         again := false.
@@ -3572,16 +3572,8 @@
     specClass := specClass isBehavior ifTrue:[specClass name]
                                       ifFalse:[specClass].
 
-    helpTool := self helpTool.
-    helpDict := helpTool dictionary.
-    helpKey  := helpTool helpKey.
-    helpTool buildFromClass:specClass.    
-    helpTool dictionary declareAllFrom: helpDict.
-    helpTool updateList.
-    helpTool helpKey: helpKey.
     self clearModifiedFlag.
-    helpTool modified: true.
-
+    self helpTool buildAndMergeFromClass:specClass.
     self updateInfoLabel
 
     "Modified: / 16.7.1998 / 18:26:33 / cg"