--- a/ByteArray.st Mon Jul 12 06:58:22 2010 +0100
+++ b/ByteArray.st Mon Jul 12 17:20:36 2010 +0100
@@ -173,6 +173,7 @@
"Modified: 23.4.1996 / 15:56:25 / cg"
! !
+
!ByteArray methodsFor:'Compatibility-Squeak'!
bitXor:aByteArray
@@ -2588,8 +2589,12 @@
|s|
s := '' writeStream.
- self do:[:byte|
- byte printOn:s base:16 size:2 fill:$0.
+ self do:[:byteOrCharacter |
+ |byte|
+ byte := byteOrCharacter isCharacter
+ ifTrue:[byteOrCharacter codePoint]
+ ifFalse:[byteOrCharacter].
+ byte printOn:s base:16 size:2 fill:$0.
].
^ s contents.
@@ -2600,6 +2605,8 @@
"
ByteArray fromHexString:#[1 2 3 4 10 17] hexPrintString
"
+
+ "Modified: / 03-07-2010 / 01:59:19 / cg"
!
hexPrintStringWithSeparator:aSeparatorStringOrCharacter
@@ -2923,6 +2930,7 @@
"
! !
+
!ByteArray methodsFor:'searching'!
indexOf:aByte startingAt:start
@@ -2978,6 +2986,7 @@
"
! !
+
!ByteArray methodsFor:'testing'!
isByteArray
@@ -3005,16 +3014,17 @@
!ByteArray class methodsFor:'documentation'!
version
- ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.201 2010/04/14 08:33:59 cg Exp ยง'
+ ^ 'Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.202 2010/07/03 00:00:40 cg Exp '
!
version_SVN
- ^ '$Id: ByteArray.st 10534 2010-07-01 18:21:34Z vranyj1 $'
+ ^ '$Id: ByteArray.st 10544 2010-07-12 16:20:36Z vranyj1 $'
! !
+