--- a/SystemBrowser.st Tue Sep 15 14:12:23 2009 +0200
+++ b/SystemBrowser.st Tue Sep 15 14:12:34 2009 +0200
@@ -705,7 +705,7 @@
"/ if nothing matched - try substring matches
classNames size == 0 ifTrue:[
- className isUppercaseFirst ifTrue:[
+ aMatchString isUppercaseFirst ifTrue:[
classNames := substringMatchingNames.
].
"/ if nothing matched - try caseless substring matches
@@ -3054,7 +3054,7 @@
^ self
browseImplementorsOf:aSelectorString
in:aSetOfClasses
- title:(self classResources string:'Implementors of: %1' with:aSelectorString)
+ title:(self classResources string:'Implementors of: %1' with:aSelectorString allBold)
"
SystemBrowser browseImplementorsOf:#+ in:(Number withAllSubclasses)
@@ -3110,7 +3110,7 @@
top20 sortBlock:[:a :b | (a spellAgainst:aSelectorString) > (b spellAgainst:aSelectorString)].
Smalltalk allClasses do:[:cls |
cls instAndClassSelectorsAndMethodsDo:[:s :m |
- (s spellAgainst:aSelectorString) > 30 ifTrue:[
+ (s spellAgainst:aSelectorString) > 50 ifTrue:[
(allSelectors includes:s) ifFalse:[
allSelectors add:s.
top20 add:s.
@@ -3120,7 +3120,7 @@
]
].
choice := Dialog
- choose:(title allBold,' - none found.\\Browse implementors of a similar selector or cancel:' withCRs)
+ choose:(title,' - none found.\\Browse implementors of a similar selector or cancel:' withCRs)
fromList:top20
lines:10.
choice notEmptyOrNil ifTrue:[
@@ -5707,7 +5707,7 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.263 2009-09-15 09:32:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.264 2009-09-15 12:12:34 cg Exp $'
! !
SystemBrowser initialize!