note
	description: "Objects that represent the Vision2 application.%
		%The original version of this class has been generated by EiffelBuild."
	generator: "EiffelBuild"
	date: "$Date$"
	revision: "$Revision$"

class
	ER_RIBBON_TOOL_APPLICATION

inherit
	EV_APPLICATION
		redefine
			create_interface_objects
		end

	ARGUMENTS
		undefine
			default_create,
			copy
		end

create
	make_and_launch

feature {NONE} -- Initialization

	make_and_launch
			-- Create `Current', build and display `main_window',
			-- then launch the application.
		local
			l_file_name: FILE_NAME
		do
			default_create
			if argument_count >= 1 then
				create l_file_name.make_from_string (argument(1))
				if l_file_name.is_valid then
					main_window.show_actions.extend_kamikaze (agent (a_file_name: FILE_NAME)
																do
																	main_window.open_project_command.execute_with_file_name (a_file_name)
																end (l_file_name))
				end
			end

			main_window.show
			launch
		end

feature {NONE} -- Implementation

	create_interface_objects
			-- <Precursor>
		do
			create main_window
		end

	main_window: ER_MAIN_WINDOW
		-- Main window of `Current'.

end