note description: "General notion of command (semantic unity). % %To write an actual command inherit from this % %class and implement the `execute' feature" legal: "See notice at end of class."; status: "See notice at end of class."; date: "$Date$"; revision: "$Revision$" deferred class COMMAND feature -- Access context_data: CONTEXT_DATA; -- Information related to Current command, -- provided by the underlying user interface -- mechanism feature -- Status report is_template: BOOLEAN -- Is the current command a template, in other words, -- should it be cloned before execution? -- If true, EiffelVision will clone Current command -- whenever it is invoked as a callback do end; context_data_useful: BOOLEAN -- Should the context data be available -- when Current command is invoked as a -- callback do end; feature -- Basic operations execute (argument: ANY) -- Execute Current command. -- `argument' is automatically passed by -- EiffelVision when Current command is -- invoked as a callback. deferred end; feature {EVENT_HDL} -- Element change set_context_data (a_context_data: CONTEXT_DATA) -- Set `context_data' to `a_context_data'. do context_data := a_context_data ensure context_data = a_context_data 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 COMMAND