# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 898220194 -7200
# Node ID 9b565069344dfacc6fb2b8144b08c9362f48222c
# Parent  65588145cd06ebe3a2092d0172899f76c738970c
checkin from browser

diff -r 65588145cd06 -r 9b565069344d UIHelpTool.st
--- a/UIHelpTool.st	Fri Jun 19 01:59:16 1998 +0200
+++ b/UIHelpTool.st	Fri Jun 19 03:36:34 1998 +0200
@@ -618,9 +618,7 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel" 
 
-    builder isNil ifTrue:[
-        builder := self builderClass new
-    ].
+    self createBuilder.
 
     modified := false.
     specClass notNil
@@ -647,7 +645,7 @@
 
     self updateList
 
-    "Modified: / 19.6.1998 / 01:52:15 / cg"
+    "Modified: / 19.6.1998 / 03:35:52 / cg"
 !
 
 buildFromClass: aClass andSelector: aSelector
diff -r 65588145cd06 -r 9b565069344d UISpecificationTool.st
--- a/UISpecificationTool.st	Fri Jun 19 01:59:16 1998 +0200
+++ b/UISpecificationTool.st	Fri Jun 19 03:36:34 1998 +0200
@@ -627,11 +627,11 @@
 
     frame := self windowFrame.
     appl  := builder application.
-    builder := self builderClass new.
+    self createBuilder.
     builder application:appl.
     builder componentAt:#Frame put:frame.
 
-    "Modified: / 19.6.1998 / 01:42:50 / cg"
+    "Modified: / 19.6.1998 / 03:35:56 / cg"
 !
 
 specificationFor:aKey