Automatic generation produced by ISE Eiffel

Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:
note description: "EiffelVision text component. Mswindows implementation." legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2016-09-27 07:50:48 -0800 (Tue, 27 Sep 2016) $" revision: "$Revision: 99192 $" deferred class interface EV_TEXT_COMPONENT_IMP feature -- Initialization set_default_minimum_size -- Called after creation. Set current size and -- notify parent. tooltip: STRING_32 -- Text of tooltip assigned to Current. -- (from EV_WEL_TOOLTIPABLE) require -- from EV_TOOLTIPABLE_I True feature -- Access accept_cursor: detachable EV_POINTER_STYLE -- Accept cursor set by user. -- To be displayed when the screen pointer is over a target that accepts -- pebble during pick and drop. -- (from EV_PICK_AND_DROPABLE_I) actual_drop_target_agent: detachable FUNCTION [INTEGER_32, INTEGER_32, detachable EV_ABSTRACT_PICK_AND_DROPABLE] -- Overrides default drop target on a certain position. -- If Void, will use the default drop target. -- Always void if Current is not a widget. -- (from EV_WIDGET_I) awaiting_movement: BOOLEAN -- Are we currently awaiting the movement threshold to -- be reached for as drag and drop or dockable move? -- (from EV_SHARED_TRANSPORT_IMP) frozen background_color: EV_COLOR -- Color displayed behind foreground features. -- (from EV_COLORIZABLE_I) capture_enabled: BOOLEAN -- Is the mouse currently captured? -- See constants Capture_xxxx at the end of the class. -- (from EV_PICK_AND_DROPABLE_IMP) configurable_target_menu_handler: detachable PROCEDURE [EV_MENU, ARRAYED_LIST [EV_PND_TARGET_DATA], EV_PICK_AND_DROPABLE, detachable ANY] -- (from EV_PICK_AND_DROPABLE_I) Cursor_on_widget: CELL [detachable EV_WIDGET_IMP] -- This cell contains the widget_imp that currently -- has the pointer of the mouse. As it is a once -- feature, it is a shared data. -- it is used for the mouse_enter and mouse_leave -- events. -- (from EV_WIDGET_IMP) require -- from EV_PICK_AND_DROPABLE_IMP True ensure then -- from EV_WIDGET_IMP result_exists: Result /= Void default_key_processing_handler: detachable PREDICATE [EV_KEY] -- Agent used to determine whether the default key processing should occur for Current. -- If agent returns True then default key processing continues as normal, False prevents -- default key processing from occurring. -- (from EV_WIDGET_I) Default_parent: EV_INTERNAL_SILLY_WINDOW_IMP -- A default parent for creation of Current. -- (from EV_WIDGET_IMP) ensure -- from EV_WIDGET_IMP valid_parent: Result /= Void deny_cursor: detachable EV_POINTER_STYLE -- Deny cursor set by user. -- To be displayed when the screen pointer is not over a valid target. -- (from EV_PICK_AND_DROPABLE_I) Drag_and_drop_starting_movement: INTEGER_32 = 3 -- Pointer movement in pixels required to start a drag and drop. -- (from EV_SHARED_TRANSPORT_IMP) ev_set_minimum_height (value: INTEGER_32; a_is_size_forced: BOOLEAN) -- Make value the new minimum_height of Current. -- Should check if the user didn't set the minimum width -- before setting a new value. -- (from EV_SIZEABLE_PRIMITIVE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed ev_set_minimum_size (mw, mh: INTEGER_32; a_is_size_forced: BOOLEAN) -- Make mw the new minimum_width and mh the new -- minimum_height of Current. -- Should check if the user didn't set the minimum width -- before setting a new value. -- (from EV_SIZEABLE_PRIMITIVE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed ev_set_minimum_width (value: INTEGER_32; a_is_size_forced: BOOLEAN) -- Make value the new minimum_width of Current. -- Should check if the user didn't set the minimum width -- before setting a new value. -- (from EV_SIZEABLE_PRIMITIVE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed Focus_on_widget: CELL [detachable EV_WIDGET_IMP] -- Widget that has currently the focus. -- (from EV_WIDGET_IMP) frozen foreground_color: EV_COLOR -- Color of foreground features like text. -- (from EV_COLORIZABLE_I) foreground_color_internal: detachable EV_COLOR -- Color used for the foreground of Current. -- (from EV_WIDGET_IMP) require -- from EV_COLORIZABLE_I True generating_type: TYPE [detachable EV_TEXT_COMPONENT_IMP] -- Type of current object -- (type of which it is a direct instance) -- (from ANY) ensure -- from ANY generating_type_not_void: Result /= Void generator: STRING_8 -- Name of current object's generating class -- (base class of the type of which it is a direct instance) -- (from ANY) ensure -- from ANY generator_not_void: Result /= Void generator_not_empty: not Result.is_empty Gwl_exstyle: INTEGER_32 = -20 -- (from WEL_GWL_CONSTANTS) Gwl_style: INTEGER_32 = -16 -- (from WEL_GWL_CONSTANTS) height: INTEGER_32 -- Height of Current. -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed help_context: detachable FUNCTION [EV_HELP_CONTEXT] -- Agent that evaluates to help context sent to help engine when help is requested -- (from EV_HELP_CONTEXTABLE_I) ensure -- from EV_HELP_CONTEXTABLE_I current_if_exists: internal_help_context /= Void implies Result = internal_help_context internal_pointer_style: EV_POINTER_STYLE -- Cursor displayed when screen pointer is over current widget, -- as seen from interface. -- (from EV_WIDGET_I) is_dock_executing: BOOLEAN -- Is Current in the process of a dockable transport? -- (from EV_DOCKABLE_SOURCE_I) is_dockable: BOOLEAN -- Is Current dockable? -- (from EV_DOCKABLE_SOURCE_I) is_external_docking_enabled: BOOLEAN -- Is Current able to be docked into an EV_DOCKABLE_DIALOG -- When there is no valid EV_DRAGABLE_TARGET upon completion -- of the transport? -- (from EV_DOCKABLE_SOURCE_I) is_external_docking_relative: BOOLEAN -- Will dockable dialog displayed when Current is docked externally -- be displayed relative to parent window of Current? -- Otherwise displayed as a standard window. -- (from EV_DOCKABLE_SOURCE_I) key_code_from_key_string (key_string: READABLE_STRING_GENERAL): INTEGER_32 -- Key code value from key_string -- (from EV_KEY_CONSTANTS) require -- from EV_KEY_CONSTANTS key_string_not_void: key_string /= Void Key_strings: ARRAY [STRING_32] -- String representations of all key codes. -- (from EV_KEY_CONSTANTS) Maximum_buffered_string_size: INTEGER_32 = 10000 -- Maximum size of string permitting a shared WEL_STRING object to -- be returned by wel_string_restricted. -- (from WEL_SHARED_TEMPORARY_OBJECTS) Mb_abortretryignore: INTEGER_32 = 2 -- (from WEL_MB_CONSTANTS) Mb_applmodal: INTEGER_32 = 0 -- (from WEL_MB_CONSTANTS) Mb_default_desktop_only: INTEGER_32 = 131072 -- (from WEL_MB_CONSTANTS) Mb_defbutton1: INTEGER_32 = 0 -- (from WEL_MB_CONSTANTS) Mb_defbutton2: INTEGER_32 = 256 -- (from WEL_MB_CONSTANTS) Mb_defbutton3: INTEGER_32 = 512 -- (from WEL_MB_CONSTANTS) Mb_defmask: INTEGER_32 = 3840 -- (from WEL_MB_CONSTANTS) Mb_help: INTEGER_32 = 16384 -- (from WEL_MB_CONSTANTS) Mb_iconasterisk: INTEGER_32 = 64 -- (from WEL_MB_CONSTANTS) Mb_iconerror: INTEGER_32 = 16 -- Same as Mb_iconhand. -- (from WEL_MB_CONSTANTS) Mb_iconexclamation: INTEGER_32 = 48 -- (from WEL_MB_CONSTANTS) Mb_iconhand: INTEGER_32 = 16 -- (from WEL_MB_CONSTANTS) Mb_iconinformation: INTEGER_32 = 64 -- Same as Mb_iconasterisk. -- (from WEL_MB_CONSTANTS) Mb_iconmask: INTEGER_32 = 240 -- (from WEL_MB_CONSTANTS) Mb_iconquestion: INTEGER_32 = 32 -- (from WEL_MB_CONSTANTS) Mb_iconstop: INTEGER_32 = 16 -- Same as Mb_iconhand. -- (from WEL_MB_CONSTANTS) Mb_iconwarning: INTEGER_32 = 48 -- Same as Mb_iconexclamation. -- (from WEL_MB_CONSTANTS) Mb_nofocus: INTEGER_32 = 32768 -- (from WEL_MB_CONSTANTS) Mb_ok: INTEGER_32 = 0 -- (from WEL_MB_CONSTANTS) Mb_okcancel: INTEGER_32 = 1 -- (from WEL_MB_CONSTANTS) Mb_retrycancel: INTEGER_32 = 5 -- (from WEL_MB_CONSTANTS) Mb_right: INTEGER_32 = 524288 -- (from WEL_MB_CONSTANTS) Mb_rtlreading: INTEGER_32 = 1048576 -- (from WEL_MB_CONSTANTS) Mb_setforeground: INTEGER_32 = 65536 -- (from WEL_MB_CONSTANTS) Mb_systemmodal: INTEGER_32 = 4096 -- (from WEL_MB_CONSTANTS) Mb_taskmodal: INTEGER_32 = 8192 -- (from WEL_MB_CONSTANTS) Mb_topmost: INTEGER_32 = 262144 -- (from WEL_MB_CONSTANTS) Mb_typemask: INTEGER_32 = 15 -- (from WEL_MB_CONSTANTS) Mb_usericon: INTEGER_32 = 128 -- (from WEL_MB_CONSTANTS) Mb_yesno: INTEGER_32 = 4 -- (from WEL_MB_CONSTANTS) Mb_yesnocancel: INTEGER_32 = 3 -- (from WEL_MB_CONSTANTS) minimum_height: INTEGER_32 -- Lower bound on height in pixels. -- (from EV_SIZEABLE_IMP) require -- from EV_POSITIONED_I True minimum_width: INTEGER_32 -- Lower bound on width in pixels. -- (from EV_SIZEABLE_IMP) require -- from EV_POSITIONED_I True not_external_docking_enabled: BOOLEAN -- Attribute used for is_externally_dockable. We must implement -- is_externally_dockable this way as we have no easy solution to -- assign True to is_externally_dockable. -- (from EV_DOCKABLE_SOURCE_I) not_is_external_docking_relative: BOOLEAN -- Will dockable dialog displayed when Current is docked externally -- be displayed relative to parent window of Current? -- Otherwise displayed as a standard window. -- Internal reversed value of is_external_docking_relative as we cannot -- easily initialize a BOOLE to True in this case. -- (from EV_DOCKABLE_SOURCE_I) original_parent_position: INTEGER_32 -- Original position in parent. Required -- to restore widget later. -- (from EV_DOCKABLE_SOURCE_I) original_pressure: REAL_64 -- Hold the values passed to start transport so when a transport -- actually starts, with real_start_transport,these can be passed -- as arguments. -- (from EV_SHARED_TRANSPORT_IMP) original_x: INTEGER_32 -- (from EV_SHARED_TRANSPORT_IMP) original_x_tilt: REAL_64 -- Hold the values passed to start transport so when a transport -- actually starts, with real_start_transport,these can be passed -- as arguments. -- (from EV_SHARED_TRANSPORT_IMP) original_y: INTEGER_32 -- (from EV_SHARED_TRANSPORT_IMP) original_y_tilt: REAL_64 -- Hold the values passed to start transport so when a transport -- actually starts, with real_start_transport,these can be passed -- as arguments. -- (from EV_SHARED_TRANSPORT_IMP) parent: detachable EV_CONTAINER -- Parent of Current -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True pebble: detachable ANY -- Data to be transported by pick and drop mechanism. -- (from EV_PICK_AND_DROPABLE_I) pebble_function: detachable FUNCTION [detachable ANY] -- Returns data to be transported by pick and drop mechanism. -- (from EV_PICK_AND_DROPABLE_I) pebble_positioning_enabled: BOOLEAN -- If True then pick and drop start coordinates are -- pebble_x_position, pebble_y_position. -- If False then pick and drop start coordinates are -- the pointer coordinates. -- (from EV_PICK_AND_DROPABLE_I) pebble_x_position: INTEGER_32 -- Initial x position for pick and drop relative to Current. -- (from EV_PICK_AND_DROPABLE_I) pebble_y_position: INTEGER_32 -- Initial y position for pick and drop relative to Current. -- (from EV_PICK_AND_DROPABLE_I) pointer_position: EV_COORDINATE -- Position of the screen pointer relative to Current. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True ensure -- from EV_WIDGET_I result_not_void: Result /= Void pointer_style: detachable EV_POINTER_STYLE -- Pointer displayed when the pointing device is over Current. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True require -- from EV_DOCKABLE_SOURCE_IMP True real_source: detachable EV_DOCKABLE_SOURCE -- Result is EV_DOCKABLE_SOURCE which should be -- dragged when docking begins on Current. -- (from EV_DOCKABLE_SOURCE_I) real_target: detachable EV_DOCKABLE_TARGET -- Result is target used during a dockable transport if -- mouse pointer is above Current. -- (from EV_WIDGET_I) screen_x: INTEGER_32 -- Horizontal offset of Current relative to screen -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True screen_y: INTEGER_32 -- Vertical offset of Current relative to screen. -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True selected_text: STRING_32 -- Text currently selected in Current. -- (from EV_TEXT_COMPONENT_I) text: STRING_32 -- Text displayed in label. -- (from EV_TEXTABLE_I) ensure -- from EV_TEXTABLE_I not_void: Result /= Void cloned: Result /= text text_length: INTEGER_32 -- Length of the text in Current. ensure -- from EV_TEXT_COMPONENT_I result_not_negative: Result >= 0 top_level_window: detachable EV_WINDOW -- Top level window that contains Current. -- (from EV_WIDGET_IMP) top_level_window_imp: detachable EV_WINDOW_IMP -- Top level window that contains Current. -- (from EV_PRIMITIVE_IMP) transport_executing: BOOLEAN -- Is a pick and drop or drag and drop currently -- being executed? -- (from EV_PICK_AND_DROPABLE_IMP) Vk_0: INTEGER_32 = 48 -- (from WEL_VK_CONSTANTS) Vk_1: INTEGER_32 = 49 -- (from WEL_VK_CONSTANTS) Vk_2: INTEGER_32 = 50 -- (from WEL_VK_CONSTANTS) Vk_3: INTEGER_32 = 51 -- (from WEL_VK_CONSTANTS) Vk_4: INTEGER_32 = 52 -- (from WEL_VK_CONSTANTS) Vk_5: INTEGER_32 = 53 -- (from WEL_VK_CONSTANTS) Vk_6: INTEGER_32 = 54 -- (from WEL_VK_CONSTANTS) Vk_7: INTEGER_32 = 55 -- (from WEL_VK_CONSTANTS) Vk_8: INTEGER_32 = 56 -- (from WEL_VK_CONSTANTS) Vk_9: INTEGER_32 = 57 -- Vk_a thru Vk_z are the same as their ASCII equivalents: 'A' thru 'Z'. -- (from WEL_VK_CONSTANTS) Vk_a: INTEGER_32 = 65 -- (from WEL_VK_CONSTANTS) Vk_add: INTEGER_32 = 107 -- Declared in Windows as VK_ADD -- (from WEL_VK_CONSTANTS) Vk_alt: INTEGER_32 = 18 -- Declared in Windows as VK_MENU -- Was declared in WEL_VK_CONSTANTS as synonym of Vk_menu. -- (from WEL_VK_CONSTANTS) Vk_apps: INTEGER_32 = 93 -- Declared in Windows as VK_APPS -- Vk_0 thru Vk_9 are the same as their ASCII equivalents: '0' thru '9'. -- (from WEL_VK_CONSTANTS) Vk_b: INTEGER_32 = 66 -- (from WEL_VK_CONSTANTS) Vk_back: INTEGER_32 = 8 -- Declared in Windows as VK_BACK -- (from WEL_VK_CONSTANTS) Vk_c: INTEGER_32 = 67 -- (from WEL_VK_CONSTANTS) Vk_cancel: INTEGER_32 = 3 -- Declared in Windows as VK_CANCEL -- (from WEL_VK_CONSTANTS) Vk_capital: INTEGER_32 = 20 -- Declared in Windows as VK_CAPITAL -- (from WEL_VK_CONSTANTS) Vk_clear: INTEGER_32 = 12 -- Declared in Windows as VK_CLEAR -- (from WEL_VK_CONSTANTS) Vk_control: INTEGER_32 = 17 -- Declared in Windows as VK_CONTROL -- (from WEL_VK_CONSTANTS) Vk_d: INTEGER_32 = 68 -- (from WEL_VK_CONSTANTS) Vk_decimal: INTEGER_32 = 110 -- Declared in Windows as VK_DECIMAL -- (from WEL_VK_CONSTANTS) Vk_delete: INTEGER_32 = 46 -- Declared in Windows as VK_DELETE -- (from WEL_VK_CONSTANTS) Vk_divide: INTEGER_32 = 111 -- Declared in Windows as VK_DIVIDE -- (from WEL_VK_CONSTANTS) Vk_down: INTEGER_32 = 40 -- Declared in Windows as VK_DOWN -- (from WEL_VK_CONSTANTS) Vk_e: INTEGER_32 = 69 -- (from WEL_VK_CONSTANTS) Vk_end: INTEGER_32 = 35 -- Declared in Windows as VK_END -- (from WEL_VK_CONSTANTS) Vk_escape: INTEGER_32 = 27 -- Declared in Windows as VK_ESCAPE -- (from WEL_VK_CONSTANTS) Vk_execute: INTEGER_32 = 43 -- Declared in Windows as VK_EXECUTE -- (from WEL_VK_CONSTANTS) Vk_f: INTEGER_32 = 70 -- (from WEL_VK_CONSTANTS) Vk_f1: INTEGER_32 = 112 -- Declared in Windows as VK_F1 -- (from WEL_VK_CONSTANTS) Vk_f10: INTEGER_32 = 121 -- Declared in Windows as VK_F10 -- (from WEL_VK_CONSTANTS) Vk_f11: INTEGER_32 = 122 -- Declared in Windows as VK_F11 -- (from WEL_VK_CONSTANTS) Vk_f12: INTEGER_32 = 123 -- Declared in Windows as VK_F12 -- (from WEL_VK_CONSTANTS) Vk_f13: INTEGER_32 = 124 -- Declared in Windows as VK_F13 -- (from WEL_VK_CONSTANTS) Vk_f14: INTEGER_32 = 125 -- Declared in Windows as VK_F14 -- (from WEL_VK_CONSTANTS) Vk_f15: INTEGER_32 = 126 -- Declared in Windows as VK_F15 -- (from WEL_VK_CONSTANTS) Vk_f16: INTEGER_32 = 127 -- Declared in Windows as VK_F16 -- (from WEL_VK_CONSTANTS) Vk_f17: INTEGER_32 = 128 -- Declared in Windows as VK_F17 -- (from WEL_VK_CONSTANTS) Vk_f18: INTEGER_32 = 129 -- Declared in Windows as VK_F18 -- (from WEL_VK_CONSTANTS) Vk_f19: INTEGER_32 = 130 -- Declared in Windows as VK_F19 -- (from WEL_VK_CONSTANTS) Vk_f2: INTEGER_32 = 113 -- Declared in Windows as VK_F2 -- (from WEL_VK_CONSTANTS) Vk_f20: INTEGER_32 = 131 -- Declared in Windows as VK_F20 -- (from WEL_VK_CONSTANTS) Vk_f21: INTEGER_32 = 132 -- Declared in Windows as VK_F21 -- (from WEL_VK_CONSTANTS) Vk_f22: INTEGER_32 = 133 -- Declared in Windows as VK_F22 -- (from WEL_VK_CONSTANTS) Vk_f23: INTEGER_32 = 134 -- Declared in Windows as VK_F23 -- (from WEL_VK_CONSTANTS) Vk_f24: INTEGER_32 = 135 -- Declared in Windows as VK_F24 -- (from WEL_VK_CONSTANTS) Vk_f3: INTEGER_32 = 114 -- Declared in Windows as VK_F3 -- (from WEL_VK_CONSTANTS) Vk_f4: INTEGER_32 = 115 -- Declared in Windows as VK_F4 -- (from WEL_VK_CONSTANTS) Vk_f5: INTEGER_32 = 116 -- Declared in Windows as VK_F5 -- (from WEL_VK_CONSTANTS) Vk_f6: INTEGER_32 = 117 -- Declared in Windows as VK_F6 -- (from WEL_VK_CONSTANTS) Vk_f7: INTEGER_32 = 118 -- Declared in Windows as VK_F7 -- (from WEL_VK_CONSTANTS) Vk_f8: INTEGER_32 = 119 -- Declared in Windows as VK_F8 -- (from WEL_VK_CONSTANTS) Vk_f9: INTEGER_32 = 120 -- Declared in Windows as VK_F9 -- (from WEL_VK_CONSTANTS) Vk_g: INTEGER_32 = 71 -- (from WEL_VK_CONSTANTS) Vk_h: INTEGER_32 = 72 -- (from WEL_VK_CONSTANTS) Vk_help: INTEGER_32 = 47 -- Declared in Windows as VK_HELP -- (from WEL_VK_CONSTANTS) Vk_home: INTEGER_32 = 36 -- Declared in Windows as VK_HOME -- (from WEL_VK_CONSTANTS) Vk_i: INTEGER_32 = 73 -- (from WEL_VK_CONSTANTS) Vk_insert: INTEGER_32 = 45 -- Declared in Windows as VK_INSERT -- (from WEL_VK_CONSTANTS) Vk_j: INTEGER_32 = 74 -- (from WEL_VK_CONSTANTS) Vk_k: INTEGER_32 = 75 -- (from WEL_VK_CONSTANTS) Vk_l: INTEGER_32 = 76 -- (from WEL_VK_CONSTANTS) Vk_lbutton: INTEGER_32 = 1 -- Declared in Windows as VK_LBUTTON -- (from WEL_VK_CONSTANTS) Vk_lcontrol: INTEGER_32 = 162 -- Declared in Windows as VK_LCONTROL -- (from WEL_VK_CONSTANTS) Vk_left: INTEGER_32 = 37 -- Declared in Windows as VK_LEFT -- (from WEL_VK_CONSTANTS) Vk_lmenu: INTEGER_32 = 164 -- Declared in Windows as VK_LMENU -- (from WEL_VK_CONSTANTS) Vk_lshift: INTEGER_32 = 160 -- Declared in Windows as VK_LSHIFT -- (from WEL_VK_CONSTANTS) Vk_m: INTEGER_32 = 77 -- (from WEL_VK_CONSTANTS) Vk_mbutton: INTEGER_32 = 4 -- Declared in Windows as VK_MBUTTON -- (from WEL_VK_CONSTANTS) Vk_menu: INTEGER_32 = 18 -- Declared in Windows as VK_MENU -- Was declared in WEL_VK_CONSTANTS as synonym of Vk_alt. -- (from WEL_VK_CONSTANTS) Vk_multiply: INTEGER_32 = 106 -- Declared in Windows as VK_MULTIPLY -- (from WEL_VK_CONSTANTS) Vk_n: INTEGER_32 = 78 -- (from WEL_VK_CONSTANTS) Vk_next: INTEGER_32 = 34 -- Declared in Windows as VK_NEXT -- (from WEL_VK_CONSTANTS) Vk_numlock: INTEGER_32 = 144 -- Declared in Windows as VK_NUMLOCK -- (from WEL_VK_CONSTANTS) Vk_numpad0: INTEGER_32 = 96 -- Declared in Windows as VK_NUMPAD0 -- (from WEL_VK_CONSTANTS) Vk_numpad1: INTEGER_32 = 97 -- Declared in Windows as VK_NUMPAD1 -- (from WEL_VK_CONSTANTS) Vk_numpad2: INTEGER_32 = 98 -- Declared in Windows as VK_NUMPAD2 -- (from WEL_VK_CONSTANTS) Vk_numpad3: INTEGER_32 = 99 -- Declared in Windows as VK_NUMPAD3 -- (from WEL_VK_CONSTANTS) Vk_numpad4: INTEGER_32 = 100 -- Declared in Windows as VK_NUMPAD4 -- (from WEL_VK_CONSTANTS) Vk_numpad5: INTEGER_32 = 101 -- Declared in Windows as VK_NUMPAD5 -- (from WEL_VK_CONSTANTS) Vk_numpad6: INTEGER_32 = 102 -- Declared in Windows as VK_NUMPAD6 -- (from WEL_VK_CONSTANTS) Vk_numpad7: INTEGER_32 = 103 -- Declared in Windows as VK_NUMPAD7 -- (from WEL_VK_CONSTANTS) Vk_numpad8: INTEGER_32 = 104 -- Declared in Windows as VK_NUMPAD8 -- (from WEL_VK_CONSTANTS) Vk_numpad9: INTEGER_32 = 105 -- Declared in Windows as VK_NUMPAD9 -- (from WEL_VK_CONSTANTS) Vk_o: INTEGER_32 = 79 -- (from WEL_VK_CONSTANTS) Vk_p: INTEGER_32 = 80 -- (from WEL_VK_CONSTANTS) Vk_pause: INTEGER_32 = 19 -- Declared in Windows as VK_PAUSE -- (from WEL_VK_CONSTANTS) Vk_print: INTEGER_32 = 42 -- Declared in Windows as VK_PRINT -- (from WEL_VK_CONSTANTS) Vk_prior: INTEGER_32 = 33 -- Declared in Windows as VK_PRIOR -- (from WEL_VK_CONSTANTS) Vk_q: INTEGER_32 = 81 -- (from WEL_VK_CONSTANTS) Vk_r: INTEGER_32 = 82 -- (from WEL_VK_CONSTANTS) Vk_rbutton: INTEGER_32 = 2 -- Declared in Windows as VK_RBUTTON -- (from WEL_VK_CONSTANTS) Vk_rcontrol: INTEGER_32 = 163 -- Declared in Windows as VK_RCONTROL -- (from WEL_VK_CONSTANTS) Vk_return: INTEGER_32 = 13 -- Declared in Windows as VK_RETURN -- (from WEL_VK_CONSTANTS) Vk_right: INTEGER_32 = 39 -- Declared in Windows as VK_RIGHT -- (from WEL_VK_CONSTANTS) Vk_rmenu: INTEGER_32 = 165 -- Declared in Windows as VK_RMENU -- (from WEL_VK_CONSTANTS) Vk_rshift: INTEGER_32 = 161 -- Declared in Windows as VK_RSHIFT -- (from WEL_VK_CONSTANTS) Vk_s: INTEGER_32 = 83 -- (from WEL_VK_CONSTANTS) Vk_scroll: INTEGER_32 = 145 -- Declared in Windows as VK_SCROLL -- (from WEL_VK_CONSTANTS) Vk_select: INTEGER_32 = 41 -- Declared in Windows as VK_SELECT -- (from WEL_VK_CONSTANTS) Vk_separator: INTEGER_32 = 108 -- Declared in Windows as VK_SEPARATOR -- (from WEL_VK_CONSTANTS) Vk_shift: INTEGER_32 = 16 -- Declared in Windows as VK_SHIFT -- (from WEL_VK_CONSTANTS) Vk_snapshot: INTEGER_32 = 44 -- Declared in Windows as VK_SNAPSHOT -- (from WEL_VK_CONSTANTS) Vk_space: INTEGER_32 = 32 -- Declared in Windows as VK_SPACE -- (from WEL_VK_CONSTANTS) Vk_subtract: INTEGER_32 = 109 -- Declared in Windows as VK_SUBTRACT -- (from WEL_VK_CONSTANTS) Vk_t: INTEGER_32 = 84 -- (from WEL_VK_CONSTANTS) Vk_tab: INTEGER_32 = 9 -- Declared in Windows as VK_TAB -- (from WEL_VK_CONSTANTS) Vk_u: INTEGER_32 = 85 -- (from WEL_VK_CONSTANTS) Vk_up: INTEGER_32 = 38 -- Declared in Windows as VK_UP -- (from WEL_VK_CONSTANTS) Vk_v: INTEGER_32 = 86 -- (from WEL_VK_CONSTANTS) Vk_w: INTEGER_32 = 87 -- (from WEL_VK_CONSTANTS) Vk_x: INTEGER_32 = 88 -- (from WEL_VK_CONSTANTS) Vk_y: INTEGER_32 = 89 -- (from WEL_VK_CONSTANTS) Vk_z: INTEGER_32 = 90 -- (from WEL_VK_CONSTANTS) wel_height: INTEGER_32 -- Real height of widget as seen on screen. -- (from EV_WIDGET_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed Wel_rect: WEL_RECT -- Once access to an object of type WEL_RECT -- (from WEL_SHARED_TEMPORARY_OBJECTS) Wel_string: WEL_STRING -- Once access to an object of type WEL_STRING -- (from WEL_SHARED_TEMPORARY_OBJECTS) wel_string_from_string (s: READABLE_STRING_GENERAL): WEL_STRING -- Return a shared wel string set to s if -- s.count < Maximum_buffered_string_size, otherwise -- return a new WEL_STRING object set to s. -- (from WEL_SHARED_TEMPORARY_OBJECTS) require -- from WEL_SHARED_TEMPORARY_OBJECTS s_not_void: s /= Void wel_string_from_string_with_newline_conversion (s: READABLE_STRING_GENERAL): WEL_STRING -- Return a shared wel string set to s if -- s.count < Maximum_buffered_string_size, otherwise -- return a new WEL_STRING object set to s. -- Make sure all lone '%N' characters are prepended with a carriage return '%R'. -- (from WEL_SHARED_TEMPORARY_OBJECTS) require -- from WEL_SHARED_TEMPORARY_OBJECTS s_not_void: s /= Void wel_string_restricted (characters: INTEGER_32): WEL_STRING -- Return shared Wel_string as Result if characters -- is less than Maximum_buffered_string_size, otherwise return a -- new WEL_STRING object. This is used to prevent huge strings -- from being kept within a system. -- (from WEL_SHARED_TEMPORARY_OBJECTS) wel_width: INTEGER_32 -- Real width of widget as seen on screen. -- (from EV_WIDGET_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed widget_imp_at_pointer_position: detachable EV_WIDGET_IMP -- Result is implementation of widget at current -- pointer position or Void if none. -- (from EV_SHARED_TRANSPORT_IMP) require -- from EV_DOCKABLE_SOURCE_I True width: INTEGER_32 -- Width of Current. -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed x_position: INTEGER_32 -- Result is x_position of Current in pixels. -- If wel_parent not Void then Result is relative to wel_parent else -- Result is relative to screen. -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed y_position: INTEGER_32 -- Result is x_position of Current in pixels. -- If wel_parent not Void then Result is relative to wel_parent else -- Result is relative to screen. -- (from EV_WIDGET_IMP) require -- from EV_POSITIONED_I True require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed feature -- Measurement dpi: NATURAL_32 -- Window dpi. -- (from EV_POSITIONED_I) feature -- Comparison frozen deep_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void -- or attached to isomorphic object structures? -- (from ANY) ensure -- from ANY instance_free: class shallow_implies_deep: standard_equal (a, b) implies Result both_or_none_void: (a = Void) implies (Result = (b = Void)) same_type: (Result and (a /= Void)) implies (b /= Void and then a.same_type (b)) symmetric: Result implies deep_equal (b, a) frozen equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached -- to objects considered equal? -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.is_equal (b)) frozen is_deep_equal alias "≡≡≡" (other: EV_TEXT_COMPONENT_IMP): BOOLEAN -- Are Current and other attached to isomorphic object structures? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY shallow_implies_deep: standard_is_equal (other) implies Result same_type: Result implies same_type (other) symmetric: Result implies other.is_deep_equal (Current) is_equal (other: EV_TEXT_COMPONENT_IMP): BOOLEAN -- Is other attached to an object considered -- equal to current object? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY symmetric: Result implies other ~ Current consistent: standard_is_equal (other) implies Result frozen standard_equal (a: detachable ANY; b: like arg #1): BOOLEAN -- Are a and b either both void or attached to -- field-by-field identical objects of the same type? -- Always uses default object comparison criterion. -- (from ANY) ensure -- from ANY instance_free: class definition: Result = (a = Void and b = Void) or else ((a /= Void and b /= Void) and then a.standard_is_equal (b)) frozen standard_is_equal alias "" (other: EV_TEXT_COMPONENT_IMP): BOOLEAN -- Is other attached to an object of the same type -- as current object, and field-by-field identical to it? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY same_type: Result implies same_type (other) symmetric: Result implies other.standard_is_equal (Current) feature -- Status report caret_position: INTEGER_32 -- Current position of caret. closest_dockable_target: detachable EV_DOCKABLE_TARGET -- Result is first dockable target that is_dockable found by recursively -- searching up through the parenting structure from the widget -- currently underneath the pointer position. -- Result will be Void if a dockable target is not found. -- (from EV_DOCKABLE_SOURCE_I) ensure -- from EV_DOCKABLE_SOURCE_I result_is_dockable: Result /= Void implies Result.is_docking_enabled conforms_to (other: ANY): BOOLEAN -- Does type of current object conform to type -- of other (as per Eiffel: The Language, chapter 13)? -- (from ANY) require -- from ANY other_not_void: other /= Void destroyed: BOOLEAN -- Is Current destroyed ? -- (from EV_WIDGET_IMP) end_selection: INTEGER_32 -- Caret position of the end of selected text if any, -- otherwise caret_position. ensure -- from EV_TEXT_COMPONENT_I result_large_enough: Result >= 1 result_small_enough: Result <= text_length + 1 consistent_with_selection_end: end_selection >= Result flag_set (flags, mask: INTEGER_32): BOOLEAN -- Is mask set in flags? -- (from WEL_BIT_OPERATIONS) foreground_window: detachable WEL_WINDOW -- Foreground window (window with focus) -- (from WEL_WINDOWS_ROUTINES) get_next_target (a_widget: EV_WIDGET): detachable EV_DOCKABLE_TARGET -- Result is next dockable target that is is_dockable found by -- recursively seraching up the parenting structure from current_target. -- Result will be Void if none. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I a_widget_not_void: a_widget /= Void ensure -- from EV_DOCKABLE_SOURCE_I result_is_dockable: Result /= Void implies Result.is_docking_enabled has_capture: BOOLEAN -- Does Current have capture? -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True has_heavy_capture: BOOLEAN -- Does Current have heavy capture? -- (from EV_WIDGET_IMP) has_selection: BOOLEAN -- Does Current have a selection? -- (from EV_TEXT_COMPONENT_I) internal_non_sensitive: BOOLEAN -- Is Current not sensitive to input as seen -- from interface? -- (from EV_SENSITIVE_I) is_destroyed: BOOLEAN -- Is Current no longer usable? -- (from EV_ANY_I) is_editable: BOOLEAN -- Is text editable? is_replacing_nl_by_crnl: BOOLEAN -- Does current text control converts %N into %R%N? is_show_requested: BOOLEAN -- Is Current displayed in its parent? -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed is_terminal_service: BOOLEAN -- If window in terminal service (Remote Desktop)? -- (from WEL_WINDOWS_ROUTINES) require -- from WEL_WINDOWS_ROUTINES after_2000: (create {WEL_WINDOWS_VERSION}).is_windows_2000_compatible is_transport_enabled: BOOLEAN -- Is the transport mechanism enabled? -- (from EV_PICK_AND_DROPABLE_I) is_window (hwnd: POINTER): BOOLEAN -- Does hwnd point to a valid Window? -- (from WEL_WINDOWS_ROUTINES) key_down (virtual_key: INTEGER_32): BOOLEAN --Is 'virtual' key pressed -- (from WEL_WINDOWS_ROUTINES) key_locked (virtual_key: INTEGER_32): BOOLEAN --Is 'virtual' key locked -- (from WEL_WINDOWS_ROUTINES) key_to_string (key_data: INTEGER_32): STRING_32 -- Give the string associated with the key given by -- virtual_key. -- (from WEL_WINDOWS_ROUTINES) Managed: BOOLEAN = True -- All widgets are managed. -- (from EV_WIDGET_IMP) mode_is_configurable_target_menu: BOOLEAN -- Is the transport mechanism a configurable target menu? -- (from EV_PICK_AND_DROPABLE_I) mode_is_drag_and_drop: BOOLEAN -- Is the transport mechanism drag and drop? -- (from EV_PICK_AND_DROPABLE_I) mode_is_pick_and_drop: BOOLEAN -- Is the transport mechanism pick and drop? -- (from EV_PICK_AND_DROPABLE_I) mode_is_target_menu: BOOLEAN -- Is the transport mechanism a target menu? -- (from EV_PICK_AND_DROPABLE_I) same_type (other: ANY): BOOLEAN -- Is type of current object identical to type of other? -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY definition: Result = (conforms_to (other) and other.conforms_to (Current)) start_selection: INTEGER_32 -- Caret position of the start of selected text if any, -- otherwise caret_position. ensure -- from EV_TEXT_COMPONENT_I result_large_enough: Result >= 1 result_small_enough: Result <= text_length + 1 consistent_with_selection_start: Result >= start_selection system_directory: STRING_32 -- Path of the Windows system directory -- (from WEL_WINDOWS_ROUTINES) ensure -- from WEL_WINDOWS_ROUTINES result_not_void: Result /= Void tick_count: INTEGER_32 -- Number of milliseconds that have -- elapsed since Windows was started. -- (from WEL_WINDOWS_ROUTINES) ensure -- from WEL_WINDOWS_ROUTINES positive_result: Result >= 0 user_is_sensitive: BOOLEAN -- Is the object sensitive to user input. -- (from EV_SENSITIVE_I) valid_caret_position (pos: INTEGER_32): BOOLEAN -- Is pos a valid position for the caret? -- (from EV_TEXT_COMPONENT_I) wel_has_capture: BOOLEAN -- Does Current have a windows capture? -- (from EV_WIDGET_IMP) window_of_item (hwnd: POINTER): detachable WEL_WINDOW -- Retrieve Eiffel object associated with hwnd pointer. -- (from WEL_WINDOWS_ROUTINES) require -- from WEL_WINDOWS_ROUTINES hwnd_not_null: hwnd /= default_pointer is_window_pointer: is_window (hwnd) ensure -- from WEL_WINDOWS_ROUTINES is_wel_window: Result /= Void implies (create {INTERNAL}).type_conforms_to ((create {INTERNAL}).dynamic_type (Result), (create {INTERNAL}).dynamic_type_from_string ("WEL_WINDOW")) is_proper_wel_window: Result /= Void implies Result.item = hwnd windows_directory: STRING_32 -- Path of the Windows directory -- (from WEL_WINDOWS_ROUTINES) ensure -- from WEL_WINDOWS_ROUTINES result_not_void: Result /= Void feature -- Status setting check_drag_and_drop_release (a_x, a_y: INTEGER_32) -- End transport if in drag and drop. -- (from EV_PICK_AND_DROPABLE_IMP) check_dragable_release (a_x, a_y: INTEGER_32) -- End transport if in drag and drop. -- (from EV_DOCKABLE_SOURCE_IMP) disable_capture -- Release all user events. -- (from EV_WIDGET_IMP) require -- from EV_PICK_AND_DROPABLE_I True require -- from EV_DOCKABLE_SOURCE_IMP True disable_dockable -- Ensure Current is not dockable -- (from EV_DOCKABLE_SOURCE_I) ensure -- from EV_DOCKABLE_SOURCE_I not_is_dockable: not is_dockable disable_external_docking -- Forbid Current to be docked into an EV_DOCKABLE_DIALOG -- When there is no valid EV_DRAGABLE_TARGET upon completion -- of the transport? -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I is_dockable: is_dockable ensure -- from EV_DOCKABLE_SOURCE_I not_externally_dockable: not is_external_docking_enabled disable_external_docking_relative -- Assign False to is_external_docking_relative, ensuring that -- a dockable dialog displayed when Current is docked externally -- is displayed as a standard window. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I external_docking_enabled: is_external_docking_enabled ensure -- from EV_DOCKABLE_SOURCE_I external_docking_not_relative: not is_external_docking_relative disable_pebble_positioning -- Assign False to pebble_positioning_enabled. -- (from EV_PICK_AND_DROPABLE_I) disable_sensitive -- Set Current to insensitive mode. -- This means that any events with an -- event type of KeyPress, KeyRelease, -- ButtonPress, ButtonRelease, MotionNotify, -- EnterNotify, LeaveNotify, FocusIn or -- FocusOut will not be dispatched to current -- widget and to all its children.  Set it to -- sensitive mode otherwise. -- (from EV_WIDGET_IMP) require -- from EV_SENSITIVE_I True disable_transport -- Deactivate pick/drag and drop mechanism. -- (from EV_PICK_AND_DROPABLE_IMP) require -- from EV_PICK_AND_DROPABLE_I True ensure -- from EV_PICK_AND_DROPABLE_I is_transport_disabled: not is_transport_enabled dragable_motion (a_x, a_y, a_screen_x, a_screen_y: INTEGER_32) -- If in drag/pick and drop then update. -- (from EV_DOCKABLE_SOURCE_IMP) dragable_press (a_x, a_y, a_button, a_screen_x, a_screen_y: INTEGER_32) -- Process a_button to start/stop the drag/pick and -- drop mechanism. -- (from EV_DOCKABLE_SOURCE_IMP) enable_capture -- Enable capture. -- (from EV_WIDGET_IMP) require -- from EV_PICK_AND_DROPABLE_I True enable_dockable -- Allow Current to be dockable -- (from EV_DOCKABLE_SOURCE_I) ensure -- from EV_DOCKABLE_SOURCE_I is_dockable: is_dockable enable_external_docking -- Allow Current to be docked into an EV_DOCKABLE_DIALOG -- When there is no valid EV_DRAGABLE_TARGET upon completion -- of the transport? -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I is_dockable: is_dockable ensure -- from EV_DOCKABLE_SOURCE_I is_externally_dockable: is_external_docking_enabled enable_external_docking_relative -- Assign True to is_external_docking_relative, ensuring that -- a dockable dialog displayed when Current is docked externally -- is displayed relative to the top level window. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I external_docking_enabled: is_external_docking_enabled ensure -- from EV_DOCKABLE_SOURCE_I external_docking_not_relative: is_external_docking_relative enable_pebble_positioning -- Assign True to pebble_positioning_enabled. -- (from EV_PICK_AND_DROPABLE_I) enable_sensitive -- Set Current to sensitive mode. -- (from EV_WIDGET_IMP) require -- from EV_SENSITIVE_I True enable_transport -- Activate pick/drag and drop mechanism. -- (from EV_PICK_AND_DROPABLE_IMP) require -- from EV_PICK_AND_DROPABLE_I pebble_not_void: pebble /= Void or pebble_function /= Void ensure -- from EV_PICK_AND_DROPABLE_I is_transport_enabled: is_transport_enabled escape_pnd -- Escape the pick and drop. -- (from EV_PICK_AND_DROPABLE_IMP) ensure -- from EV_PICK_AND_DROPABLE_IMP not_in_transport: not transport_executing has_parent: BOOLEAN -- Is Current parented? -- (from EV_WIDGET_IMP) require -- from EV_SENSITIVE_I True hide -- Hide Current. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True parent_is_sensitive: BOOLEAN -- Is parent of Current sensitive? -- (from EV_WIDGET_IMP) require -- from EV_SENSITIVE_I True pnd_motion (a_x, a_y, a_screen_x, a_screen_y: INTEGER_32) -- If in drag/pick and drop then update. -- (from EV_PICK_AND_DROPABLE_IMP) pnd_press (a_x, a_y, a_button, a_screen_x, a_screen_y: INTEGER_32) -- Process a_button to start/stop the drag/pick and -- drop mechanism. -- (from EV_PICK_AND_DROPABLE_IMP) remove_default_key_processing_handler -- Ensure default_key_processing_handler is Void. -- (from EV_WIDGET_I) ensure -- from EV_WIDGET_I default_key_processing_handler_removed: default_key_processing_handler = Void remove_pebble -- Remove pebble. -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I pebble_removed: pebble = Void and pebble_function = Void is_transport_disabled: not is_transport_enabled remove_real_source -- Ensure real_source is Void. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I is_dockable: is_dockable ensure -- from EV_DOCKABLE_SOURCE_I real_source_void: real_source = Void remove_real_target -- Ensure real_target is Void. -- (from EV_WIDGET_I) ensure -- from EV_WIDGET_I real_target_void: real_target = Void reset_pebble_function -- Reset any values created by calling pebble_function. -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I pebble_function_preserved: pebble_function = old pebble_function pebble_without_function: pebble_function = Void implies (pebble = old pebble) pebble_with_function: pebble_function /= Void implies pebble = Void set_accept_cursor (a_cursor: like accept_cursor) -- Set a_cursor to be displayed when the screen pointer is over a -- target that accepts pebble during pick and drop. -- (from EV_PICK_AND_DROPABLE_I) set_actual_drop_target_agent (an_agent: like actual_drop_target_agent) -- Assign an_agent to actual_drop_target_agent. -- (from EV_WIDGET_I) require -- from EV_WIDGET_I an_agent_not_void: an_agent /= Void ensure -- from EV_WIDGET_I assigned: actual_drop_target_agent = an_agent set_caret_position (pos: INTEGER_32) -- set current caret position. require -- from EV_TEXT_COMPONENT_I valid_caret_position: pos >= 1 and pos <= text_length + 1 set_configurable_target_menu_handler (a_handler: like configurable_target_menu_handler) -- Set Configurable Target Menu Handler to a_handler. -- (from EV_PICK_AND_DROPABLE_I) set_configurable_target_menu_mode -- Set transport mechanism to a configurable target_menu. -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I mode_is_target_menu: mode_is_configurable_target_menu set_default_key_processing_handler (a_handler: like default_key_processing_handler) -- Assign default_key_processing_handler to a_handler. -- (from EV_WIDGET_I) set_deny_cursor (a_cursor: like deny_cursor) -- Set a_cursor to be displayed when the screen pointer is over a -- target that doesn't accept pebble during pick and drop. -- (from EV_PICK_AND_DROPABLE_I) set_drag_and_drop_mode -- Set transport mechanism to drag and drop, -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I mode_is_drag_and_drop: mode_is_drag_and_drop set_editable (flag: BOOLEAN) -- If flag then make Current editable else -- make Current component read-only. set_focus -- Grab keyboard focus. -- (from EV_WIDGET_I) set_pebble (a_pebble: ANY) -- Assign a_pebble to pebble. -- (from EV_PICK_AND_DROPABLE_I) require -- from EV_PICK_AND_DROPABLE_I a_pebble_not_void: a_pebble /= Void ensure -- from EV_PICK_AND_DROPABLE_I pebble_assigned: pebble = a_pebble is_transport_enabled: is_transport_enabled set_pebble_function (a_function: FUNCTION [detachable ANY]) -- Assign a_function to pebble_function. -- (from EV_PICK_AND_DROPABLE_I) require -- from EV_PICK_AND_DROPABLE_I a_function_not_void: a_function /= Void ensure -- from EV_PICK_AND_DROPABLE_I pebble_function_assigned: pebble_function = a_function is_transport_enabled: is_transport_enabled set_pebble_position (a_x, a_y: INTEGER_32) -- Set the initial position for pick and drop relative to Current. -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I pick_x_assigned: pick_x.to_integer_32 = a_x pick_y_assigned: pick_y.to_integer_32 = a_y set_pick_and_drop_mode -- Set transport mechanism to pick and drop, -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I mode_is_pick_and_drop: mode_is_pick_and_drop set_real_source (dockable_source: EV_DOCKABLE_SOURCE) -- Set dockable_source to be the widget moved when a -- drag begins on Current. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I is_dockable: is_dockable dockable_source_not_void: dockable_source /= Void ensure -- from EV_DOCKABLE_SOURCE_I real_source_assigned: real_source = dockable_source set_real_target (a_target: EV_DOCKABLE_TARGET) -- Assign a_target to real_target. -- (from EV_WIDGET_I) require -- from EV_WIDGET_I target_not_void: a_target /= Void ensure -- from EV_WIDGET_I assigned: real_target = a_target set_target_menu_mode -- Set transport mechanism to a target_menu. -- (from EV_PICK_AND_DROPABLE_I) ensure -- from EV_PICK_AND_DROPABLE_I mode_is_target_menu: mode_is_target_menu show -- Show Current. -- Need to notify the parent. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True show_configurable_target_menu (a_x, a_y: INTEGER_32) -- Show the configurable target menu at position a_x, a_y relative to Current. -- (from EV_PICK_AND_DROPABLE_I) user_disable_sensitive -- Make object desensitive to user input. -- (from EV_SENSITIVE_I) ensure -- from EV_SENSITIVE_I is_desensitive: not user_is_sensitive user_enable_sensitive -- Make object sensitive to user input. -- (from EV_SENSITIVE_I) ensure -- from EV_SENSITIVE_I is_sensitive_if_parent_sensitive: (has_parent and then parent_is_sensitive) implies attached_interface.implementation.is_sensitive is_sensitive_if_orphaned: not has_parent implies attached_interface.implementation.is_sensitive feature -- Element change remove_help_context -- Remove key press action associated with EV_APPLICATION.help_key. -- (from EV_HELP_CONTEXTABLE_I) require -- from EV_HELP_CONTEXTABLE_I help_context_not_void: help_context /= Void ensure -- from EV_HELP_CONTEXTABLE_I no_help_context: internal_help_context = Void set_background_color (color: EV_COLOR) -- Make color the new background_color -- (from EV_WIDGET_IMP) require -- from EV_COLORIZABLE_I a_color_not_void: color /= Void ensure -- from EV_COLORIZABLE_I background_color_assigned: is_initialized implies background_color.is_equal (color) set_default_colors -- Set foreground and background color to their default values. -- (from EV_WIDGET_IMP) require -- from EV_COLORIZABLE_I True set_foreground_color (color: EV_COLOR) -- Make color the new foreground_color -- (from EV_WIDGET_IMP) require -- from EV_COLORIZABLE_I a_color_not_void: color /= Void ensure -- from EV_COLORIZABLE_I foreground_color_assigned: is_initialized implies foreground_color.is_equal (color) set_help_context (an_help_context: like help_context) -- Assign a_help_context to help_context. -- Assign an_help_context to help_context. -- (from EV_HELP_CONTEXTABLE_I) require -- from EV_HELP_CONTEXTABLE_I an_help_context_not_void: an_help_context /= Void ensure -- from EV_HELP_CONTEXTABLE_I help_context_assigned: attached help_context as l_help_context and then l_help_context ~ an_help_context set_parent_imp (par_imp: detachable EV_CONTAINER_IMP) -- Make par the new parent of the widget. -- par can be Void then the parent is the -- default_parent. -- (from EV_PRIMITIVE_IMP) set_text (a_text: READABLE_STRING_GENERAL) -- Assign a_text to text. -- (from EV_TEXTABLE_I) require -- from EV_TEXTABLE_I a_text_not_void: a_text /= Void no_carriage_returns: not a_text.has_code (('%R').natural_32_code) ensure -- from EV_TEXTABLE_I text_cloned: attached a_text as l_text and then text.same_string_general (l_text) and then text /= l_text set_tooltip (a_tooltip: READABLE_STRING_GENERAL) -- Assign a_tooltip to tooltip. -- (from EV_WEL_TOOLTIPABLE) require -- from EV_TOOLTIPABLE_I a_tooltip_not_void: a_tooltip /= Void set_top_level_window_imp (a_window: detachable EV_WINDOW_IMP) -- Make a_window the new top_level_window_imp -- of Current. -- (from EV_PRIMITIVE_IMP) feature -- Resizing set_height (value: INTEGER_32) -- Make value the new height of Current. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed set_minimum_height (value: INTEGER_32) -- Make value the new minimum_height of Current. -- There is no need to grow Current if its size is -- too small, the parent will do it if necessary. -- (from EV_SIZEABLE_IMP) require -- from EV_WIDGET_I a_minimum_height_positive: value >= 0 require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed ensure -- from EV_WIDGET_I minimum_height_assigned: is_usable implies ((value > 0 implies attached_interface.minimum_height = value) or (value = 0 implies (attached_interface.minimum_height <= 1))) set_minimum_size (mw, mh: INTEGER_32) -- Make mw the new minimum_width and mh the new -- minimum_height of Current. -- (from EV_SIZEABLE_IMP) require -- from EV_WIDGET_I a_minimum_width_positive: mw >= 0 a_minimum_height_positive: mh >= 0 require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed ensure -- from EV_WIDGET_I minimum_width_assigned: is_usable implies ((mw > 0 implies attached_interface.minimum_width = mw) or (mw = 0 implies (attached_interface.minimum_width <= 1))) minimum_height_assigned: is_usable implies ((mh > 0 implies attached_interface.minimum_height = mh) or (mh = 0 implies (attached_interface.minimum_height <= 1))) set_minimum_width (value: INTEGER_32) -- Make value the new minimum_width of Current. -- There is no need to grow Current if its size is -- too small, the parent will do it if necessary. -- (from EV_SIZEABLE_IMP) require -- from EV_WIDGET_I a_minimum_width_positive: value >= 0 require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed ensure -- from EV_WIDGET_I minimum_width_assigned: is_usable implies ((value > 0 implies attached_interface.minimum_width = value) or (value = 0 implies (attached_interface.minimum_width <= 1))) set_minimum_width_in_characters (nb: INTEGER_32) -- Make a minimum of nb characters visible on one line. require -- from EV_TEXT_COMPONENT_I valid_nb: nb > 0 set_size (w, h: INTEGER_32) -- Resize Current. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed set_width (value: INTEGER_32) -- Make value the new width of Current. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed feature -- Conversion key_code_from_wel (a_wel_code: INTEGER_32): INTEGER_32 -- Corresponding key code for a_wel_code. -- (from EV_WEL_KEY_CONVERSION) require -- from EV_WEL_KEY_CONVERSION a_wel_code_valid: valid_wel_code (a_wel_code) key_code_to_wel (a_key_code: INTEGER_32): INTEGER_32 -- Corresponding WEL code for a_key_code. -- (from EV_WEL_KEY_CONVERSION) require -- from EV_WEL_KEY_CONVERSION a_key_code_valid: valid_key_code (a_key_code) feature -- Duplication copy (other: EV_TEXT_COMPONENT_IMP) -- Update current object using fields of object attached -- to other, so as to yield equal objects. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_equal: Current ~ other frozen deep_copy (other: EV_TEXT_COMPONENT_IMP) -- Effect equivalent to that of: -- copy (other . deep_twin) -- (from ANY) require -- from ANY other_not_void: other /= Void ensure -- from ANY deep_equal: deep_equal (Current, other) frozen deep_twin: EV_TEXT_COMPONENT_IMP -- New object structure recursively duplicated from Current. -- (from ANY) ensure -- from ANY deep_twin_not_void: Result /= Void deep_equal: deep_equal (Current, Result) frozen standard_copy (other: EV_TEXT_COMPONENT_IMP) -- Copy every field of other onto corresponding field -- of current object. -- (from ANY) require -- from ANY other_not_void: other /= Void type_identity: same_type (other) ensure -- from ANY is_standard_equal: standard_is_equal (other) frozen standard_twin: EV_TEXT_COMPONENT_IMP -- New object field-by-field identical to other. -- Always uses default copying semantics. -- (from ANY) ensure -- from ANY standard_twin_not_void: Result /= Void equal: standard_equal (Result, Current) frozen twin: EV_TEXT_COMPONENT_IMP -- New object equal to Current -- twin calls copy; to change copying/twinning semantics, redefine copy. -- (from ANY) ensure -- from ANY twin_not_void: Result /= Void is_equal: Result ~ Current feature -- Basic operations clear_flag (flags, mask: INTEGER_32): INTEGER_32 -- Clear the mask in flags -- (from WEL_BIT_OPERATIONS) ensure -- from WEL_BIT_OPERATIONS flag_unset: not flag_set (Result, mask) close_dockable_dialog (dockable_dialog: EV_DOCKABLE_DIALOG) -- Close request received by dockable_dialog so -- restore widget contained back to its original position -- in its old parent if possible. -- We must fire dock_ended actions. -- (from EV_DOCKABLE_SOURCE_I) ensure -- from EV_DOCKABLE_SOURCE_I dockable_dialog_destroyed: dockable_dialog.is_destroyed complete_dock -- Complete a dock from source_being_docked. -- (from EV_DOCKABLE_SOURCE_I) require -- from EV_DOCKABLE_SOURCE_I source_being_docked: source_being_docked /= Void ensure -- from EV_DOCKABLE_SOURCE_I not_dock_executing: not is_dock_executing insert_separator_not_parented: Insert_sep.parent = Void insert_label_not_parented: Insert_label.parent = Void cwin_hi_word (value: POINTER): INTEGER_32 -- SDK HIWORD -- (from WEL_WORD_OPERATIONS) cwin_lo_word (value: POINTER): INTEGER_32 -- SDK LOWORD -- (from WEL_WORD_OPERATIONS) cwin_make_long (low, high: INTEGER_32): POINTER -- SDK MAKELONG -- (from WEL_WORD_OPERATIONS) cwin_make_lparam (low, high: INTEGER_32): POINTER -- SKD MAKELPARAM -- (from WEL_WORD_OPERATIONS) frozen default: detachable EV_TEXT_COMPONENT_IMP -- Default value of object's type -- (from ANY) frozen default_pointer: POINTER -- Default value of type POINTER -- (Avoid the need to write p.default for -- some p of type POINTER.) -- (from ANY) ensure -- from ANY instance_free: class default_rescue -- Process exception for routines with no Rescue clause. -- (Default: do nothing.) -- (from ANY) frozen do_nothing -- Execute a null action. -- (from ANY) ensure -- from ANY instance_free: class eif_current_object_id: INTEGER_32 -- New identifier for Current -- (from IDENTIFIED_ROUTINES) ensure -- from IDENTIFIED_ROUTINES eif_current_object_id: Result > 0 inserted: eif_is_object_id_of_current (Result) eif_id_any_object (an_id: INTEGER_32): detachable ANY -- Object associated with an_id -- (from IDENTIFIED_ROUTINES) require -- from IDENTIFIED_ROUTINES an_id_non_negative: an_id >= 0 ensure -- from IDENTIFIED_ROUTINES instance_free: class eif_is_object_id_of_current (an_id: INTEGER_32): BOOLEAN -- Is an_id the associated object ID of Current. -- (from IDENTIFIED_ROUTINES) require -- from IDENTIFIED_ROUTINES an_id_non_negative: an_id >= 0 eif_object_id (an_object: ANY): INTEGER_32 -- New identifier for an_object -- (from IDENTIFIED_ROUTINES) ensure -- from IDENTIFIED_ROUTINES instance_free: class eif_object_id_positive: Result > 0 inserted: eif_id_any_object (Result) = an_object eif_object_id_free (an_id: INTEGER_32) -- Free the entry an_id -- (from IDENTIFIED_ROUTINES) require -- from IDENTIFIED_ROUTINES an_id_non_negative: an_id >= 0 ensure -- from IDENTIFIED_ROUTINES instance_free: class removed: eif_id_any_object (an_id) = Void hide_cursor -- Hide the cursor. -- (from WEL_WINDOWS_ROUTINES) message_beep_asterisk -- Play the system asterisk waveform sound. -- (from WEL_WINDOWS_ROUTINES) message_beep_exclamation -- Play the system exclamation waveform sound. -- (from WEL_WINDOWS_ROUTINES) message_beep_hand -- Play the system hand waveform sound. -- (from WEL_WINDOWS_ROUTINES) message_beep_ok -- Play the system ok waveform sound. -- (from WEL_WINDOWS_ROUTINES) message_beep_question -- Play the system question waveform sound. -- (from WEL_WINDOWS_ROUTINES) on_getdlgcode -- Called when window receives WM_GETDLGCODE message. -- (from EV_PRIMITIVE_IMP) output_debug_string (s: READABLE_STRING_GENERAL) -- Send a string s to the system debugger. -- (from WEL_WINDOWS_ROUTINES) require -- from WEL_WINDOWS_ROUTINES s_not_void: s /= Void resource_string_id (an_id: INTEGER_32): STRING_32 -- String identified by an_id in the resource file. -- (from WEL_WINDOWS_ROUTINES) ensure -- from WEL_WINDOWS_ROUTINES result_not_void: Result /= Void set_cursor_position_absolute (x, y: INTEGER_32) -- Set the cursor position to x, y. -- (from WEL_WINDOWS_ROUTINES) set_flag (flags, mask: INTEGER_32): INTEGER_32 -- Set the mask in flags -- (from WEL_BIT_OPERATIONS) ensure -- from WEL_BIT_OPERATIONS flag_set: flag_set (Result, mask) show_cursor -- Show the cursor. -- (from WEL_WINDOWS_ROUTINES) tooltip_window: detachable WEL_WINDOW -- Result is WEL_WINDOW of Current used -- to trigger tooltip events. May be redefined in -- descendents that are composed of more than one window -- such as combo boxes. -- (from EV_PRIMITIVE_IMP) feature -- Obsolete Nc_minheight: INTEGER_32 = 2 -- Used only in the notify_change feature to -- notify the parent that the minimum height of -- Current has changed. -- (from EV_SIZEABLE_IMP) Nc_minsize: INTEGER_32 = 3 -- Used only in the notify_change feature to -- notify the parent that both the minimum width -- and height of Current widget have changed. -- (from EV_SIZEABLE_IMP) Nc_minwidth: INTEGER_32 = 1 -- Used only in the notify_change feature to -- notify the parent that the minimum width of -- Current has changed. -- (from EV_SIZEABLE_IMP) feature -- Inapplicable Drag_cursor: EV_POINTER_STYLE -- Cursor used when Current is being transported. -- (from EV_DOCKABLE_SOURCE_I) feature -- Implementation clipboard_content: STRING_32 -- Result is current clipboard content. destroy -- Destroy Current. -- (from EV_PRIMITIVE_IMP) require -- from EV_ANY_I True ensure -- from EV_ANY_I is_in_destroy_set: is_in_destroy is_destroyed_set: is_destroyed internal_disable_dockable -- Enable or disable dockable. -- This has no implementation on Windows, as we do not need it. -- On Gtk, this is necessary, so that the necessary signal -- connections may be performed. -- Was declared in EV_DOCKABLE_SOURCE_IMP as synonym of internal_enable_dockable. -- (from EV_DOCKABLE_SOURCE_IMP) require -- from EV_DOCKABLE_SOURCE_I True internal_enable_dockable -- Enable or disable dockable. -- This has no implementation on Windows, as we do not need it. -- On Gtk, this is necessary, so that the necessary signal -- connections may be performed. -- Was declared in EV_DOCKABLE_SOURCE_IMP as synonym of internal_disable_dockable. -- (from EV_DOCKABLE_SOURCE_IMP) require -- from EV_DOCKABLE_SOURCE_I True is_control_in_window (hwnd_control: POINTER): BOOLEAN -- Is the control of handle hwnd_control -- located inside the current window? -- (from EV_PRIMITIVE_IMP) release_capture -- (from EV_PICK_AND_DROPABLE_IMP) require -- from EV_DOCKABLE_SOURCE_IMP True set_capture -- (from EV_PICK_AND_DROPABLE_IMP) require -- from EV_DOCKABLE_SOURCE_IMP True feature -- Access EV_DRAGABLE_SOURCE. dockable_dialog_target: detachable EV_DOCKABLE_DIALOG -- A dockable dialog that will be created as -- necessary. This is not a local, to avoid it -- being garbage collected. -- (from EV_SHARED_TRANSPORT_I) Global_drag_targets: ARRAYED_LIST [INTEGER_32] -- Shortcut to EV_APPLICATION.pnd_targets. -- (from EV_SHARED_TRANSPORT_I) frozen Insert_label: EV_CELL -- Label used to indicate where Current will be placed in target. -- (from EV_SHARED_TRANSPORT_I) ensure -- from EV_SHARED_TRANSPORT_I result_not_void: Result /= Void Insert_label_imp: EV_CELL_I -- Once access to implementation of Insert_label. -- (from EV_SHARED_TRANSPORT_I) ensure -- from EV_SHARED_TRANSPORT_I Result /= Void Insert_sep: EV_TOOL_BAR_SEPARATOR -- Once access to a separator used to indicate the insertion position -- when moving tool bar items. -- (from EV_SHARED_TRANSPORT_I) Insert_sep_imp: EV_TOOL_BAR_SEPARATOR_I -- Once access to implementation of Insert_sep. -- (from EV_SHARED_TRANSPORT_I) ensure -- from EV_SHARED_TRANSPORT_I Result /= Void Internal_screen: EV_SCREEN -- Once access to an EV_SCREEN. -- (from EV_SHARED_TRANSPORT_I) original_x_offset: INTEGER_16 -- Original x_offset and original_y_offset of transport -- realtive to widget. Only used for dragable transports. -- (from EV_SHARED_TRANSPORT_I) original_y_offset: INTEGER_16 -- Original x_offset and original_y_offset of transport -- realtive to widget. Only used for dragable transports. -- (from EV_SHARED_TRANSPORT_I) originating_source: detachable EV_DOCKABLE_SOURCE_I -- Dragable source that originated the transport of source_being_dragged. -- (from EV_SHARED_TRANSPORT_I) remove_insert_label -- Remove Insert_label from its current parent. -- We must handle a special case for cells. If the parent is a cell, -- then we remove the cell from its parent, and then restore it. -- Otherwise, when the label, removed, the cell keeps it size, and cells -- are normally used with real_target when the cell must -- not be visible. -- (from EV_SHARED_TRANSPORT_I) ensure -- from EV_SHARED_TRANSPORT_I not_parented: Insert_label.parent = Void remove_insert_sep -- Ensure inset_sep is not parented. -- (from EV_SHARED_TRANSPORT_I) ensure -- from EV_SHARED_TRANSPORT_I not_parented: Insert_sep.parent = Void source_being_docked: detachable EV_DOCKABLE_SOURCE_I -- Dragable source currently being transported. May be a -- WIDGET_IMP or an EV_TOOL_BAR_BUTTON_IMP. -- (from EV_SHARED_TRANSPORT_I) feature -- Access EV_PICK_AND_DROPABLE. Default_accept_cursor: EV_POINTER_STYLE -- Used in lieu of a user defined accept_cursor. -- (from EV_SHARED_TRANSPORT_I) Default_deny_cursor: EV_POINTER_STYLE -- Used in lieu of a user defined deny_cursor. -- (from EV_SHARED_TRANSPORT_I) Default_pixmaps: EV_STOCK_PIXMAPS -- Default pixmaps -- (from EV_SHARED_TRANSPORT_I) Global_pnd_targets: HASH_TABLE [INTEGER_32, INTEGER_32] -- Shortcut to EV_APPLICATION.pnd_targets. -- (from EV_SHARED_TRANSPORT_I) rubber_band_is_drawn: BOOLEAN -- Is a rubber band line currently on the screen? -- (from EV_SHARED_TRANSPORT_I) feature -- Access common. pointer_x: INTEGER_16 -- (from EV_SHARED_TRANSPORT_I) pointer_y: INTEGER_16 -- (from EV_SHARED_TRANSPORT_I) feature -- Basic Operations refresh_now -- Refresh now. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_I True feature -- Basic operation internal_set_minimum_height (value: INTEGER_32) -- Make value the new minimum_height of Current. -- Should check if the user didn't set the minimum width -- before to set the new value. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP positive_value: value >= 0 internal_set_minimum_size (mw, mh: INTEGER_32) -- Make mw the new minimum_width and mh the new -- minimum_height of Current. -- Should check if the user didn't set the minimum width -- before to set the new value. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP positive_mw: mw >= 0 positive_mh: mh >= 0 internal_set_minimum_width (value: INTEGER_32) -- Make value the new minimum_width of Current. -- Should check if the user didn't set the minimum width -- before to set the new value. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP positive_value: value >= 0 internal_set_size (mw, mh: INTEGER_32) -- Set size of child_cell. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP positive_mw: mw >= 0 positive_mh: mh >= 0 parent_ask_resize (a_width, a_height: INTEGER_32) -- Called by the parent when the size of Current has to be -- changed to a_width, a_height. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed paste (index: INTEGER_32) -- Insert string which is in Clipboard at -- index postion in text. -- If Clipboard is empty, it does nothing. require -- from EV_TEXT_COMPONENT_I index_large_enough: index >= 1 index_small_enough: index <= text_length + 1 is_editable: is_editable select_region (start_pos, end_pos: INTEGER_32) -- Select (hilight) text between -- 'start_pos' and 'end_pos' require -- from EV_TEXT_COMPONENT_I valid_start_character_position: start_pos >= 1 and start_pos <= text_length valid_end_character_position: end_pos >= 1 and end_pos <= text_length ensure -- from EV_TEXT_COMPONENT_I has_selection: has_selection selection_set: (start_pos <= end_pos implies start_selection = start_pos and end_selection = end_pos + 1) or start_selection = end_pos and end_selection = start_pos + 1 set_move_and_size (a_x_position, a_y_position, a_width, a_height: INTEGER_32) -- Move and resize the widget. Only the parent can call this feature -- because it doesn't notify the parent of the change. -- Equivalent of parent_ask_resize with move. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed set_selection (a_start_pos, a_end_pos: INTEGER_32) -- Select (highlight) the characters between valid caret positions a_start_pos and a_end_pos. require -- from EV_TEXT_COMPONENT_I valid_start: a_start_pos > 0 and a_start_pos <= text_length + 1 valid_end: a_end_pos > 0 and a_end_pos <= text_length + 1 ensure -- from EV_TEXT_COMPONENT_I selection_set: a_start_pos /= a_end_pos = has_selection wel_set_font (a_wel_font: WEL_FONT) -- Assign a_wel_font to font of Current. feature -- Constants Key_0: INTEGER_32 = 1 -- (from EV_KEY_CONSTANTS) Key_1: INTEGER_32 = 2 -- (from EV_KEY_CONSTANTS) Key_2: INTEGER_32 = 3 -- (from EV_KEY_CONSTANTS) Key_3: INTEGER_32 = 4 -- (from EV_KEY_CONSTANTS) Key_4: INTEGER_32 = 5 -- (from EV_KEY_CONSTANTS) Key_5: INTEGER_32 = 6 -- (from EV_KEY_CONSTANTS) Key_6: INTEGER_32 = 7 -- (from EV_KEY_CONSTANTS) Key_7: INTEGER_32 = 8 -- (from EV_KEY_CONSTANTS) Key_8: INTEGER_32 = 9 -- (from EV_KEY_CONSTANTS) Key_9: INTEGER_32 = 10 -- (from EV_KEY_CONSTANTS) Key_a: INTEGER_32 = 68 -- (from EV_KEY_CONSTANTS) Key_alt: INTEGER_32 = 96 -- (from EV_KEY_CONSTANTS) Key_b: INTEGER_32 = 69 -- (from EV_KEY_CONSTANTS) Key_back_space: INTEGER_32 = 40 -- (from EV_KEY_CONSTANTS) Key_backquote: INTEGER_32 = 56 -- (from EV_KEY_CONSTANTS) Key_backslash: INTEGER_32 = 54 -- (from EV_KEY_CONSTANTS) Key_c: INTEGER_32 = 70 -- (from EV_KEY_CONSTANTS) Key_caps_lock: INTEGER_32 = 45 -- (from EV_KEY_CONSTANTS) Key_close_bracket: INTEGER_32 = 52 -- (from EV_KEY_CONSTANTS) Key_comma: INTEGER_32 = 47 -- (from EV_KEY_CONSTANTS) Key_ctrl: INTEGER_32 = 95 -- (from EV_KEY_CONSTANTS) Key_d: INTEGER_32 = 71 -- (from EV_KEY_CONSTANTS) Key_dash: INTEGER_32 = 57 -- (from EV_KEY_CONSTANTS) Key_delete: INTEGER_32 = 67 -- (from EV_KEY_CONSTANTS) Key_down_arrow: INTEGER_32 = 59 -- (from EV_KEY_CONSTANTS) Key_e: INTEGER_32 = 72 -- (from EV_KEY_CONSTANTS) Key_end: INTEGER_32 = 65 -- (from EV_KEY_CONSTANTS) Key_enter: INTEGER_32 = 41 -- (from EV_KEY_CONSTANTS) Key_equal: INTEGER_32 = 48 -- (from EV_KEY_CONSTANTS) Key_escape: INTEGER_32 = 42 -- (from EV_KEY_CONSTANTS) Key_f: INTEGER_32 = 73 -- (from EV_KEY_CONSTANTS) Key_f1: INTEGER_32 = 27 -- (from EV_KEY_CONSTANTS) Key_f10: INTEGER_32 = 36 -- (from EV_KEY_CONSTANTS) Key_f11: INTEGER_32 = 37 -- (from EV_KEY_CONSTANTS) Key_f12: INTEGER_32 = 38 -- (from EV_KEY_CONSTANTS) Key_f2: INTEGER_32 = 28 -- (from EV_KEY_CONSTANTS) Key_f3: INTEGER_32 = 29 -- (from EV_KEY_CONSTANTS) Key_f4: INTEGER_32 = 30 -- (from EV_KEY_CONSTANTS) Key_f5: INTEGER_32 = 31 -- (from EV_KEY_CONSTANTS) Key_f6: INTEGER_32 = 32 -- (from EV_KEY_CONSTANTS) Key_f7: INTEGER_32 = 33 -- (from EV_KEY_CONSTANTS) Key_f8: INTEGER_32 = 34 -- (from EV_KEY_CONSTANTS) Key_f9: INTEGER_32 = 35 -- (from EV_KEY_CONSTANTS) Key_g: INTEGER_32 = 74 -- (from EV_KEY_CONSTANTS) Key_h: INTEGER_32 = 75 -- (from EV_KEY_CONSTANTS) Key_home: INTEGER_32 = 64 -- (from EV_KEY_CONSTANTS) Key_i: INTEGER_32 = 76 -- (from EV_KEY_CONSTANTS) Key_insert: INTEGER_32 = 66 -- (from EV_KEY_CONSTANTS) Key_j: INTEGER_32 = 77 -- (from EV_KEY_CONSTANTS) Key_k: INTEGER_32 = 78 -- (from EV_KEY_CONSTANTS) Key_l: INTEGER_32 = 79 -- (from EV_KEY_CONSTANTS) Key_left: INTEGER_32 = 60 -- (from EV_KEY_CONSTANTS) Key_left_meta: INTEGER_32 = 97 -- (from EV_KEY_CONSTANTS) Key_m: INTEGER_32 = 80 -- (from EV_KEY_CONSTANTS) Key_menu: INTEGER_32 = 99 -- (from EV_KEY_CONSTANTS) Key_n: INTEGER_32 = 81 -- (from EV_KEY_CONSTANTS) Key_num_lock: INTEGER_32 = 24 -- (from EV_KEY_CONSTANTS) Key_numpad_0: INTEGER_32 = 11 -- (from EV_KEY_CONSTANTS) Key_numpad_1: INTEGER_32 = 12 -- (from EV_KEY_CONSTANTS) Key_numpad_2: INTEGER_32 = 13 -- (from EV_KEY_CONSTANTS) Key_numpad_3: INTEGER_32 = 14 -- (from EV_KEY_CONSTANTS) Key_numpad_4: INTEGER_32 = 15 -- (from EV_KEY_CONSTANTS) Key_numpad_5: INTEGER_32 = 16 -- (from EV_KEY_CONSTANTS) Key_numpad_6: INTEGER_32 = 17 -- (from EV_KEY_CONSTANTS) Key_numpad_7: INTEGER_32 = 18 -- (from EV_KEY_CONSTANTS) Key_numpad_8: INTEGER_32 = 19 -- (from EV_KEY_CONSTANTS) Key_numpad_9: INTEGER_32 = 20 -- (from EV_KEY_CONSTANTS) Key_numpad_add: INTEGER_32 = 21 -- (from EV_KEY_CONSTANTS) Key_numpad_decimal: INTEGER_32 = 26 -- (from EV_KEY_CONSTANTS) Key_numpad_divide: INTEGER_32 = 22 -- (from EV_KEY_CONSTANTS) Key_numpad_multiply: INTEGER_32 = 23 -- (from EV_KEY_CONSTANTS) Key_numpad_subtract: INTEGER_32 = 25 -- (from EV_KEY_CONSTANTS) Key_o: INTEGER_32 = 82 -- (from EV_KEY_CONSTANTS) Key_open_bracket: INTEGER_32 = 51 -- (from EV_KEY_CONSTANTS) Key_p: INTEGER_32 = 83 -- (from EV_KEY_CONSTANTS) Key_page_down: INTEGER_32 = 63 -- (from EV_KEY_CONSTANTS) Key_page_up: INTEGER_32 = 62 -- (from EV_KEY_CONSTANTS) Key_pause: INTEGER_32 = 44 -- (from EV_KEY_CONSTANTS) Key_period: INTEGER_32 = 49 -- (from EV_KEY_CONSTANTS) Key_q: INTEGER_32 = 84 -- (from EV_KEY_CONSTANTS) Key_quote: INTEGER_32 = 55 -- (from EV_KEY_CONSTANTS) Key_r: INTEGER_32 = 85 -- (from EV_KEY_CONSTANTS) Key_right: INTEGER_32 = 61 -- (from EV_KEY_CONSTANTS) Key_right_meta: INTEGER_32 = 98 -- (from EV_KEY_CONSTANTS) Key_s: INTEGER_32 = 86 -- (from EV_KEY_CONSTANTS) Key_scroll_lock: INTEGER_32 = 46 -- (from EV_KEY_CONSTANTS) Key_semicolon: INTEGER_32 = 50 -- (from EV_KEY_CONSTANTS) Key_shift: INTEGER_32 = 94 -- (from EV_KEY_CONSTANTS) Key_slash: INTEGER_32 = 53 -- (from EV_KEY_CONSTANTS) Key_space: INTEGER_32 = 39 -- (from EV_KEY_CONSTANTS) Key_t: INTEGER_32 = 87 -- (from EV_KEY_CONSTANTS) Key_tab: INTEGER_32 = 43 -- (from EV_KEY_CONSTANTS) Key_u: INTEGER_32 = 88 -- (from EV_KEY_CONSTANTS) Key_up_arrow: INTEGER_32 = 58 -- (from EV_KEY_CONSTANTS) Key_v: INTEGER_32 = 89 -- (from EV_KEY_CONSTANTS) Key_w: INTEGER_32 = 90 -- (from EV_KEY_CONSTANTS) Key_x: INTEGER_32 = 91 -- (from EV_KEY_CONSTANTS) Key_y: INTEGER_32 = 92 -- (from EV_KEY_CONSTANTS) Key_z: INTEGER_32 = 93 -- (from EV_KEY_CONSTANTS) feature -- Contract support valid_key_code (a_code: INTEGER_32): BOOLEAN -- Is a_code a valid key code? -- (from EV_KEY_CONSTANTS) valid_wel_code (a_wel_code: INTEGER_32): BOOLEAN -- Is a_wel_code valid? -- (from EV_WEL_KEY_CONVERSION) feature -- Conversion from Eiffel to Windows frozen to_lparam (i: INTEGER_32): POINTER -- Convert integer value i in a valid LPARAM value. -- (from WEL_DATA_TYPE) ensure -- from WEL_DATA_TYPE is_class: class frozen to_lresult (i: INTEGER_32): POINTER -- Convert integer value i in a valid LRESULT value. -- (from WEL_DATA_TYPE) ensure -- from WEL_DATA_TYPE is_class: class frozen to_wparam (i: INTEGER_32): POINTER -- Convert integer value i in a valid WPARAM value. -- (from WEL_DATA_TYPE) ensure -- from WEL_DATA_TYPE is_class: class feature -- Deferred features absolute_x: INTEGER_32 -- Result is x position relative to screen in pixels. -- (from EV_WIDGET_IMP) absolute_y: INTEGER_32 -- Result is y position relative to screen in pixels. -- (from EV_WIDGET_IMP) background_color_internal: EV_COLOR -- Color used for the background of Current. -- This has been redefined as the background color of -- text components is white, or Color_read_write by default. require -- from EV_COLORIZABLE_I True client_rect: WEL_RECT -- Area used by Current. -- (from EV_WIDGET_IMP) cwin_get_next_dlgtabitem (hdlg, hctl: POINTER; previous: BOOLEAN): POINTER -- SDK GetNextDlgTabItem -- (from EV_WIDGET_IMP) default_style: INTEGER_32 -- Default style of Current. -- (from EV_WIDGET_IMP) disable -- Disable mouse and keyboard input -- (from EV_WIDGET_IMP) disable_default_processing -- (from EV_WIDGET_IMP) enable -- Enable mouse and keyboard input. -- (from EV_WIDGET_IMP) exists: BOOLEAN -- Does the window exist? -- (from EV_WIDGET_IMP) has_tabstop: BOOLEAN -- Does Current exhibit all attributes to permit it to receive the -- focus while tabbing? -- (from EV_WIDGET_IMP) invalidate -- Cause Current to re-draw. -- (from EV_WIDGET_IMP) next_dlgtabitem (hdlg, hctl: POINTER; previous: BOOLEAN): POINTER -- Encapsulation of the SDK GetNextDlgTabItem, -- because we cannot do a deferred feature become an -- external feature. -- (from EV_WIDGET_IMP) next_tabstop_widget (start_widget: EV_WIDGET; search_pos: INTEGER_32; forwards: BOOLEAN): EV_WIDGET_IMP -- Return the next widget that may by tabbed to as a result of pressing the tab key from start_widget. -- search_pos is the index where searching must start from for containers, and forwards determines the -- tabbing direction. If search_pos is less then 1 or more than count for containers, the parent of the -- container must be searched next. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP start_widget_not_void: start_widget /= Void ensure -- from EV_WIDGET_IMP result_not_void: Result /= Void next_tabstop_widget_from_parent (start_widget: EV_WIDGET; search_pos: INTEGER_32; forwards: BOOLEAN): EV_WIDGET_IMP -- Return the next widget that may be tabbed to as a result of pressing the tab key from start_widget -- by visiting the parent of Current with a search index determined by search_pos and forwards. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP start_widget_not_void: start_widget /= Void ensure -- from EV_WIDGET_IMP result_not_void: Result /= Void on_size (size_type, a_width, a_height: INTEGER_32) -- Current has been resized. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP exists: exists return_current_if_next_tabstop_widget (start_widget: EV_WIDGET; search_pos: INTEGER_32; forwards: BOOLEAN): detachable EV_WIDGET_IMP -- If Current is not equal to start_widget then return Current but only if search_pos is 1 and forwards or -- search_pos is 0 and not `forwards. This ensures that we return a container in the correct order (before or after) -- its children dependent on the state of forwards. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP start_widget_not_void: start_widget /= Void set_message_return_value (v: POINTER) -- (from EV_WIDGET_IMP) set_style (a_style: INTEGER_32) -- Assign a_Style to style of Current. -- (from EV_WIDGET_IMP) Start_widget_searched_cell: CELL [INTEGER_32] -- A cell to hold the seach index that the item tabbed from started with. -- This is necessary to prevent infinite recursion in the -- case where there is no next item as if we return to the -- original widget with the same search position, then we know we have exhausted all other possibilities. -- (from EV_WIDGET_IMP) style: INTEGER_32 -- Current style of Current -- (from EV_WIDGET_IMP) frozen trigger_dpi_actions (a_dpi, a_width, a_height: INTEGER_32) -- Current has been resized. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP exists: exists frozen trigger_resize_actions (a_width, a_height: INTEGER_32) -- Current has been resized. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP exists: exists update -- Update the client area by sending a Wm_paint message. -- (from EV_WIDGET_IMP) wel_background_color: WEL_COLOR_REF -- Result is background color of Current. wel_destroy -- (from EV_WIDGET_IMP) wel_foreground_color: WEL_COLOR_REF -- Result is foreground color of Current. wel_item: POINTER -- (from EV_WIDGET_IMP) wel_parent: detachable WEL_WINDOW -- The wel parent of Current. -- (from EV_WIDGET_IMP) wel_set_parent (a_parent: detachable WEL_WINDOW) -- Set the wel parent of Current. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_IMP exists: exists window_rect: WEL_RECT -- Result is rectangle of Current. -- (from EV_WIDGET_IMP) feature -- Event handling change_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when text changes. -- (from EV_TEXT_COMPONENT_ACTION_SEQUENCES_I) ensure -- from EV_TEXT_COMPONENT_ACTION_SEQUENCES_I not_void: Result /= Void conforming_pick_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when a pebble that fits here is picked. -- (from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I) ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I not_void: Result /= Void dock_ended_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed after a dock completes from Current. -- Either to a dockable target or a dockable dialog. -- (from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES_I) ensure -- from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES_I not_void: Result /= Void dock_started_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when pebble is picked up. -- (from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES_I) ensure -- from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES_I not_void: Result /= Void dpi_changed_actions: EV_DPI_ACTION_SEQUENCE -- Actions to be performed when dpi changes. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void drop_actions: EV_PND_ACTION_SEQUENCE -- Actions to be performed when a pebble is dropped here. -- (from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I) ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I not_void: Result /= Void file_drop_actions: EV_LITE_ACTION_SEQUENCE [LIST [STRING_32]] -- Actions to be performed when an OS file drop occurs on Current. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void focus_in_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when keyboard focus is gained. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void focus_out_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when keyboard focus is lost. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void init_dpi_changed_actions (a_dpi_changed_actions: like dpi_changed_actions) -- Initialize a_dpi_changed_actions accordingly to the current widget. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_ACTION_SEQUENCES_I True init_file_drop_actions (a_file_drop_actions: like file_drop_actions) -- Create and initialize -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_ACTION_SEQUENCES_I True init_resize_actions (a_resize_actions: like resize_actions) -- Initialize a_resize_actions accordingly to the current widget. -- (from EV_WIDGET_IMP) require -- from EV_WIDGET_ACTION_SEQUENCES_I True key_press_actions: EV_KEY_ACTION_SEQUENCE -- Actions to be performed when a keyboard key is pressed. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void key_press_string_actions: EV_KEY_STRING_ACTION_SEQUENCE -- Actions to be performed when a keyboard press generates a displayable character. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void key_release_actions: EV_KEY_ACTION_SEQUENCE -- Actions to be performed when a keyboard key is released. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void mouse_wheel_actions: EV_INTEGER_ACTION_SEQUENCE -- Actions to be performed when mouse wheel is rotated. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pick_actions: EV_PND_START_ACTION_SEQUENCE -- Actions to be performed when pebble is picked up. -- (from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I) ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I not_void: Result /= Void pick_ended_actions: EV_PND_FINISHED_ACTION_SEQUENCE -- Actions to be performed when a transport from Current ends. -- (from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I) ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I not_void: Result /= Void pointer_button_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE -- Actions to be performed when screen pointer button is pressed. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pointer_button_release_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE -- Actions to be performed when screen pointer button is released. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pointer_double_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE -- Actions to be performed when screen pointer is double clicked. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pointer_enter_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when screen pointer enters widget. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pointer_leave_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when screen pointer leaves widget. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void pointer_motion_actions: EV_POINTER_MOTION_ACTION_SEQUENCE -- Actions to be performed when screen pointer moves. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void resize_actions: EV_GEOMETRY_ACTION_SEQUENCE -- Actions to be performed when size changes. -- (from EV_WIDGET_ACTION_SEQUENCES_I) ensure -- from EV_WIDGET_ACTION_SEQUENCES_I not_void: Result /= Void feature -- Feature that should be directly implemented by externals cwin_show_window (hwnd: POINTER; cmd_show: INTEGER_32) -- SDK ShowWindow -- (from WEL_WINDOW) -- (export status {NONE}) -- (from EV_WIDGET_IMP) ensure -- from EV_WIDGET_IMP is_class: class show_window (hwnd: POINTER; cmd_show: INTEGER_32) -- Encapsulation of the cwin_show_window function of -- WEL_WINDOW. Normaly, we should be able to have directly -- cwin_show_window deferred but it does not wotk because -- it would be implemented by an external. -- (from EV_WIDGET_IMP) feature -- For dialogs frozen dwlp_dlgproc: INTEGER_32 -- (from WEL_GWL_CONSTANTS) frozen dwlp_msgresult: INTEGER_32 -- (from WEL_GWL_CONSTANTS) frozen dwlp_user: INTEGER_32 -- (from WEL_GWL_CONSTANTS) feature -- For windows Gwl_hinstance: INTEGER_32 = -6 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwlp_hinstance. -- (from WEL_GWL_CONSTANTS) Gwl_hwndparent: INTEGER_32 = -8 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwlp_hwndparent. -- (from WEL_GWL_CONSTANTS) Gwl_id: INTEGER_32 = -12 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwlp_id. -- (from WEL_GWL_CONSTANTS) Gwl_userdata: INTEGER_32 = -21 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwlp_userdata. -- (from WEL_GWL_CONSTANTS) Gwl_wndproc: INTEGER_32 = -4 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwlp_wndproc. -- (from WEL_GWL_CONSTANTS) Gwlp_hinstance: INTEGER_32 = -6 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwl_hinstance. -- (from WEL_GWL_CONSTANTS) Gwlp_hwndparent: INTEGER_32 = -8 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwl_hwndparent. -- (from WEL_GWL_CONSTANTS) Gwlp_id: INTEGER_32 = -12 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwl_id. -- (from WEL_GWL_CONSTANTS) Gwlp_userdata: INTEGER_32 = -21 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwl_userdata. -- (from WEL_GWL_CONSTANTS) Gwlp_wndproc: INTEGER_32 = -4 -- Was declared in WEL_GWL_CONSTANTS as synonym of Gwl_wndproc. -- (from WEL_GWL_CONSTANTS) feature -- Navigation disable_tabable_from -- Ensure is_tabable_from is False. -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True ensure -- from EV_TAB_CONTROLABLE_I not_is_tabable_from: not is_tabable_from disable_tabable_to -- Ensure is_tabable_to is False. -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True ensure -- from EV_TAB_CONTROLABLE_I not_is_tabable_to: not is_tabable_to enable_tabable_from -- Ensure is_tabable_from is True. -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True ensure -- from EV_TAB_CONTROLABLE_I is_tabable_from: is_tabable_from enable_tabable_to -- Ensure is_tabable_to is True. -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True ensure -- from EV_TAB_CONTROLABLE_I is_tabable_to: is_tabable_to is_tabable_from: BOOLEAN -- May Current be tabbed from? -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True require -- from EV_WIDGET_IMP True is_tabable_to: BOOLEAN -- May Current be tabbed to? -- (from EV_PRIMITIVE_IMP) require -- from EV_TAB_CONTROLABLE_I True feature -- Output Io: STD_FILES -- Handle to standard file setup -- (from ANY) ensure -- from ANY instance_free: class io_not_void: Result /= Void out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY out_not_void: Result /= Void print (o: detachable ANY) -- Write terse external representation of o -- on standard output. -- (from ANY) ensure -- from ANY instance_free: class frozen tagged_out: STRING_8 -- New string containing terse printable representation -- of current object -- (from ANY) ensure -- from ANY tagged_out_not_void: Result /= Void feature -- Platform Operating_environment: OPERATING_ENVIRONMENT -- Objects available from the operating system -- (from ANY) ensure -- from ANY instance_free: class operating_environment_not_void: Result /= Void feature -- Position set_position (new_x_position: INTEGER_32; new_y_position: INTEGER_32) -- Put at horizontal position new_x_position and at -- vertical position new_y_position relative to parent. -- (from EV_SIZEABLE_IMP) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed feature -- Status Report has_focus: BOOLEAN -- Does widget have the keyboard focus? -- (from EV_WIDGET_I) is_displayed: BOOLEAN -- Is Current visible on the screen? -- False if Current is entirely obscured by another window. -- (from EV_WIDGET_I) require -- from EV_SIZEABLE_IMP not_is_destroyed: not is_destroyed feature -- Tooltip Flag constants Ttf_centertip: INTEGER_32 = 2 -- (from WEL_TOOLTIP_CONSTANTS) Ttf_idishwnd: INTEGER_32 = 1 -- (from WEL_TOOLTIP_CONSTANTS) Ttf_rtlreading: INTEGER_32 = 4 -- (from WEL_TOOLTIP_CONSTANTS) Ttf_subclass: INTEGER_32 = 16 -- (from WEL_TOOLTIP_CONSTANTS) feature -- Tooltip message constants ttm_activate: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_addtool: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_deltool: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_enumtools: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_getcurrenttool: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_getdelaytime: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_getmaxtipwidth: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_gettext: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_gettipbkcolor: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_gettiptextcolor: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_gettoolcount: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_gettoolinfo: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_hittest: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_newtoolrect: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_relayevent: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_setdelaytime: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_setmaxtipwidth: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_settipbkcolor: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_settiptextcolor: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_settoolinfo: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_updatetiptext: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttm_windowfrompoint: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) feature -- Tooltip style constants tts_alwaystip: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) tts_noprefix: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) feature -- Tooltip time delay constants ttdt_automatic: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttdt_autopop: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttdt_initial: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) ttdt_reshow: INTEGER_32 -- (from WEL_TOOLTIP_CONSTANTS) feature -- element change append_text (txt: READABLE_STRING_GENERAL) -- Append 'txt' to text of Current. require -- from EV_TEXT_COMPONENT_I valid_text: txt /= Void ensure -- from EV_TEXT_COMPONENT_I text_appended: insert_text (txt: READABLE_STRING_GENERAL) -- Insert txt at caret_position. require -- from EV_TEXT_COMPONENT_I valid_text: txt /= Void maximum_character_width: INTEGER_32 -- Result is width of widest character (W), when displayed. prepend_text (txt: READABLE_STRING_GENERAL) -- Prepend 'txt' to text of Current. require -- from EV_TEXT_COMPONENT_I valid_text: txt /= Void ensure -- from EV_TEXT_COMPONENT_I text_prepended: invariant -- from EV_WIDGET_I is_displayed_implies_show_requested: is_usable and is_displayed implies is_show_requested -- from EV_PICK_AND_DROPABLE_I user_interface_modes_mutually_exclusive: mode_is_pick_and_drop.to_integer + mode_is_drag_and_drop.to_integer + mode_is_target_menu.to_integer = 1 pebble_function_takes_two_integer_open_operands: attached pebble_function as l_pebble_function implies l_pebble_function.valid_operands ([1, 1]) -- from EV_ANY_I interface_coupled: is_usable implies interface /= Void and then attached_interface.implementation = Current base_make_called: is_usable implies base_make_called -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) -- from EV_POSITIONED_I minimum_width_positive_or_zero: is_usable implies minimum_width >= 0 minimum_height_positive_or_zero: is_usable implies minimum_height >= 0 -- from EV_DOCKABLE_SOURCE_I widget_or_item_source: not (widget_source_being_docked /= Void and item_source_being_docked /= Void) dock_executing: is_dock_executing implies widget_source_being_docked /= Void or item_source_being_docked /= Void note copyright: "Copyright (c) 1984-2014, 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 -- class EV_TEXT_COMPONENT_IMP
Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:

-- Generated by Eiffel Studio --
For more details: eiffel.org