Tools__MethodCategoryList.st
changeset 15268 85d7e14cdce0
parent 15225 74cdc390cf25
child 15321 5b7f637123db
--- a/Tools__MethodCategoryList.st	Fri Feb 13 12:08:49 2015 +0100
+++ b/Tools__MethodCategoryList.st	Fri Feb 13 12:09:04 2015 +0100
@@ -246,7 +246,7 @@
 
 filterClassVars
     filterClassVars isNil ifTrue:[
-        filterClassVars := false asValue.
+        filterClassVars := ValueHolder with:false.
         filterClassVars addDependent:self
     ].
     ^  filterClassVars
@@ -270,7 +270,7 @@
 
 methodVisibilityHolder
     methodVisibilityHolder isNil ifTrue:[
-        methodVisibilityHolder := false asValue.
+        methodVisibilityHolder := ValueHolder with:false.
         methodVisibilityHolder addDependent:self
     ].
     ^  methodVisibilityHolder
@@ -291,7 +291,7 @@
 
 noAllItem
     noAllItem isNil ifTrue:[
-        noAllItem := false asValue.
+        noAllItem := ValueHolder with:false.
         noAllItem addDependent:self
     ].
     ^  noAllItem
@@ -309,7 +309,7 @@
 
 packageFilterOnInput
     packageFilterOnInput isNil ifTrue:[
-        packageFilterOnInput := nil asValue.
+        packageFilterOnInput := ValueHolder with:nil.
         packageFilterOnInput addDependent:self
     ].
     ^  packageFilterOnInput
@@ -370,7 +370,7 @@
 
 showPseudoProtocols
     showPseudoProtocols isNil ifTrue:[
-        showPseudoProtocols := true asValue.
+        showPseudoProtocols := ValueHolder with:true.
         showPseudoProtocols addDependent:self
     ].
     ^  showPseudoProtocols
@@ -388,7 +388,7 @@
 
 variableFilter
     variableFilter isNil ifTrue:[
-        variableFilter := false asValue.
+        variableFilter := ValueHolder with:false.
         variableFilter addDependent:self
     ].
     ^  variableFilter
@@ -2124,11 +2124,11 @@
 !MethodCategoryList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.107 2015-02-07 17:59:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.108 2015-02-13 11:09:04 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.107 2015-02-07 17:59:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__MethodCategoryList.st,v 1.108 2015-02-13 11:09:04 cg Exp $'
 ! !