note
	description: "[
					Generated by EiffelRibbon tool
																							]"
	date: "$Date$"
	revision: "$Revision$"

class
	BUTTON_SHOW_CONTEXT_MENU

inherit
	BUTTON_SHOW_CONTEXT_MENU_IMP
		redefine
			create_interface_objects
		end

create
	{EV_RIBBON_GROUP, EV_RIBBON_SPLIT_BUTTON, EV_RIBBON_APPLICATION_MENU_GROUP, EV_RIBBON_DROP_DOWN_BUTTON, EV_RIBBON_QUICK_ACCESS_TOOLBAR} make_with_command_list

feature -- Query

	text: STRING_32 = "Button 1"
			-- This is generated by EiffelRibbon tool

feature {NONE} -- Implementation

	create_interface_objects
			-- <Precursor>
		do
			Precursor
			select_actions.extend (agent
										local
											l_point: EV_COORDINATE
											l_res: EV_RIBBON_RESOURCES
										do
											if attached ribbon as l_ribbon then
												create l_res
												if attached {MAIN_WINDOW} l_res.window_for_ribbon (l_ribbon) as l_win then
													create l_point.make (l_win.screen_x + l_win.width // 2, l_win.screen_y + l_win.height // 2)
													l_win.context_menu.show (l_point)
												end
											end
										end)
		end
end