indexing

	description: "[

		This class represents a time object.

	]"
	date: "$Date$"
	revision: "$Revision$"

class	EM_NET_TIME_OBJECT

inherit

	EM_NET_OBJECT

create {EM_NET_OBJECT_TYPES}

	make_set_type

feature -- Element change

	set_item (a_time : INTEGER) is
			-- Set `item' to `a_time'.
		do
			item := a_time
		end

feature -- Access

	item : INTEGER
			-- Item

feature -- Serialization

	serialize (a_serializer: EM_NET_SERIALIZER) is
			-- Serialize to the given stream using `a_serializer'.
		do
			a_serializer.put_integer (item)
		end

	serialization_byte_count: INTEGER is
			-- Count of bytes needed for a successful serialization
		do
			Result := 4
		end

	unserialize (an_unserializer: EM_NET_UNSERIALIZER) is
			-- Unserialize from a given stream using `an_unserializer'.
		do
			an_unserializer.read_integer
			item := an_unserializer.last_integer
		end

end