--- 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 $'
! !