note
	description: "Objects that ..."
	legal: "See notice at end of class."
	status: "See notice at end of class."
	author: ""
	date: "$Date$"
	revision: "$Revision$"

class
	TIMEOUT_TAB
inherit
	ANY_TAB
		redefine
			make,
			current_widget
		end

create
	make

feature -- Initialization

	make(par: EV_CONTAINER)
		-- Create the tab and initalise the objects.
			local
				cmd2: EV_ROUTINE_COMMAND			
			do
				Precursor {ANY_TAB} (Void)
					-- Creates the objects and their commands.
				create cmd2.make (agent period)
				create f1.make (Current, 0, 0, "Period", Void, cmd2)
				create cmd2.make (agent count)
				create f2.make (Current, 1, 0, "Count", Void, cmd2)
				set_parent (par)
			end

feature -- Access

	name:STRING
			-- Returns the name of the tab.
		do
			Result:="Timeout Tip"
		ensure then
			result_exists: Result /= Void
		end
	
	f1,f2: TEXT_FEATURE_MODIFIER
		-- Feature modifiers for the demo.

	current_widget: EV_TIMEOUT
		-- The current demo.

feature -- Execution Features
	
	period (arg: EV_ARGUMENT; data: EV_EVENT_DATA)
			-- period of `current widget'.
		do
			f1.set_text (current_widget.period.out)
		end

	count (arg: EV_ARGUMENT; data: EV_EVENT_DATA)
			-- Number of times called.
		do
			f2.set_text (current_widget.count.out)
		end

note
	copyright:	"Copyright (c) 1984-2006, 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 -- class TIMEOUT_TAB