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"