class: Tools::BrowserList
authorClaus Gittinger <cg@exept.de>
Fri, 13 Feb 2015 12:05:53 +0100
changeset 15265 5758c44359cd
parent 15264 d44fd9c7c25c
child 15266 90c0957d8f92
class: Tools::BrowserList changed:6 methods
Tools__BrowserList.st
--- a/Tools__BrowserList.st	Fri Feb 13 12:02:41 2015 +0100
+++ b/Tools__BrowserList.st	Fri Feb 13 12:05:53 2015 +0100
@@ -338,8 +338,8 @@
 
 hideUnloadedClasses
     hideUnloadedClasses isNil ifTrue:[
-	hideUnloadedClasses := false asValue.
-	hideUnloadedClasses addDependent:self.
+        hideUnloadedClasses := ValueHolder with:false.
+        hideUnloadedClasses addDependent:self.
     ].
     ^ hideUnloadedClasses.
 
@@ -450,7 +450,7 @@
 
 pseudoListLabelHolder
     pseudoListLabelHolder isNil ifTrue:[
-	pseudoListLabelHolder := '' asValue.
+        pseudoListLabelHolder := ValueHolder with:''.
     ].
     ^ pseudoListLabelHolder
 !
@@ -502,7 +502,7 @@
                 holder addDependent:self.
             ] ifFalse:[
                 showAllClassesInNameSpaceOrganisation isNil ifTrue:[
-                    showAllClassesInNameSpaceOrganisation := false asValue.
+                    showAllClassesInNameSpaceOrganisation := ValueHolder with:false.
                     showAllClassesInNameSpaceOrganisation addDependent:self.
                 ].
                 holder := showAllClassesInNameSpaceOrganisation.
@@ -529,8 +529,8 @@
 
 showClassPackages
     showClassPackages isNil ifTrue:[
-	showClassPackages := false asValue.
-	showClassPackages addDependent:self.
+        showClassPackages := ValueHolder with:false.
+        showClassPackages addDependent:self.
     ].
     ^ showClassPackages.
 
@@ -550,7 +550,7 @@
 
 showCoverageInformation
     showCoverageInformation isNil ifTrue:[
-        showCoverageInformation := false asValue.
+        showCoverageInformation := ValueHolder with:false.
         showCoverageInformation addDependent:self.
     ].
     ^ showCoverageInformation.
@@ -600,8 +600,8 @@
 
 sortBy
     sortBy isNil ifTrue:[
-	sortBy := nil asValue.
-	sortBy addDependent:self.
+        sortBy := ValueHolder with:nil.
+        sortBy addDependent:self.
     ].
     ^ sortBy.
 
@@ -2103,10 +2103,10 @@
 !BrowserList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.81 2015-02-13 11:05:53 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.80 2015-02-07 17:48:00 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__BrowserList.st,v 1.81 2015-02-13 11:05:53 cg Exp $'
 ! !