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