#REFACTORING by cg draft
authorClaus Gittinger <cg@exept.de>
Sat, 09 Mar 2019 22:22:59 +0100
changeset 3652 2b6236bab321
parent 3651 9fc108cad4bf
child 3653 f66208efcf4b
#REFACTORING by cg class: ResourceSelectionBrowser code saving changed: #resourceSelectorHolder #selectionOfResourceMethod
ResourceSelectionBrowser.st
--- a/ResourceSelectionBrowser.st	Sat Mar 09 22:01:11 2019 +0100
+++ b/ResourceSelectionBrowser.st	Sat Mar 09 22:22:59 2019 +0100
@@ -617,11 +617,9 @@
 resourceSelectorHolder
     "returns the value holder for the name of the selector"
 
-    |holder|
-    (holder := builder bindingAt:#valueOfResourceSelector) isNil ifTrue:[
-        builder aspectAt:#valueOfResourceSelector put:(holder :=  '' asValue).
-    ].
-    ^ holder
+    ^ builder valueAspectFor:#resourceSelectorHolder initialValue:''
+
+    "Modified: / 09-03-2019 / 22:19:19 / Claus Gittinger"
 !
 
 rootOfClassCategories
@@ -690,11 +688,9 @@
 selectionOfResourceMethod
     "returns the value holder for the selected resource method of the resource method list"
 
-    |holder|
-    (holder := builder bindingAt:#selectionOfResourceMethod) isNil ifTrue:[
-	builder aspectAt:#selectionOfResourceMethod put:(holder :=  '' asValue).
-    ].
-    ^ holder
+    ^ builder valueAspectFor:#selectionOfResourceMethod initialValue:''
+
+    "Modified: / 09-03-2019 / 22:19:30 / Claus Gittinger"
 !
 
 valueOfClassName