--- a/Tools_ClassList.st	Fri May 30 14:28:29 2008 +0200
+++ b/Tools_ClassList.st	Fri May 30 14:52:30 2008 +0200
@@ -16,7 +16,7 @@
 BrowserList subclass:#ClassList
 	instanceVariableNames:'classList classNameList meta lastSelectedClasses
 		selectedClassNameIndices currentNamespace hidePrivateClasses
-		unloadedClassesColor markApplicationsHolder'
+		unloadedClassesColor markApplicationsHolder rejectedPackages'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Interface-Browsers-New'
@@ -1077,12 +1077,15 @@
                 (packageFilter isNil
                 or:[self isClass:cls shownWithPackageFilter:packageFilter]) ifTrue:[
                     (classesAlready includes:cls) ifFalse:[
-                        classesAlready add:cls.
-                        (owner := cls owningClass) notNil ifTrue:[
-                            bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
-                            bucket add:cls.
-                        ] ifFalse:[
-                            classesOrdered add:cls.
+                        (rejectedPackages isNil
+                        or:[(rejectedPackages includes:cls package) not]) ifTrue:[
+                            classesAlready add:cls.
+                            (owner := cls owningClass) notNil ifTrue:[
+                                bucket := privateClassesPerClass at:owner ifAbsentPut:[SortedCollection new sortBlock:[:a :b | (a name ? '?') < (b name ? '?')] ].
+                                bucket add:cls.
+                            ] ifFalse:[
+                                classesOrdered add:cls.
+                            ]
                         ]
                     ]
                 ]
@@ -1651,10 +1654,16 @@
 					    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.33 2008-04-21 16:06:38 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools_ClassList.st,v 1.34 2008-05-30 12:52:30 cg Exp $'
 ! !