--- a/CharacterArray.st Fri Feb 13 23:48:41 2015 +0100
+++ b/CharacterArray.st Fri Feb 13 23:51:17 2015 +0100
@@ -288,6 +288,7 @@
"Created: 3.8.1997 / 18:16:40 / cg"
! !
+
!CharacterArray class methodsFor:'cleanup'!
lowSpaceCleanup
@@ -728,6 +729,7 @@
^ self == CharacterArray
! !
+
!CharacterArray methodsFor:'Compatibility-ANSI'!
addLineDelimiters
@@ -4367,6 +4369,8 @@
! !
+
+
!CharacterArray methodsFor:'matching - glob expressions'!
compoundMatch:aString
@@ -5050,6 +5054,7 @@
! !
+
!CharacterArray methodsFor:'padded copying'!
centerPaddedTo:newSize
@@ -5227,9 +5232,9 @@
and:[thirdChar isVowel not ]]) ifTrue:[
"/ exceptions: 3 non-vowels in a row: looks like an abbreviation
(self size > 4) ifTrue:[
- (firstChar = $s) ifTrue:[
- ((secondChar = $c and:[thirdChar = $r])
- or:[ (secondChar = $t and:[thirdChar = $r]) ]) ifTrue:[
+ (firstChar == $s) ifTrue:[
+ ((secondChar == $c and:[thirdChar == $r])
+ or:[ (secondChar == $t and:[thirdChar == $r]) ]) ifTrue:[
(self at:4) isVowel ifTrue:[
^ 'a'
]
@@ -5711,6 +5716,7 @@
"Modified: 17.4.1997 / 12:50:23 / cg"
! !
+
!CharacterArray methodsFor:'special string converting'!
asUnixFilenameString
@@ -6701,6 +6707,7 @@
"
! !
+
!CharacterArray methodsFor:'substring searching'!
findRangeOfString:subString
@@ -7291,14 +7298,15 @@
^ aVisitor visitString:self with:aParameter
! !
+
!CharacterArray class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.567 2015-02-07 15:37:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.568 2015-02-13 22:51:17 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.567 2015-02-07 15:37:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.568 2015-02-13 22:51:17 cg Exp $'
! !