# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 898214320 -7200
# Node ID dfa9d6df10d83ffb2b6e17bb7739688644071c35
# Parent  1ba402cdb5bedffa03289e23fb92465caf475ed0
need a builder to be present in #buildFromClass:
(had to be changed in AppModel to create the builder later)

diff -r 1ba402cdb5be -r dfa9d6df10d8 UIHelpTool.st
--- a/UIHelpTool.st	Thu Jun 18 19:15:53 1998 +0200
+++ b/UIHelpTool.st	Fri Jun 19 01:58:40 1998 +0200
@@ -618,6 +618,10 @@
     "reads the help dictionary from aClass and find remaining classes 
      'between' aClass and ApplicationModel" 
 
+    builder isNil ifTrue:[
+        builder := self builderClass new
+    ].
+
     modified := false.
     specClass notNil
     ifTrue:
@@ -642,6 +646,8 @@
     ].
 
     self updateList
+
+    "Modified: / 19.6.1998 / 01:52:15 / cg"
 !
 
 buildFromClass: aClass andSelector: aSelector