Collection__asByteArray

#Class Collection

[back]

asByteArray		| newArray index |
	newArray <- ByteArray new: self size.
	index <- 1.
	self do: [ :element | newArray at: index put: element.
		index <- index + 1 ].
	^ newArray