hg/stx-libbasic: comparison ByteArray.st

equal deleted inserted replaced

-:2edc19eb812d
+:4cd8b02e26e1
 "Created: 25.10.1995 / 13:33:26 / cg"
 "Modified: 22.4.1996 / 12:54:06 / cg"
 !
+printOn:aStream
+"append a printed representation to aStream"
+self class == ByteArray ifTrue:[    "/ care for subclasses
+aStream nextPutAll:'#['.
+self
+do:[:byte | byte printOn:aStream]
+separatedBy:[aStream space].
+aStream nextPut:$].
+^ self
+].
+^ super printOn:aStream
+"
+#[1 2 3 4 5] printOn:Transcript
+#[1 2 3 4 5] storeString
+#[1 2 3 4 5] displayString
+#[1 2 3 4 5] printString
+"
+"Modified: / 12.9.1997 / 22:11:33 / cg"
+"Modified: / 17.3.1999 / 17:01:31 / stefan"
+!
 printOn:aStream base:radix
 "append a printed representation to aStream in the given number base."
 self class == ByteArray ifTrue:[    "/ care for subclasses
-	aStream nextPutAll:'#['.
+aStream nextPutAll:'#['.
-	self
+self
-	    do:[:byte | byte printOn:aStream base:radix]
+do:[:byte | byte printOn:aStream base:radix]
-	    separatedBy:[aStream space].
+separatedBy:[aStream space].
-	aStream nextPut:$].
+aStream nextPut:$].
-	^ self
+^ self
 ].
-^ super printOn:aStream
+^ self printOn:aStream
 "
 #[1 2 3 4 5] printOn:Transcript base:2
+'Hello World' printOn:Transcript base:2
 #[1 2 3 4 5] storeString
 #[1 2 3 4 5] displayString
 #[1 2 3 4 5] printString
 "
 "
 #[1 2 3 1 2 3 1 2 19] max
 "
 ! !
 !ByteArray methodsFor:'special queries'!
 usageCounts
 "return an array filled with value-counts -
 This is needed in the bitmap/image classes to get info on color usage.
 ! !
 !ByteArray class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.134 1999-11-12 23:22:32 stefan Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/ByteArray.st,v 1.135 1999-11-25 20:11:30 stefan Exp $'
 ! !

changeset 5019	4cd8b02e26e1
parent 4983	07e6aab900d9
child 5024	abff1ede34d1