# HG changeset patch
# User Stefan Vogel <sv@exept.de>
# Date 1366895479 -7200
# Node ID 7cccc4a7733c880a7c9b34c6f6f02bcf7eddcf91
# Parent  b412eb74759bf2dcb8806a568cd51cfdf90386bc
Changed usage of deprecated #copyWithoutLast: to #copyButLast:

diff -r b412eb74759b -r 7cccc4a7733c SystemBrowser.st
--- a/SystemBrowser.st	Thu Apr 25 15:11:09 2013 +0200
+++ b/SystemBrowser.st	Thu Apr 25 15:11:19 2013 +0200
@@ -4547,7 +4547,7 @@
             quickMatch := quickMatch copyFrom:2
         ].
         (quickMatch endsWith:'*') ifTrue:[
-            quickMatch := quickMatch copyWithoutLast:1
+            quickMatch := quickMatch copyButLast:1
         ].
         (quickMatch includes:$:) ifTrue:[
             quickMatch := quickMatch copyTo:(quickMatch indexOf:$:)-1.
@@ -5806,7 +5806,7 @@
 
             (clsName endsWith:' class') ifTrue:[
                 isMeta := true.
-                clsName := clsName copyWithoutLast:6 "copyTo:(clsName size - 5)"
+                clsName := clsName copyButLast:6 "copyTo:(clsName size - 5)"
             ] ifFalse:[
                 isMeta := false
             ].
@@ -5851,7 +5851,7 @@
         (sel startsWith:'#') ifTrue:[
             sel2 := sel copyFrom:2.
             ((sel2 startsWith:'''') and:[(sel2 endsWith:'''')]) ifTrue:[
-                sel2 := (sel2 copyFrom:2) copyWithoutLast:1
+                sel2 := (sel2 copyFrom:2) copyButLast:1
             ].
             sel2 asSymbolIfInterned notNil ifTrue:[
                 ^ sel2
@@ -6002,7 +6002,7 @@
 !SystemBrowser class methodsFor:'documentation'!
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.313 2013-04-03 13:09:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/SystemBrowser.st,v 1.314 2013-04-25 13:11:19 stefan Exp $'
 !
 
 version_SVN