changeset 1184 | c67bdfe67afd |
parent 963 | 62cdb7923a3b |
child 1198 | 6b7cfe55105b |
--- a/UIHelpTool.st Fri Jul 09 21:26:34 1999 +0200 +++ b/UIHelpTool.st Fri Jul 09 21:26:59 1999 +0200 @@ -581,11 +581,7 @@ "returns the value holder of the specClass and its superclasses which are subclasses of ApplicationModel" - |holder| - (holder := builder bindingAt:#listOfHelpSpecClasses) isNil ifTrue:[ - builder aspectAt:#listOfHelpSpecClasses put: (holder := List new) - ]. - ^ holder + ^ builder listAspectFor:#listOfHelpSpecClasses !