--- a/ResourceSelectionBrowser.st Fri Jul 09 21:26:34 1999 +0200
+++ b/ResourceSelectionBrowser.st Fri Jul 09 21:26:59 1999 +0200
@@ -496,11 +496,7 @@
listOfResourceMethods
"returns the value holder for the list of the resource methods"
- |holder|
- (holder := builder bindingAt:#listOfResourceMethods) isNil ifTrue:[
- builder aspectAt:#listOfResourceMethods put:(holder := List new).
- ].
- ^ holder
+ ^ builder listAspectFor:#listOfResourceMethods
!
resourceMethodColumns
--- 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
!