UIPainter.st
changeset 1663 60bd14266560
parent 1661 5c0f73b1bd07
child 1669 e6ea33c843a0
--- 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"