BRL.LinkedList.TListDataType

	Method ReadObject:Object( stream:TStream )
		Local t:TList=New TList
		Local count=stream.ReadInt()
		For Local i=0 Until count
			t.AddLast stream.ReadObject()
		Next
	End Method
	
	Method WriteObject( o:Object,stream:TStream )
		Local t:TList=TList(o)
		stream.WriteInt t.Count()
		Local link:TLink=t._head._succ,count
		While link<>t._head
			stream.WriteObject link._value
			link=link._succ
		Wend
	End Method