indexing

	description: "[
		Test thread
		]"
	status: "See notice at end of class."
	legal: "See notice at end of class."
	date: "$Date$"
	revision: "$Revision$"

class

	EGS_REMOTE_EVENT_LISTENER_THREAD

inherit

	THREAD

create

	make

feature -- Creation

	 make (a_listener: EGS_REMOTE_EVENT_LISTENER) is
	 	require
	 		a_listener_non_void: a_listener /= Void
		do
			listener := a_listener
		end

feature

	execute is
		local
			done: BOOLEAN
			event: EGS_REMOTE_EVENT
		do
			from
				done := False
			until
				done
			loop
				event := listener.get_event
				if event = Void then
					done := True
				else
					listener.notify (event)
				end
			end
		end

feature {NONE} -- Implementation

	listener: EGS_REMOTE_EVENT_LISTENER

feature

indexing

	copyright:	"Copyright (c) 2008, Eiffel Software and others"
	license:	"Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
	source: "[
			 Eiffel Software
			 356 Storke Road, Goleta, CA 93117 USA
			 Telephone 805-685-1006, Fax 805-685-6869
			 Website http://www.eiffel.com
			 Customer support http://support.eiffel.com
		]"

end