class: SystemBrowser
changed: #searchBlockForAllCallsOn:ignoreCase:match:
use new copyButLast
--- a/SystemBrowser.st Fri Jul 04 12:28:31 2014 +0200
+++ b/SystemBrowser.st Fri Jul 04 12:29:48 2014 +0200
@@ -5111,10 +5111,10 @@
quickMatch := aSelectorString.
(quickMatch startsWith:'*') ifTrue:[
- quickMatch := quickMatch copyFrom:2
+ quickMatch := quickMatch copyButFirst
].
(quickMatch endsWith:'*') ifTrue:[
- quickMatch := quickMatch copyButLast:1
+ quickMatch := quickMatch copyButLast
].
(quickMatch includes:$:) ifTrue:[
quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
@@ -6986,15 +6986,15 @@
!SystemBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.346 2014-07-04 10:29:48 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.346 2014-07-04 10:29:48 cg Exp $'
!
version_SVN
- ^ '$Id: SystemBrowser.st,v 1.345 2014-06-14 10:25:34 cg Exp $'
+ ^ '$Id: SystemBrowser.st,v 1.346 2014-07-04 10:29:48 cg Exp $'
! !