class: SystemBrowser
authorClaus Gittinger <cg@exept.de>
Fri, 04 Jul 2014 12:29:48 +0200
changeset 14587 012250a2a789
parent 14586 15f0df501dd2
child 14588 194e14b18769
class: SystemBrowser changed: #searchBlockForAllCallsOn:ignoreCase:match: use new copyButLast
SystemBrowser.st
--- 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 $'
 ! !