--- a/ClassDefinitionChange.st Wed Oct 16 01:22:03 2013 +0100
+++ b/ClassDefinitionChange.st Mon Nov 04 11:11:35 2013 -0300
@@ -600,7 +600,7 @@
sel := parseTree selector.
(sel endsWith:':privateIn:') ifTrue:[^ self].
- catIdx := sel asSymbol keywords indexOf:'category:'.
+ catIdx := sel keywords indexOf:'category:'.
catIdx ~~ 0 ifTrue:[
cat := (parseTree args at:catIdx) evaluate.
].
@@ -716,11 +716,11 @@
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
!
version_HG
@@ -729,6 +729,6 @@
!
version_SVN
- ^ '$Id: ClassDefinitionChange.st,v 1.85 2013-08-15 14:08:03 stefan Exp $'
+ ^ '$Id: ClassDefinitionChange.st,v 1.86 2013-09-28 12:10:20 cg Exp $'
! !
--- a/MethodFinder.st Wed Oct 16 01:22:03 2013 +0100
+++ b/MethodFinder.st Mon Nov 04 11:11:35 2013 -0300
@@ -767,7 +767,7 @@
#'copyReplaceAll:with:asTokens:'
"ST/X copying"
- copyWithoutLast: copyLast: copyFrom: copyTo:
+ copyButLast: copyLast: copyFrom: copyTo:
"ST/X testing"
longestCommonPrefix
) do: [:sel | Approved add: sel].
@@ -1637,11 +1637,11 @@
!MethodFinder class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.35 2013-09-24 20:07:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.36 2013-09-28 12:54:57 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.35 2013-09-24 20:07:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodFinder.st,v 1.36 2013-09-28 12:54:57 cg Exp $'
!
version_HG