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