--- a/Tools__ClassList.st	Fri Feb 13 12:05:53 2015 +0100
+++ b/Tools__ClassList.st	Fri Feb 13 12:07:29 2015 +0100
@@ -274,8 +274,8 @@
 
 hidePrivateClasses
     hidePrivateClasses isNil ifTrue:[
-	hidePrivateClasses := false asValue.
-	hidePrivateClasses addDependent:self.
+        hidePrivateClasses := ValueHolder with:false.
+        hidePrivateClasses addDependent:self.
     ].
     ^ hidePrivateClasses.
 
@@ -296,8 +296,8 @@
 
 markApplicationsHolder
     markApplicationsHolder isNil ifTrue:[
-	markApplicationsHolder := true asValue.
-	markApplicationsHolder addDependent:self.
+        markApplicationsHolder := ValueHolder with:true.
+        markApplicationsHolder addDependent:self.
     ].
     ^ markApplicationsHolder.
 !
@@ -316,8 +316,8 @@
 
 meta
     meta isNil ifTrue:[
-	meta := false asValue.
-	meta addDependent:self
+        meta := ValueHolder with:false.
+        meta addDependent:self
     ].
     ^ meta
 
@@ -343,8 +343,8 @@
 
 selectedClassNameIndices
     selectedClassNameIndices isNil ifTrue:[
-	selectedClassNameIndices := #() asValue.
-	selectedClassNameIndices addDependent:self
+        selectedClassNameIndices := ValueHolder with:#().
+        selectedClassNameIndices addDependent:self
     ].
     ^ selectedClassNameIndices.
 
@@ -364,29 +364,9 @@
     ^ self selectionHolder:aValueHolder
 !
 
-showClassPackages
-    showClassPackages isNil ifTrue:[
-	showClassPackages := false asValue.
-	showClassPackages addDependent:self.
-    ].
-    ^ showClassPackages.
-
-    "Created: / 24.2.2000 / 15:06:44 / cg"
-!
-
-showClassPackages:aValueHolder
-    showClassPackages notNil ifTrue:[
-	showClassPackages removeDependent:self
-    ].
-    showClassPackages := aValueHolder.
-    showClassPackages notNil ifTrue:[
-	showClassPackages addDependent:self
-    ].
-!
-
 sortByNameAndInheritance
     sortByNameAndInheritance isNil ifTrue:[
-        sortByNameAndInheritance := false asValue.
+        sortByNameAndInheritance := ValueHolder with:false.
         sortByNameAndInheritance addDependent:self.
     ].
     ^ sortByNameAndInheritance.
@@ -2145,10 +2125,10 @@
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.89 2015-02-11 17:37:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.90 2015-02-13 11:07:29 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.89 2015-02-11 17:37:10 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__ClassList.st,v 1.90 2015-02-13 11:07:29 cg Exp $'
 ! !