equal
deleted
inserted
replaced
915 "return a collection of methods which pass the given test. |
915 "return a collection of methods which pass the given test. |
916 wantInst/wantClass control if instMethods and/or classMethods are to be |
916 wantInst/wantClass control if instMethods and/or classMethods are to be |
917 considered. |
917 considered. |
918 Only classes in aCollectionOfClasses are inspected in the search" |
918 Only classes in aCollectionOfClasses are inspected in the search" |
919 |
919 |
920 |list| |
920 |list activePriority| |
921 |
921 |
922 " |
922 " |
923 since this may take a long time, lower my priority ... |
923 since this may take a long time, lower my priority ... |
924 " |
924 " |
|
925 activePriority := Processor activePriority. |
925 Processor activeProcess |
926 Processor activeProcess |
926 withPriority:Processor activePriority-1 to:Processor activePriority |
927 withPriority:activePriority-1 to:activePriority |
927 do:[ |
928 do:[ |
928 |checkedClasses checkBlock detectedMethods| |
929 |checkedClasses checkBlock detectedMethods| |
929 |
930 |
930 checkedClasses := IdentitySet new. |
931 checkedClasses := IdentitySet new. |
931 list := OrderedCollection new. |
932 list := OrderedCollection new. |
3002 ! ! |
3003 ! ! |
3003 |
3004 |
3004 !SystemBrowser class methodsFor:'documentation'! |
3005 !SystemBrowser class methodsFor:'documentation'! |
3005 |
3006 |
3006 version |
3007 version |
3007 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.113 2000-09-01 10:10:53 cg Exp $' |
3008 ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.114 2000-09-09 21:00:03 cg Exp $' |
3008 ! ! |
3009 ! ! |
3009 SystemBrowser initialize! |
3010 SystemBrowser initialize! |