# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 898350353 -7200
# Node ID 32b1012426e37172ed390b8b5ddab4d0bf6dbf4a
# Parent  f82d184bf871531507220d831ec98fbf1ec2a7f9
checkin from browser

diff -r f82d184bf871 -r 32b1012426e3 UIHelpTool.st
--- a/UIHelpTool.st	Sat Jun 20 15:42:23 1998 +0200
+++ b/UIHelpTool.st	Sat Jun 20 15:45:53 1998 +0200
@@ -618,8 +618,6 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel" 
 
-    self createBuilder.
-
     modified := false.
     specClass notNil
     ifTrue:
@@ -645,7 +643,7 @@
 
     self updateList
 
-    "Modified: / 19.6.1998 / 03:35:52 / cg"
+    "Modified: / 20.6.1998 / 14:54:46 / cg"
 !
 
 buildFromClass: aClass andSelector: aSelector
diff -r f82d184bf871 -r 32b1012426e3 UISpecificationTool.st
--- a/UISpecificationTool.st	Sat Jun 20 15:42:23 1998 +0200
+++ b/UISpecificationTool.st	Sat Jun 20 15:45:53 1998 +0200
@@ -623,15 +623,16 @@
 releaseResources
     "release resources
     "
-    |frame appl view vscroller|
+    |frame appl|
 
-    frame := self windowFrame.
-    appl  := builder application.
-    self createBuilder.
-    builder application:appl.
-    builder componentAt:#Frame put:frame.
+    builder notNil ifTrue:[
+        frame := self windowFrame.
+        appl  := builder application.
+        builder application:appl.
+        builder componentAt:#Frame put:frame.
+    ].
 
-    "Modified: / 19.6.1998 / 03:35:56 / cg"
+    "Modified: / 20.6.1998 / 15:45:20 / cg"
 !
 
 specificationFor:aKey