# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1235684440 -3600
# Node ID 441ea25ad1fd9654e3862fa09ff6d27680940d82
# Parent  0e83301fc9229f4bd8f6de1f866ceca752a853f6
Do not complain about obsolete classes which are unloaded when searching

diff -r 0e83301fc922 -r 441ea25ad1fd SystemBrowser.st
--- a/SystemBrowser.st	Thu Feb 26 22:37:09 2009 +0100
+++ b/SystemBrowser.st	Thu Feb 26 22:40:40 2009 +0100
@@ -2045,7 +2045,7 @@
 
         checkBlock := [:cls |
             (checkedClasses includes:cls) ifFalse:[
-                cls isObsolete ifTrue:[
+                (cls isObsolete and:[cls isLoaded]) ifTrue:[
                     Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
                 ] ifFalse:[
                     cls methodDictionary keysAndValuesDo:[:sel :method |
@@ -5017,7 +5017,7 @@
 
     checkBlock := [:cls |
         (checkedClasses includes:cls) ifFalse:[
-            cls isObsolete ifTrue:[
+            (cls isObsolete and:[cls isLoaded]) ifTrue:[
                 Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
             ] ifFalse:[
                 cls methodDictionary keysAndValuesDo:[:sel :method |
@@ -5426,7 +5426,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.258 2008-12-19 11:33:56 fm Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.259 2009-02-26 21:40:40 stefan Exp $'
 ! !
 
 SystemBrowser initialize!