--- 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