# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 931548419 -7200
# Node ID c67bdfe67afddb115bfdee2123ad190fa44c05d5
# Parent  ee9956e2689b2c9db57fdcff08ec3e1806f72874
checkin from browser

diff -r ee9956e2689b -r c67bdfe67afd ResourceSelectionBrowser.st
--- 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
diff -r ee9956e2689b -r c67bdfe67afd UIHelpTool.st
--- 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
 
 !