note description: "Widget that allows you to add a Windows as your child if you know its HANDLE." date: "$Date$" revision: "$Revision$" class EV_PLUG_IMP inherit EV_PLUG_I rename make as ev_make redefine interface end EV_PRIMITIVE_IMP rename make as ev_make redefine interface, is_shown_by_default end WEL_CONTROL rename parent as wel_parent, set_parent as wel_set_parent, shown as is_displayed, destroy as wel_destroy, item as wel_item, enabled as is_sensitive, width as wel_width, height as wel_height, x as x_position, y as y_position, move as wel_move, resize as wel_resize, move_and_resize as wel_move_and_resize, text as wel_text, set_text as wel_set_text, font as wel_font, set_font as wel_set_font, has_capture as wel_has_capture undefine set_width, set_height, on_left_button_down, on_middle_button_down, on_right_button_down, on_left_button_up, on_middle_button_up, on_right_button_up, on_left_button_double_click, on_middle_button_double_click, on_right_button_double_click, on_mouse_move, on_mouse_wheel, on_set_focus, on_desactivate, on_kill_focus, on_key_down, on_key_up, on_char, on_set_cursor, on_size, show, hide, x_position, y_position, on_sys_key_down, on_sys_key_up, default_process_message, on_getdlgcode, on_wm_dropfiles end create make feature {NONE} -- Initialization make (a_handle: POINTER) -- Initialize Current assigning `wel_item' with `a_handle'. do wel_item := a_handle ev_make end old_make (an_interface: attached like interface) -- Create `Current' with interface `an_interface'. do assign_interface (an_interface) end feature {NONE} -- WEL Implementation default_style: INTEGER -- Default style used to create `Current'. do Result := ws_visible end class_name: STRING_32 -- Window class name to create once Result := generator end is_shown_by_default: BOOLEAN = False -- By default the widget is not shown by default as otherwise even if Current is not visible, -- the window represented by `wel_item' could become visible if it was not mark hidden to start with. feature {EV_ANY, EV_ANY_I} -- Implementation interface: detachable EV_PLUG note option: stable attribute end; note copyright: "Copyright (c) 1984-2018, Eiffel Software and others" license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)" source: "[ Eiffel Software 5949 Hollister Ave., Goleta, CA 93117 USA Telephone 805-685-1006, Fax 805-685-6869 Website http://www.eiffel.com Customer support http://support.eiffel.com ]" end