--- a/Tools_ClassList.st	Fri May 30 14:52:30 2008 +0200
+++ b/Tools_ClassList.st	Fri May 30 15:11:24 2008 +0200
@@ -16,7 +16,7 @@
 BrowserList subclass:#ClassList
 	instanceVariableNames:'classList classNameList meta lastSelectedClasses
 		selectedClassNameIndices currentNamespace hidePrivateClasses
-		unloadedClassesColor markApplicationsHolder rejectedPackages'
+		unloadedClassesColor markApplicationsHolder classFilterBlock'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -1077,8 +1077,8 @@
                 (packageFilter isNil
                 or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
                     (classesAlready includes:cls) ifFalse:[
-                        (rejectedPackages isNil
-                        or:[(rejectedPackages includes:cls package) not]) ifTrue:[
+                        (classFilterBlock isNil
+                        or:[(classFilterBlock value:cls)]) ifTrue:[
                             classesAlready add:cls.
                             (owner := cls owningClass) notNil ifTrue:[
                                 bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
@@ -1634,6 +1634,12 @@
     ].
 !
 
+classFilterBlock:aBlock
+    "use this to filter away unwanted packages"
+
+    classFilterBlock := aBlock
+!
+
 postBuildWith:aBuilder
     |classListView|
 
@@ -1654,16 +1660,10 @@
 					    DropObject newClass:class.
 					 ].
     ]
-!
-
-rejectedPackages:aSetOfPackageIDs
-    "use this to filter away unwanted packages"
-
-    rejectedPackages := aSetOfPackageIDs
 ! !
 
 !ClassList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.34 2008-05-30 12:52:30 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.35 2008-05-30 13:11:24 cg Exp $'
 ! !