--- a/SystemBrowser.st	Wed May 30 21:46:55 2012 +0100
+++ b/SystemBrowser.st	Tue Jun 05 15:49:00 2012 +0100
@@ -5393,7 +5393,7 @@
     "return all instance- (if wantInst is true) and/or classmethods (if wantClass is true) 
      from classes in aCollectionOfClasses, where aBlock evaluates to true."
 
-    |list checkedClasses checkBlock|
+    |list checkedClasses checkBlock nClasses nClassesDone|
 
     checkedClasses := IdentitySet new.
     list := OrderedCollection new.
@@ -5413,6 +5413,9 @@
         ]
     ].
 
+    nClasses := aCollectionOfClasses size.
+    nClassesDone := 0.
+
     aCollectionOfClasses do:[:aClass |
         (aClass notNil and:[aClass isObsolete not]) ifTrue:[
             "
@@ -5427,10 +5430,16 @@
 "/                Transcript show:'searching '; show:aClass class name; showCR:' ...'; endEntry.
                 checkBlock value:(aClass class)
             ].
-            Processor yield
-        ]
+            nClassesDone > 5 ifTrue:[
+                "/ Processor yield
+                ProgressNotification progressPercentage:(nClassesDone / nClasses)*100.
+            ].
+        ].
+        nClassesDone := nClassesDone + 1.
     ].
     ^ list
+
+    "Modified: / 15-05-2012 / 10:36:44 / cg"
 !
 
 findMethodsIn:aCollectionOfClasses where:aBlock
@@ -5836,11 +5845,11 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '§Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.300 2012/03/22 06:34:51 cg Exp §'
+    ^ '§Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.301 2012/05/15 09:29:00 cg Exp §'
 !
 
 version_SVN
-    ^ '$Id: SystemBrowser.st 7978 2012-04-13 13:15:47Z vranyj1 $'
+    ^ '$Id: SystemBrowser.st 8007 2012-06-05 14:49:00Z vranyj1 $'
 ! !
 
 SystemBrowser initialize!