changed the parent class of ByteArray from Collection to Array.
enhanced socket writing a bit
This commit is contained in:
		| @ -225,17 +225,9 @@ class(#character,#final,#limited,#immutable) Symbol(String) | ||||
|  | ||||
| ## ------------------------------------------------------------------------------- | ||||
|  | ||||
| class(#byte) ByteArray(Collection) | ||||
| class(#byte) ByteArray(Array) | ||||
| { | ||||
| 	method at: anInteger | ||||
| 	{ | ||||
| 		^self basicAt: anInteger. | ||||
| 	} | ||||
|  | ||||
| 	method at: anInteger put: aValue | ||||
| 	{ | ||||
| 		^self basicAt: anInteger put: aValue. | ||||
| 	} | ||||
| 	## TODO: is it ok for ByteArray to inherit from Array? | ||||
| } | ||||
|  | ||||
| ## ------------------------------------------------------------------------------- | ||||
|  | ||||
| @ -342,7 +342,7 @@ extend Socket | ||||
|  | ||||
| 		if (self.outputReady) | ||||
| 		{ | ||||
| 			if ((self _writeBytes: bytes) >= 0) { ^self }. | ||||
| 			if ((self _writeBytes: bytes offset: offset length: length) >= 0) { ^self }. | ||||
| 			self.outputReady := false. | ||||
| 		}. | ||||
|  | ||||
| @ -517,7 +517,6 @@ error -> exception | ||||
| 					##sck writeBytes: #[ $h, $e, $l, $l, $o, $., $., $., C'\n' ]. | ||||
| 					sck writeBytes: data offset: 0 length: n. | ||||
| 				}. | ||||
|  | ||||
| 			} | ||||
| 			while (true). | ||||
| 		]. | ||||
|  | ||||
		Reference in New Issue
	
	Block a user