note
	description:
		"Action sequence used for versioning calls"
	legal: "See notice at end of class."
	status: "See notice at end of class."
	keywords: "event, action"
	date: "$Date$"
	revision: "$Revision$"

class
	EV_LITE_ACTION_SEQUENCE [EVENT_DATA -> detachable TUPLE create default_create end]

inherit
	ACTION_SEQUENCE [EVENT_DATA]
		redefine
			call
		end

	EV_SHARED_APPLICATION
		undefine
			default_create, is_equal, copy
		end

	EV_ANY_HANDLER
		undefine
			default_create, is_equal, copy
		end

create
	default_create

create {EV_LITE_ACTION_SEQUENCE}
	arrayed_list_make,
	make_filled

feature -- Basic operations

	call (event_data: detachable EVENT_DATA)
			-- Call each procedure in order unless `is_blocked'.
			-- If `is_paused' delay execution until `resume'.
			-- Stop at current point in list on `abort'.
		do
			if count > 0 then
					-- We need to update the global event counter.
				shared_environment.implementation.application_i.increase_action_sequence_call_counter
				Precursor (event_data)
			end
		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 EV_LITE_ACTION_SEQUENCE