note description: "Control Site." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date$" revision: "$Revision$" class CONTROL_SITE inherit WEL_COLOR_CONTROL rename exists as wel_exists end HOST_WINDOW_IMPL redefine make end IOLE_CLIENT_SITE_IMPL IOLE_IN_PLACE_SITE_WINDOWLESS_IMPL redefine make end IOLE_CONTROL_SITE_IMPL undefine dispose end IOLE_CONTAINER_IMPL undefine dispose end IOBJECT_WITH_SITE_IMPL IPROPERTY_NOTIFY_SINK_IMPL IAX_WIN_AMBIENT_DISPATCH_IMPL IDOC_HOST_UIHANDLER_IMPL rename translate_accelerator as idoc_host_uihandler_translate_accelerator1, translate_accelerator_user_precondition as idoc_host_uihandler_translate_accelerator1_user_precondition undefine dispose end IADVISE_SINK_IMPL ISERVICE_PROVIDER_IMPL undefine dispose end ECOM_STUB create make feature {NONE} -- Initialization make (a_parent: WEL_COMPOSITE_WINDOW; a_name: STRING) -- Make the window as a child of `a_parent' and -- `a_name' as a title. do Precursor {HOST_WINDOW_IMPL} (a_parent, a_name) m_allow_context_menu := True m_doc_host_flags := Dochostuiflag_no3dborder m_doc_host_double_click_flags := Dochostuidblclk_default end feature -- Basic Operations create_item -- Initialize `item' do item := ccom_create_item (Current) end feature {NONE} -- Externals ccom_create_item (eif_object: like Current): POINTER -- Initialize `item' external "C++ [new ecom_control_library::control_site %"ecom_control_library_control_site_s.h%"](EIF_OBJECT)" 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 -- CONTROL_SITE