note
	description: "[
						Objects that represent an EV_RIBBON_TITLED_WINDOW
						The original version of this class was generated by EiffelRibbon.
		]"
	generator: "EiffelBuild"
	date: "$Date$"
	revision: "$Revision$"

class
	MAIN_WINDOW

inherit
	EV_RIBBON_TITLED_WINDOW
		redefine
			create_interface_objects,
			initialize,
			application_menu
		end

	EV_SHARED_APPLICATION
		undefine
			default_create, copy
		end


feature {NONE}-- Initialization

	initialize
			-- Initialize `Current'.
		do
			Precursor {EV_RIBBON_TITLED_WINDOW}

				-- Build widget structure.

			set_title ("Ribbon window")

				-- Call `user_initialization'.
			user_initialization
		end

	user_initialization
			-- Called by `initialize'.
			-- Any custom user initialization that
			-- could not be performed in `initialize',
			-- (due to regeneration of implementation class)
			-- can be added here.
		do
			set_size (800, 400)

				-- Attach Ribbon by COM here
			ribbon.init_with_window_and_dll (Current, "eiffel_ribbon_1")
			close_request_actions.extend (agent on_close_requested)
		end

	on_close_requested
			-- On close
		local
			l_shared: EV_SHARED_RESOURCES
			l_ch: like {EV_SHARED_RESOURCES}.command_handler_singleton
		do
			create l_shared
			l_ch := l_shared.command_handler_singleton

			close_request_actions.wipe_out

			ribbon.destroy
			destroy
		end

	create_interface_objects
			-- <Precursor>
		do
				-- Initialize before calling Precursor all the attached attributes
				-- from the current class.

				-- Proceed with vision2 objects creation.
			Precursor
			create ribbon.make
			create application_menu.make_with_command_list (<<{COMMAND_NAME_CONSTANTS}.application_menu_1>>)
		end

feature -- Access

	ribbon: RIBBON_1
			-- Ribbon attached to current
	application_menu: APPLICATION_MENU_1
			-- Application menu
end