equal
deleted
inserted
replaced
2043 list := OrderedCollection new. |
2043 list := OrderedCollection new. |
2044 detectedMethods := IdentitySet new. |
2044 detectedMethods := IdentitySet new. |
2045 |
2045 |
2046 checkBlock := [:cls | |
2046 checkBlock := [:cls | |
2047 (checkedClasses includes:cls) ifFalse:[ |
2047 (checkedClasses includes:cls) ifFalse:[ |
2048 cls isObsolete ifTrue:[ |
2048 (cls isObsolete and:[cls isLoaded]) ifTrue:[ |
2049 Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString |
2049 Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString |
2050 ] ifFalse:[ |
2050 ] ifFalse:[ |
2051 cls methodDictionary keysAndValuesDo:[:sel :method | |
2051 cls methodDictionary keysAndValuesDo:[:sel :method | |
2052 (aBlock value:cls value:method value:sel) ifTrue:[ |
2052 (aBlock value:cls value:method value:sel) ifTrue:[ |
2053 "/ care for methods being in multiple classes (should not happen) |
2053 "/ care for methods being in multiple classes (should not happen) |
5015 checkedClasses := IdentitySet new. |
5015 checkedClasses := IdentitySet new. |
5016 list := OrderedCollection new. |
5016 list := OrderedCollection new. |
5017 |
5017 |
5018 checkBlock := [:cls | |
5018 checkBlock := [:cls | |
5019 (checkedClasses includes:cls) ifFalse:[ |
5019 (checkedClasses includes:cls) ifFalse:[ |
5020 cls isObsolete ifTrue:[ |
5020 (cls isObsolete and:[cls isLoaded]) ifTrue:[ |
5021 Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString |
5021 Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString |
5022 ] ifFalse:[ |
5022 ] ifFalse:[ |
5023 cls methodDictionary keysAndValuesDo:[:sel :method | |
5023 cls methodDictionary keysAndValuesDo:[:sel :method | |
5024 (aBlock value:cls value:method value:sel) ifTrue:[ |
5024 (aBlock value:cls value:method value:sel) ifTrue:[ |
5025 list add:method "/ (cls name , ' ' , sel) |
5025 list add:method "/ (cls name , ' ' , sel) |
5424 ! ! |
5424 ! ! |
5425 |
5425 |
5426 !SystemBrowser class methodsFor:'documentation'! |
5426 !SystemBrowser class methodsFor:'documentation'! |
5427 |
5427 |
5428 version |
5428 version |
5429 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.258 2008-12-19 11:33:56 fm Exp $' |
5429 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.259 2009-02-26 21:40:40 stefan Exp $' |
5430 ! ! |
5430 ! ! |
5431 |
5431 |
5432 SystemBrowser initialize! |
5432 SystemBrowser initialize! |