(none)
authormkobetic
Tue, 31 Jan 2012 00:52:23 +0000
changeset 81 91f029a5eac1
parent 80 c31b66a25f80
child 82 a8384560bf30
(none)
support/Xtreams__InterpretedBytes.st
support/stx_goodies_xtreams_support.st
--- a/support/Xtreams__InterpretedBytes.st	Mon Jan 30 23:36:25 2012 +0000
+++ b/support/Xtreams__InterpretedBytes.st	Tue Jan 31 00:52:23 2012 +0000
@@ -59,19 +59,19 @@
 
 long
 
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i] with: [:b :i :o | b unsignedLongAt: i put: o])
+        ^(Array with: 4 with: "DwordArray" Array with: [:b :i | b unsignedLongAt: i] with: [:b :i :o | b unsignedLongAt: i put: o])
 !
 
 long_be
 
-	self isBigEndian ifTrue: [ ^self long ].
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i bigEndian: true ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: true])
+        self isBigEndian ifTrue: [ ^self long ].
+        ^(Array with: 4 with: "DwordArray" Array with: [:b :i | b unsignedLongAt: i bigEndian: true ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: true])
 !
 
 long_le
 
-	self isBigEndian ifFalse: [ ^self long ].
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i bigEndian: false ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: false])
+        self isBigEndian ifFalse: [ ^self long ].
+        ^(Array with: 4 with: "DwordArray" Array  with: [:b :i | b unsignedLongAt: i bigEndian: false ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: false])
 !
 
 longlong
@@ -183,19 +183,19 @@
 
 unsignedLong
 
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i] with: [:b :i :o | b unsignedLongAt: i put: o])
+        ^(Array with: 4 with: "DwordArray" Array with: [:b :i | b unsignedLongAt: i] with: [:b :i :o | b unsignedLongAt: i put: o])
 !
 
 unsignedLong_be
 
-	self isBigEndian ifTrue: [ ^self unsignedLong ].
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i bigEndian: true ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: true])
+        self isBigEndian ifTrue: [ ^self unsignedLong ].
+        ^(Array with: 4 with: "DwordArray" Array with: [:b :i | b unsignedLongAt: i bigEndian: true ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: true])
 !
 
 unsignedLong_le
 
-	self isBigEndian ifFalse: [ ^self unsignedLong ].
-	^(Array with: 4 with: DwordArray with: [:b :i | b unsignedLongAt: i bigEndian: false ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: false])
+        self isBigEndian ifFalse: [ ^self unsignedLong ].
+        ^(Array with: 4 with: "DwordArray" Array with: [:b :i | b unsignedLongAt: i bigEndian: false ] with: [:b :i :o | b unsignedLongAt: i put: o bigEndian: false])
 !
 
 unsignedLonglong
--- a/support/stx_goodies_xtreams_support.st	Mon Jan 30 23:36:25 2012 +0000
+++ b/support/stx_goodies_xtreams_support.st	Tue Jan 31 00:52:23 2012 +0000
@@ -120,7 +120,7 @@
     "Return a SVN revision number of myself.
      This number is updated after a commit"
 
-    ^ "$SVN-Revision:"'71'"$"
+    ^ "$SVN-Revision:"'80'"$"
 ! !
 
 !stx_goodies_xtreams_support class methodsFor:'documentation'!