Mercurial Mercurial > hg > stx-libtool / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Do not complain about obsolete classes which are unloaded when searching
authorStefan Vogel <sv@exept.de>
Thu, 26 Feb 2009 22:40:40 +0100
changeset 8554 441ea25ad1fd
parent 8553 0e83301fc922
child 8555 2a2974f0cf4b
Do not complain about obsolete classes which are unloaded when searching
SystemBrowser.st file | annotate | diff | comparison | revisions 
--- 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!
hg/stx-libtool