--- 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
--- 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