UIHelpTool.st
changeset 868 dfa9d6df10d8
parent 835 13793eec85d5
child 870 9b565069344d
--- 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