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