#UI_ENHANCEMENT by cg
class: SystemBrowser
changed:
#allMethodsIn:inst:class:where:
#findMethodsIn:inst:class:where:
stupid logging messages
--- a/SystemBrowser.st Tue Mar 14 20:30:21 2017 +0100
+++ b/SystemBrowser.st Tue Mar 14 20:36:26 2017 +0100
@@ -2710,7 +2710,7 @@
checkBlock := [:cls |
(checkedClasses includes:cls) ifFalse:[
(cls isObsolete and:[cls isLoaded]) ifTrue:[
- Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
+ Logger debug:'Browser method search: skipping obsolete class: %1' with:cls displayString
] ifFalse:[
cls methodDictionary keysAndValuesDo:[:sel :method |
(aBlock value:cls value:method value:sel) ifTrue:[
@@ -2744,8 +2744,8 @@
].
^ list
- "Created: / 24.1.1997 / 19:41:12 / cg"
- "Modified: / 14.12.1999 / 14:59:02 / cg"
+ "Created: / 24-01-1997 / 19:41:12 / cg"
+ "Modified: / 14-03-2017 / 12:05:41 / cg"
!
allMethodsIn:aCollectionOfClasses where:aBlock
@@ -6509,7 +6509,7 @@
checkBlock := [:cls |
(checkedClasses includes:cls) ifFalse:[
(cls isObsolete and:[cls isLoaded]) ifTrue:[
- Transcript showCR:'Browser method search: skipping obsolete class: ' , cls displayString
+ Logger debug:'Browser method search: skipping obsolete class: %1' with:cls displayString
] ifFalse:[
aBlock numArgs == 1 ifTrue:[
cls methodDictionary keysAndValuesDo:[:sel :method |
@@ -6565,7 +6565,7 @@
].
^ list
- "Modified: / 23-02-2017 / 16:52:55 / cg"
+ "Modified: / 14-03-2017 / 12:05:57 / cg"
!
findMethodsIn:aCollectionOfClasses where:aBlock