Automatic generation produced by ISE Eiffel

Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:
note description: "[ EiffelVision rich text area, supporting multiple lines of text, with font and color formatting applicable on a character by character basis. ]" legal: "See notice at end of class." status: "See notice at end of class." date: "$Date: 2017-05-03 07:56:14 -0800 (Wed, 03 May 2017) $" revision: "$Revision: 100317 $" class interface EV_RICH_TEXT create default_create -- Standard creation procedure. -- (from EV_ANY) require -- from ANY True ensure then -- from EV_ANY is_coupled: implementation /= Void is_initialized: is_initialized default_create_called: default_create_called is_in_default_state: is_in_default_state feature -- Access accept_cursor: EV_POINTER_STYLE -- Result is cursor displayed when the screen pointer is over a -- target that accepts `pebble` during pick and drop. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE result_not_void: Result /= Void ensure then -- from EV_PICK_AND_DROPABLE cursor_valid: (attached implementation.accept_cursor implies Result = implementation.accept_cursor) or else Result = Default_pixmaps.Standard_cursor 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, Current will use the default drop target. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.actual_drop_target_agent background_color: EV_COLOR -- Color displayed behind foreground features. -- (from EV_COLORIZABLE) require -- from EV_COLORIZABLE not_destroyed: not is_destroyed ensure -- from EV_COLORIZABLE bridge_ok: Result.is_equal (implementation.background_color) buffer_locked_in_append_mode: BOOLEAN -- Is buffered appending underway? -- True after one or more calls to `buffered_append` and False -- after buffer is flushed. require not_destroyed: not is_destroyed ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection buffer_locked_in_format_mode: BOOLEAN -- Is buffered formatting underway? -- True after one or more calls to `buffered_format` and False -- after buffer is flushed. require not_destroyed: not is_destroyed ensure caret_not_moved: caret_position = old caret_position text_not_changed: text.is_equal (old text) selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection character_displayed (an_index: INTEGER_32): BOOLEAN -- Is character an_index currently visible in Current? require not_destroyed: not is_destroyed index_valid: an_index >= 1 and an_index <= text_length ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection character_format (caret_index: INTEGER_32): EV_CHARACTER_FORMAT -- Result is character format at caret position caret_index. require not_destroyed: not is_destroyed valid_character_index: caret_index >= 1 and caret_index <= text_length + 1 ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection character_format_contiguous (start_index, end_index: INTEGER_32): BOOLEAN -- Is formatting from caret position start_index to end_index contiguous? require not_destroyed: not is_destroyed valid_character_index: start_index >= 1 and end_index <= text_length + 1 and start_index <= end_index ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection character_format_range_information (start_index, end_index: INTEGER_32): EV_CHARACTER_FORMAT_RANGE_INFORMATION -- Formatting range information from caret position start_index to end_index. -- All attributes in Result are set to True if they remain consitent from start_index to --end_index and False otherwise. -- Result is a snapshot of Current, and does not remain consistent as the contents -- are subsequently changed. require not_destroyed: not is_destroyed valid_character_index: start_index >= 1 and end_index <= text_length + 1 and start_index <= end_index ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection configurable_target_menu_handler: detachable PROCEDURE [EV_MENU, ARRAYED_LIST [EV_PND_TARGET_DATA], EV_PICK_AND_DROPABLE, detachable ANY] -- Agent used for customizing the Pick and Drop Target Menu of Current. -- (from EV_PICK_AND_DROPABLE) data: detachable ANY -- Arbitrary user data may be stored here. -- (from EV_ANY) default_identifier_name: STRING_32 -- Default name if no other name is set. -- (from EV_IDENTIFIABLE) ensure -- from EV_IDENTIFIABLE result_not_void: Result /= Void result_not_empty: not Result.is_empty no_period_in_result: not Result.has ('.'.to_character_32) default_key_processing_handler: detachable PREDICATE [EV_KEY] assign set_default_key_processing_handler -- 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) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.default_key_processing_handler deny_cursor: EV_POINTER_STYLE -- Result is cursor displayed when the screen pointer is over a -- target that does not accept `pebble` during pick and drop. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE result_not_void: Result /= Void ensure then -- from EV_PICK_AND_DROPABLE cursor_valid: (attached implementation.deny_cursor implies Result = implementation.deny_cursor) or else Result = Default_pixmaps.No_cursor font: EV_FONT -- Typeface appearance for Current. -- (from EV_FONTABLE) require -- from EV_FONTABLE not_destroyed: not is_destroyed ensure -- from EV_FONTABLE not_void: Result /= Void bridge_ok: Result.is_equal (implementation.font) foreground_color: EV_COLOR -- Color of foreground features like text. -- (from EV_COLORIZABLE) require -- from EV_COLORIZABLE not_destroyed: not is_destroyed ensure -- from EV_COLORIZABLE bridge_ok: Result.is_equal (implementation.foreground_color) full_identifier_path: STRING_32 -- Full name of object by prepending path of parent -- Uses '.' as a separator. -- (from EV_IDENTIFIABLE) ensure -- from EV_IDENTIFIABLE result_not_void: Result /= Void result_correct: parent = Void implies Result.is_equal (identifier_name) result_correct: attached parent as l_parent implies Result.is_equal (l_parent.full_identifier_path + ".".as_string_32 + identifier_name) generating_type: TYPE [detachable EV_RICH_TEXT] -- 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 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) require -- from EV_HELP_CONTEXTABLE not_destroyed: not is_destroyed ensure -- from EV_HELP_CONTEXTABLE bridge_ok: Result = implementation.help_context frozen id_object (an_id: INTEGER_32): detachable IDENTIFIED -- Object associated with an_id (void if no such object) -- (from IDENTIFIED) ensure -- from IDENTIFIED consistent: Result = Void or else Result.object_id = an_id identifier_name: STRING_32 -- Name of object -- If no specific name is set, `default_identifier_name` is used. -- (from EV_IDENTIFIABLE) ensure -- from EV_IDENTIFIABLE result_not_void: Result /= Void result_not_empty: not Result.is_empty no_period_in_result: not Result.has ('.'.to_character_32) default_name_available: not has_identifier_name_set implies Result.is_equal (default_identifier_name) index_from_position (an_x_position, a_y_position: INTEGER_32): INTEGER_32 -- Index of character closest to position `x_position`, `y_position`. require not_destroyed: not is_destroyed position_valid: an_x_position >= 0 and an_x_position <= width and a_y_position >= 0 and a_y_position <= height ensure index_valid: Result >= 1 and Result <= text_length text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection last_load_successful: BOOLEAN -- Did last call to `set_with_named_file` complete succesfully? -- If an invalid RTF file is passed, Result is False. -- Result is undefined if `set_with_named_file` not called. require not_destroyed: not is_destroyed line (i: INTEGER_32): STRING_32 -- Result is content of ith line. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_line_index: valid_line_index (i) ensure -- from EV_TEXT result_not_void: Result /= Void frozen object_id: INTEGER_32 -- Unique for current object in any given session -- (from IDENTIFIED) ensure -- from IDENTIFIED valid_id: Result > 0 implies id_object (Result) = Current paragraph_format (caret_index: INTEGER_32): EV_PARAGRAPH_FORMAT -- Result is paragraph_format at caret position caret_index. require not_destroyed: not is_destroyed valid_character_index: caret_index >= 1 and caret_index <= text_length + 1 ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection paragraph_format_contiguous (start_position, end_position: INTEGER_32): BOOLEAN -- Is paragraph formatting from caret_position start_position to end_position contiguous? require not_destroyed: not is_destroyed valid_character_index: start_position >= 1 and end_position <= text_length + 1 and start_position <= end_position ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection paragraph_format_range_information (start_position, end_position: INTEGER_32): EV_PARAGRAPH_FORMAT_RANGE_INFORMATION -- Formatting range information from caret position start_position to end_position. -- All attributes in Result are set to True if they remain consitent from start_position to --end_position and False otherwise. -- Result is a snapshot of Current, and does not remain consistent as the contents -- are subsequently changed. require not_destroyed: not is_destroyed valid_character_index: start_position >= 1 and end_position <= text_length + 1 and start_position <= end_position ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection parent: detachable EV_CONTAINER -- Contains Current. -- (from EV_WIDGET) require -- from EV_IDENTIFIABLE not_destroyed: not is_destroyed ensure -- from EV_IDENTIFIABLE correct: has_parent implies Result /= Void correct: not has_parent implies Result = Void ensure then -- from EV_WIDGET bridge_ok: Result = implementation.parent pebble: detachable ANY -- Data to be transported by pick and drop mechanism. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.pebble pebble_function: detachable FUNCTION [detachable ANY] -- Returns data to be transported by pick and drop mechanism. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.pebble_function 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) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.pebble_positioning_enabled pebble_x_position: INTEGER_32 -- Initial x position for pick and drop relative to Current. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.pebble_x_position pebble_y_position: INTEGER_32 -- Initial y position for pick and drop relative to Current. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.pebble_y_position pointer_position: EV_COORDINATE -- Position of the screen pointer relative to Current. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed is_show_requested: is_show_requested pointer_style: EV_POINTER_STYLE -- Cursor displayed when pointer is over this widget. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed position_from_index (an_index: INTEGER_32): EV_COORDINATE -- Position of character at index an_index. require not_destroyed: not is_destroyed index_valid: an_index >= 1 and an_index <= text_length character_displayed: character_displayed (an_index) ensure result_not_void: Result /= Void position_valid: Result.x >= 0 and Result.x <= width and Result.y >= 0 and Result.y <= height text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection real_target: detachable EV_DOCKABLE_TARGET -- Result is target used during a dockable transport if -- mouse pointer is above Current. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.real_target selected_character_format: EV_CHARACTER_FORMAT -- Result is character format of current selection. -- If more than one format is contained in the selection, Result -- is the first of these formats. require not_destroyed: not is_destroyed has_selection: has_selection ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection selected_paragraph_format: EV_PARAGRAPH_FORMAT -- Result is paragraph format of current selection. -- If more than one format is contained in the selection, Result -- is the first of these formats. require not_destroyed: not is_destroyed has_selection: has_selection ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection selected_text: STRING_32 -- Currently selected text. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result.is_equal (implementation.selected_text) definition: has_selection implies text.substring (start_selection, end_selection - 1).is_equal (Result) tab_positions: EV_ACTIVE_LIST [INTEGER_32] -- Width of each tab position in pixels, from left to right. -- Insert values to update tab widths used in Current. -- All additional tab positions use `tab_width`. require not_destroyed: not is_destroyed ensure result_not_void: Result /= Void text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection tab_width: INTEGER_32 -- Default width in pixels of each tab in Current. require not_destroyed: not is_destroyed ensure result_positive: Result > 0 text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection target_data_function: detachable FUNCTION [like pebble, EV_PND_TARGET_DATA] -- Function for computing target meta data based on source pebble. -- Primarily used for Pick and Drop target menu. -- (from EV_ABSTRACT_PICK_AND_DROPABLE) note option: stable target_name: detachable READABLE_STRING_GENERAL -- Optional textual name describing Current pick and drop hole. -- (from EV_ABSTRACT_PICK_AND_DROPABLE) note option: stable text: STRING_32 -- Text displayed in textable. -- (from EV_TEXTABLE) require -- from EV_TEXTABLE not_destroyed: not is_destroyed ensure -- from EV_TEXTABLE bridge_ok: equal (Result, implementation.text) not_void: Result /= Void cloned: Result /= implementation.text no_carriage_returns: not Result.has ('%R'.to_character_32) text_length: INTEGER_32 -- Number of characters making up `text`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.text_length definition: Result = text.count result_not_negative: Result >= 0 tooltip: STRING_32 -- Tooltip displayed on Current. -- If Result is empty then no tooltip displayed. -- (from EV_TOOLTIPABLE) require -- from EV_TOOLTIPABLE not_destroyed: not is_destroyed ensure -- from EV_TOOLTIPABLE bridge_ok: is_bridge_ok (Result) not_void: Result /= Void cloned: is_cloned (Result) feature -- Measurement dpi: NATURAL_32 -- Window dpi -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED positive_or_zero: Result >= 0 height: INTEGER_32 -- Vertical size in pixels. -- Same as `minimum_height` when not displayed. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.height minimum_height: INTEGER_32 -- Lower bound on `height` in pixels. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.minimum_height positive_or_zero: Result >= 0 minimum_width: INTEGER_32 -- Lower bound on `width` in pixels. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.minimum_width positive_or_zero: Result >= 0 screen_x: INTEGER_32 -- Horizontal offset relative to screen. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.screen_x screen_y: INTEGER_32 -- Vertical offset relative to screen. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.screen_y width: INTEGER_32 -- Horizontal size in pixels. -- Same as `minimum_width` when not displayed. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.width x_position: INTEGER_32 -- Horizontal offset relative to parent `x_position` in pixels. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.x_position y_position: INTEGER_32 -- Vertical offset relative to parent `y_position` in pixels. -- (from EV_POSITIONED) require -- from EV_POSITIONED not_destroyed: not is_destroyed ensure -- from EV_POSITIONED bridge_ok: Result = implementation.y_position 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_RICH_TEXT): 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_RICH_TEXT): 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_RICH_TEXT): 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. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.caret_position within_range: Result >= 1 and Result <= text_length + 1 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 current_line_number: INTEGER_32 -- Line currently containing cursor. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT valid_line_index: valid_line_index (Result) debug_output: STRING_32 -- String that should be displayed in debugger to represent Current. -- (from EV_IDENTIFIABLE) ensure -- from DEBUG_OUTPUT result_not_void: Result /= Void end_selection: INTEGER_32 -- Caret position of the end of selected text if any, -- otherwise `caret_position`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.end_selection within_range: Result >= 1 and Result <= text_length + 1 consistent_with_selection_start: Result >= start_selection first_position_from_line_number (i: INTEGER_32): INTEGER_32 -- Position of first character on i-th line. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_line: valid_line_index (i) ensure -- from EV_TEXT valid_caret_position: valid_caret_position (i) first_visible_line: INTEGER_32 -- First visible line current being displayed. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT valid_line_index: valid_line_index (Result) has_capture: BOOLEAN -- Does widget have capture? -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.has_capture has_focus: BOOLEAN -- Does widget have the keyboard focus? -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.has_focus has_identifier_name_set: BOOLEAN -- Is a specific identifier name set? -- (from EV_IDENTIFIABLE) has_parent: BOOLEAN -- Does identifiable has a parent? -- (from EV_IDENTIFIABLE) has_selection: BOOLEAN -- Does current have a selection? -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.has_selection definition: Result implies start_selection /= end_selection has_word_wrapping: BOOLEAN -- Is word wrapping enabled? -- If enabled, lines that are too long to be displayed -- in Current will be wrapped onto new lines. -- If disabled, a horizontal scroll bar will be displayed -- and lines will not be wrapped. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT bridge_ok: Result = implementation.has_word_wrapping frozen id_freed: BOOLEAN -- Has Current been removed from the table? -- (from IDENTIFIED) is_displayed: BOOLEAN -- Is Current visible on the screen? -- True when show requested and parent displayed. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.is_displayed is_dockable: BOOLEAN -- Is Current dockable? -- If True, then Current may be dragged -- from its current parent. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE bridge_ok: Result = implementation.is_dockable is_editable: BOOLEAN -- Is `text` editable? -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.is_editable 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 transport? -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE bridge_ok: Result = implementation.is_external_docking_enabled 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) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE bridge_ok: Result = implementation.is_external_docking_relative is_in_default_state_for_tabs: BOOLEAN -- Default state for widgets. -- (from EV_TAB_CONTROLABLE) is_sensitive: BOOLEAN -- Is object sensitive to user input. -- (from EV_SENSITIVE) require -- from EV_SENSITIVE not_destroyed: not is_destroyed ensure -- from EV_SENSITIVE bridge_ok: Result = implementation.user_is_sensitive is_show_requested: BOOLEAN -- Will Current be displayed when its parent is? -- See also `is_displayed`. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET bridge_ok: Result = implementation.is_show_requested is_tabable_from: BOOLEAN -- Is Current able to be tabbed from? -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed is_tabable_to: BOOLEAN -- Is Current able to be tabbed to? -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed last_position_from_line_number (i: INTEGER_32): INTEGER_32 -- Position of last character on i-th line. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_line: valid_line_index (i) ensure -- from EV_TEXT valid_caret_position: valid_caret_position (i) line_count: INTEGER_32 -- Number of lines in Current. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT result_greater_zero: Result > 0 line_number_from_position (i: INTEGER_32): INTEGER_32 -- Line containing caret position i. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_caret_position: valid_caret_position (i) ensure -- from EV_TEXT valid_line_number: Result >= 1 and Result <= line_count mode_is_configurable_target_menu: BOOLEAN -- Is the user interface mode a configurable pop-up menu of targets? -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.mode_is_configurable_target_menu mode_is_drag_and_drop: BOOLEAN -- Is the user interface mode drag and drop? -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.mode_is_drag_and_drop mode_is_pick_and_drop: BOOLEAN -- Is the user interface mode pick and drop? -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.mode_is_pick_and_drop mode_is_target_menu: BOOLEAN -- Is the user interface mode a pop-up menu of targets? -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure then -- from EV_PICK_AND_DROPABLE bridge_ok: Result = implementation.mode_is_target_menu real_source: detachable EV_DOCKABLE_SOURCE -- Result is source to be dragged --  when a docking drag occurs on Current. -- If Void, Current is dragged. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE bridge_ok: Result = implementation.real_source 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`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.start_selection within_range: Result >= 1 and Result <= text_length + 1 consistent_with_selection_end: end_selection >= Result valid_caret_position (pos: INTEGER_32): BOOLEAN -- Is pos a valid caret position? -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT bridge_ok: Result = implementation.valid_caret_position (pos) within_range: Result implies (pos >= 1 and pos <= text_length + 1) feature -- Status setting buffered_append (a_text: READABLE_STRING_GENERAL; format: EV_CHARACTER_FORMAT) -- Append a_text with format format to append buffer. -- To render buffer to Current, call `flush_buffer` which replaces current content, -- or `flush_buffer_to` which inserts the formatted text. -- format is not cloned internally and when buffer is flushed, its reference is -- used. Therefore, you must not modify format externally after passing to -- this procedure, otherwise all buffered appends that referenced the same format object -- will use its current value. require not_destroyed: not is_destroyed a_text_not_void: a_text /= Void format_not_void: format /= Void buffer_not_locked_for_format: not buffer_locked_in_format_mode ensure text_not_changed: text.is_equal (old text) buffer_locked_for_append: buffer_locked_in_append_mode caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection buffered_format (start_position, end_position: INTEGER_32; format: EV_CHARACTER_FORMAT) -- Apply a character format format from caret positions start_position to end_position to -- format buffer. Call `flush_buffer` to apply buffered contents to Current. -- format is not cloned internally and when buffer is flushed, its reference is -- used. Therefore, you must not modify format externally after passing to -- this procedure, otherwise all buffered appends that referenced the same format object -- will use its current value. require not_destroyed: not is_destroyed valid_positions: start_position < end_position and start_position >= 1 and end_position <= text_length + 1 format_not_void: format /= Void buffer_not_locked_for_append: not buffer_locked_in_append_mode ensure text_not_changed: text.is_equal (old text) buffer_locked_for_format: buffer_locked_in_format_mode caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection center_pointer -- Position screen pointer over center of Current. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed disable_capture -- Disable grab of all user input events. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET not_has_capture: not has_capture disable_dockable -- Ensure Current is not dockable. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE not_is_dockable: not is_dockable disable_edit -- Make Current read-only. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT is_editable: not is_editable disable_external_docking -- Assign False to `is_external_docking_enabled`. -- Forbid Current to be docked into an EV_DOCKABLE_DIALOG -- When there is no valid EV_DRAGABLE_TARGET upon completion -- of transport. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed is_dockable: is_dockable ensure -- from EV_DOCKABLE_SOURCE 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) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed external_docking_enabled: is_external_docking_enabled ensure -- from EV_DOCKABLE_SOURCE external_docking_not_relative: not is_external_docking_relative disable_pebble_positioning -- Assign False to `pebble_positioning_enabled`. -- The pick and drop will start at the pointer position. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE pebble_positioning_updated: not pebble_positioning_enabled disable_sensitive -- Make object non-sensitive to user input. -- (from EV_SENSITIVE) require -- from EV_SENSITIVE not_destroyed: not is_destroyed ensure -- from EV_SENSITIVE is_unsensitive: not is_sensitive disable_tabable_from -- Make `is_tabable_from` False. -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed ensure -- from EV_TAB_CONTROLABLE not_is_tabable_from: not is_tabable_from disable_tabable_to -- Make `is_tabable_to` False. -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed ensure -- from EV_TAB_CONTROLABLE not_is_tabable_to: not is_tabable_to enable_capture -- Grab all user input events (mouse and keyboard). -- `disable_capture` must be called to resume normal input handling. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed is_displayed: is_displayed ensure -- from EV_WIDGET has_capture: has_capture enable_dockable -- Ensure Current is dockable. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE is_dockable: is_dockable enable_edit -- Make Current editable. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT is_editable: is_editable enable_external_docking -- Assign True to `is_external_docking_enabled`. -- Allows Current to be docked into an EV_DOCKABLE_DIALOG -- When there is no valid EV_DRAGABLE_TARGET upon completion -- of transport. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed is_dockable: is_dockable ensure -- from EV_DOCKABLE_SOURCE 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) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed external_docking_enabled: is_external_docking_enabled ensure -- from EV_DOCKABLE_SOURCE external_docking_not_relative: is_external_docking_relative enable_pebble_positioning -- Assign True to `pebble_positioning_enabled`. -- Use `pebble_x_position` and `pebble_y_position` as the initial coordinates -- for the pick and drop in pixels relative to Current. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE pebble_positioning_updated: pebble_positioning_enabled enable_sensitive -- Make object sensitive to user input. -- (from EV_SENSITIVE) require -- from EV_SENSITIVE not_destroyed: not is_destroyed ensure -- from EV_SENSITIVE is_sensitive: (parent = Void or parent_is_sensitive) implies is_sensitive enable_tabable_from -- Make `is_tabable_from` True. -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed ensure -- from EV_TAB_CONTROLABLE is_tabable_from: is_tabable_from enable_tabable_to -- Make `is_tabable_to` True. -- (from EV_TAB_CONTROLABLE) require -- from EV_TAB_CONTROLABLE not_destroyed: not is_destroyed ensure -- from EV_TAB_CONTROLABLE is_tabable_to: is_tabable_to flush_buffer -- Flush contents of buffer and unlock any set buffering mode. -- If buffer_locked_for_append then replace contents of Current with buffer contents. -- If buffer_locked_for_format then apply buffered formatting to contents of Current. require not_destroyed: not is_destroyed ensure buffer_not_locked: not buffer_locked_in_append_mode and not buffer_locked_in_format_mode caret_consistent: (old buffer_locked_in_append_mode implies caret_position = 1) or old buffer_locked_in_format_mode implies (caret_position = old caret_position) unselected: not has_selection flush_buffer_to (start_position, end_position: INTEGER_32) -- Replace contents of current from caret position start_position to end_position with -- contents of buffer, since it was last flushed. If start_position and end_position -- are equal, insert the contents of the buffer at caret position start_position. -- Locked buffering modes are reset. require not_destroyed: not is_destroyed buffer_locked_for_append: buffer_locked_in_append_mode start_position >= 1 and end_position <= text_length + 1 and start_position <= end_position ensure buffer_locked_for_append: not buffer_locked_in_append_mode caret_consistent: old caret_position <= text_length + 1 implies caret_position = old caret_position unselected: not has_selection format_paragraph (start_position, end_position: INTEGER_32; format: EV_PARAGRAPH_FORMAT) -- Apply paragraph formatting format to caret positions start_position, end_position inclusive. -- Formatting applies to complete lines as separated by new line characters that start_position and -- end_position fall on. require not_destroyed: not is_destroyed valid_positions: start_position <= end_position and start_position >= 1 and end_position <= text_length + 1 format_not_void: format /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection format_region (start_position, end_position: INTEGER_32; format: EV_CHARACTER_FORMAT) -- Apply format to all characters between the caret positions start_position and end_position. -- Formatting is applied immediately. require not_destroyed: not is_destroyed valid_positions: start_position < end_position and start_position >= 1 and end_position <= text_length + 1 format_not_void: format /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection hide -- Request that Current not be displayed even when its parent is. -- If successful, make `is_show_requested` False. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed modify_paragraph (start_position, end_position: INTEGER_32; format: EV_PARAGRAPH_FORMAT; applicable_attributes: EV_PARAGRAPH_FORMAT_RANGE_INFORMATION) -- Modify paragraph formatting format from caret positions start_position to end_position inclusive. -- Formatting applies to complete lines as separated by new line characters that start_position and -- end_position fall on. All attributes of format that are set to True within applicable_attributes are applied. require not_destroyed: not is_destroyed applicable_attributes_not_void: applicable_attributes /= Void valid_positions: start_position <= end_position and start_position >= 1 and end_position <= text_length + 1 format_not_void: format /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection modify_region (start_position, end_position: INTEGER_32; format: EV_CHARACTER_FORMAT; applicable_attributes: EV_CHARACTER_FORMAT_RANGE_INFORMATION) -- Modify formatting from caret positions start_position to end_position applying all attributes -- of format that are set to True within applicable_attributes, ignoring others. require not_destroyed: not is_destroyed applicable_attributes_not_void: applicable_attributes /= Void valid_positions: start_position < end_position and start_position >= 1 and end_position <= text_length + 1 format_not_void: format /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection remove_default_key_processing_handler -- Ensure `default_key_processing_handler` is Void. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed remove_pebble -- Make `pebble` Void and `pebble_function` `Void, -- Removing transport. -- (from EV_PICK_AND_DROPABLE) ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE pebble_removed: pebble = Void and pebble_function = Void remove_real_source -- Ensure `real_source` is Void. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed ensure -- from EV_DOCKABLE_SOURCE real_source_void: real_source = Void remove_real_target -- Ensure `real_target` is Void. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed ensure -- from EV_WIDGET real_target_void: real_target = Void save_to_named_path (a_pathname: PATH) -- Save `text` and formatting of Current to path a_pathname in RTF format. require not_destroyed: not is_destroyed pathname_not_void: a_pathname /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection set_accept_cursor (a_cursor: detachable 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) ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE accept_cursor_assigned: attached a_cursor as l_accept_cursor implies l_accept_cursor ~ accept_cursor set_actual_drop_target_agent (an_agent: like actual_drop_target_agent) -- Assign an_agent to `actual_drop_target_agent`. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed an_agent_not_void: an_agent /= Void ensure -- from EV_WIDGET assigned: actual_drop_target_agent = an_agent set_caret_position (a_caret_position: INTEGER_32) -- Assign a_caret_position to `caret_position`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed valid_caret_position: a_caret_position >= 1 and a_caret_position <= text_length + 1 ensure -- from EV_TEXT_COMPONENT caret_position_assigned: change_actions.is_empty implies caret_position = a_caret_position set_configurable_target_menu_handler (a_handler: detachable PROCEDURE [EV_MENU, ARRAYED_LIST [EV_PND_TARGET_DATA], EV_PICK_AND_DROPABLE, detachable ANY]) -- Set Configurable Target Menu Handler to a_handler. -- (from EV_PICK_AND_DROPABLE) ensure -- from EV_PICK_AND_DROPABLE configurable_target_menu_hander_assigned: configurable_target_menu_handler = a_handler set_configurable_target_menu_mode -- Set user interface mode to pop-up menu of targets. -- Target menu is configurable as the first option can be used to -- initiate a regular 'pick and drop' of the source pebble. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE target_menu_mode_set: mode_is_configurable_target_menu set_current_format (format: EV_CHARACTER_FORMAT) -- Apply format to current caret position, applicable -- to next typed characters. require not_destroyed: not is_destroyed format_not_void: format /= Void ensure text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection set_default_colors -- Set foreground and background color to their default values. -- (from EV_COLORIZABLE) require -- from EV_COLORIZABLE not_destroyed: not is_destroyed set_default_key_processing_handler (a_handler: like default_key_processing_handler) -- Assign `default_key_processing_handler` to a_handler. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed set_deny_cursor (a_cursor: detachable like deny_cursor) -- Set a_cursor to be displayed when the screen pointer is not -- over a valid target. -- (from EV_PICK_AND_DROPABLE) ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE deny_cursor_assigned: attached a_cursor as l_deny_cursor implies l_deny_cursor ~ deny_cursor set_drag_and_drop_mode -- Set user interface mode to drag and drop. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE drag_and_drop_set: mode_is_drag_and_drop set_focus -- Grab keyboard focus if `is_displayed`. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed is_sensitive: is_sensitive set_pebble (a_pebble: ANY) -- Assign a_pebble to `pebble`. -- Overrides `set_pebble_function`. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE a_pebble_not_void: a_pebble /= Void ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE pebble_assigned: pebble = a_pebble set_pebble_function (a_function: FUNCTION [detachable ANY]) -- Set a_function to compute `pebble`. -- It will be called once each time a pick occurs, the result -- will be assigned to `pebble` for the duration of transport. -- When a pick occurs, the pick position in widget coordinates, -- <<x, y>> in pixels, is passed. -- To handle this data use a_function of type -- FUNCTION [ANY, TUPLE [INTEGER, INTEGER], ANY] and return the -- pebble as a function of x and y. -- Overrides `set_pebble`. -- (from EV_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE a_function_not_void: a_function /= Void a_function_takes_two_integer_open_operands: a_function.valid_operands ([1, 1]) ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE pebble_function_assigned: pebble_function = a_function set_pebble_position (a_x, a_y: INTEGER_32) -- Set the initial position for pick and drop -- Coordinates are in pixels and are relative to position of Current. -- Pebble_positioning_enabled must be True for the position to be used, -- use enable_pebble_positioning. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE pebble_position_assigned: pebble_x_position = a_x and pebble_y_position = a_y set_pick_and_drop_mode -- Set user interface mode to pick and drop. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE pick_and_drop_set: mode_is_pick_and_drop set_real_source (dockable_source: EV_DOCKABLE_SOURCE) -- Assign dockable_source to `real_source`. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed is_dockable: is_dockable dockable_source_not_void: dockable_source /= Void dockable_source_is_parent_recursive: source_has_current_recursive (dockable_source) ensure -- from EV_DOCKABLE_SOURCE real_source_assigned: real_source = dockable_source set_real_target (a_target: EV_DOCKABLE_TARGET) -- Assign a_target to `real_target`. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed target_not_void: a_target /= Void ensure -- from EV_WIDGET assigned: real_target = a_target set_tab_width (a_width: INTEGER_32) -- Assign a_width in pixels to `tab_width`. require not_destroyed: not is_destroyed width_positive: a_width > 0 ensure tab_width_set: tab_width = a_width text_not_changed: text.is_equal (old text) caret_not_moved: caret_position = old caret_position selection_not_changed: old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection set_target_data_function (a_function: FUNCTION [like pebble, EV_PND_TARGET_DATA]) -- Set a_function to compute target meta data based on transport source. -- Overrides any `target_name` set with `set_target_name`. -- (from EV_ABSTRACT_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE a_function_not_void: a_function /= Void ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE target_data_function_assigned: target_data_function /= Void and then target_data_function.is_equal (a_function) set_target_menu_mode -- Set user interface mode to pop-up menu of targets. -- (from EV_PICK_AND_DROPABLE) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed ensure -- from EV_PICK_AND_DROPABLE target_menu_mode_set: mode_is_target_menu set_target_name (a_name: READABLE_STRING_GENERAL) -- Assign a_name to `target_name`. -- (from EV_ABSTRACT_PICK_AND_DROPABLE) require -- from EV_ABSTRACT_PICK_AND_DROPABLE a_name_not_void: a_name /= Void ensure -- from EV_ABSTRACT_PICK_AND_DROPABLE target_name_assigned: attached target_name as l_target_name and then a_name /= l_target_name and then a_name.same_string (l_target_name) set_with_named_path (a_pathname: PATH) -- Set `text` and formatting of Current from path a_pathname in RTF format. require not_destroyed: not is_destroyed pathname_not_void: a_pathname /= Void ensure caret_reset_if_successful: last_load_successful implies caret_position = 1 unselected_if_successful: last_load_successful implies not has_selection text_not_changed_if_failed: not last_load_successful implies old text.is_equal (text) caret_not_moved_if_failed: not last_load_successful implies caret_position = old caret_position selection_not_changed_if_failed: not last_load_successful implies (old has_selection = has_selection and has_selection implies old start_selection = start_selection and old end_selection = end_selection) show -- Request that Current be displayed when its parent is. -- True by default. -- If successful, make `is_show_requested` True. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed 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) require -- from EV_PICK_AND_DROPABLE not_destroyed: not is_destroyed mode_is_configurable_target_menu: mode_is_configurable_target_menu configurable_menu_handler_set: configurable_target_menu_handler /= Void feature -- Element change append_text (a_text: READABLE_STRING_GENERAL) -- Append a_text to `text`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed text_not_void: a_text /= Void no_carriage_returns: not a_text.has_code (('%R').natural_32_code) ensure -- from EV_TEXT_COMPONENT text_appended: check_text_modification (old text, a_text.as_string_32) caret_not_moved: old caret_position = caret_position insert_text (a_text: READABLE_STRING_GENERAL) -- Insert a_text to right of `caret_position`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed text_not_void: a_text /= Void no_carriage_returns: not a_text.has_code (('%R').natural_32_code) ensure -- from EV_TEXT_COMPONENT text_insert_correctly: text.is_equal ((old text).substring (1, (old caret_position - 1)) + a_text.as_string_32 + (old text).substring ((old caret_position), (old text.count))) caret_not_moved: old caret_position = caret_position prepend_text (a_text: READABLE_STRING_GENERAL) -- Prepend a_text to `text`. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed text_not_void: a_text /= Void no_carriage_returns: not a_text.has_code (('%R').natural_32_code) ensure -- from EV_TEXT_COMPONENT text_prepended: text.is_equal (a_text.as_string_32 + old text) caret_not_moved: old caret_position = caret_position remove_help_context -- Remove key press action associated with EV_APPLICATION.help_key. -- (from EV_HELP_CONTEXTABLE) require -- from EV_HELP_CONTEXTABLE not_destroyed: not is_destroyed help_context_not_void: help_context /= Void ensure -- from EV_HELP_CONTEXTABLE no_help_context: help_context = Void remove_text -- Make `text` is_empty. -- (from EV_TEXTABLE) require -- from EV_TEXTABLE not_destroyed: not is_destroyed ensure -- from EV_TEXTABLE text_empty: text.is_empty remove_tooltip -- Make `tooltip` empty. -- (from EV_TOOLTIPABLE) require -- from EV_TOOLTIPABLE not_destroyed: not is_destroyed ensure -- from EV_TOOLTIPABLE tooltip_removed: tooltip.is_empty set_background_color (a_color: like background_color) -- Assign a_color to `background_color`. -- (from EV_COLORIZABLE) require -- from EV_COLORIZABLE not_destroyed: not is_destroyed a_color_not_void: a_color /= Void ensure -- from EV_COLORIZABLE background_color_assigned: background_color.is_equal (a_color) set_data (some_data: like data) -- Assign some_data to `data`. -- (from EV_ANY) require -- from EV_ANY not_destroyed: not is_destroyed ensure -- from EV_ANY data_assigned: data = some_data set_font (a_font: EV_FONT) -- Assign a_font to `font`. -- (from EV_FONTABLE) require -- from EV_FONTABLE not_destroyed: not is_destroyed a_font_not_void: a_font /= Void ensure -- from EV_FONTABLE font_assigned: font.is_equal (a_font) and font /= a_font set_foreground_color (a_color: like foreground_color) -- Assign a_color to `foreground_color`. -- (from EV_COLORIZABLE) require -- from EV_COLORIZABLE not_destroyed: not is_destroyed a_color_not_void: a_color /= Void ensure -- from EV_COLORIZABLE foreground_color_assigned: foreground_color.is_equal (a_color) set_help_context (an_help_context: FUNCTION [EV_HELP_CONTEXT]) -- Assign an_help_context to `help_context`. -- (from EV_HELP_CONTEXTABLE) require -- from EV_HELP_CONTEXTABLE not_destroyed: not is_destroyed an_help_context_not_void: an_help_context /= Void ensure -- from EV_HELP_CONTEXTABLE help_context_assigned: attached help_context as l_help_context and then l_help_context.is_equal (an_help_context) set_identifier_name (a_name: READABLE_STRING_GENERAL) -- Set `identifier_name` to a_name. -- (from EV_IDENTIFIABLE) require -- from EV_IDENTIFIABLE a_name_not_void: a_name /= Void a_name_not_empty: not a_name.is_empty no_period_in_name: not a_name.has ('.'.to_character_32) no_special_regexp_characters_in_name: ensure -- from EV_IDENTIFIABLE identifier_name_set: identifier_name.same_string_general (a_name) set_minimum_height (a_minimum_height: INTEGER_32) -- Set a_minimum_height in pixels to `minimum_height`. -- If `height` is less than a_minimum_height, resize. -- From now, `minimum_height` is fixed and will not be changed -- dynamically by the application anymore. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed a_minimum_height_positive: a_minimum_height >= 0 ensure -- from EV_WIDGET minimum_height_assigned: (a_minimum_height > 0 implies minimum_height = a_minimum_height) or (a_minimum_height = 0 implies (minimum_height <= 1)) minimum_height_set_by_user_set: minimum_height_set_by_user set_minimum_size (a_minimum_width, a_minimum_height: INTEGER_32) -- Assign a_minimum_height to `minimum_height` -- and a_minimum_width to `minimum_width` in pixels. -- If `width` or `height` is less than minimum size, resize. -- From now, minimum size is fixed and will not be changed -- dynamically by the application anymore. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed a_minimum_width_positive: a_minimum_width >= 0 a_minimum_height_positive: a_minimum_height >= 0 ensure -- from EV_WIDGET minimum_width_assigned: (a_minimum_width > 0 implies minimum_width = a_minimum_width) or (a_minimum_width = 0 implies (minimum_width <= 1)) minimum_height_assigned: (a_minimum_height > 0 implies minimum_height = a_minimum_height) or (a_minimum_height = 0 implies (minimum_height <= 1)) minimum_height_set_by_user_set: minimum_height_set_by_user minimum_width_set_by_user_set: minimum_width_set_by_user set_minimum_width (a_minimum_width: INTEGER_32) -- Assign a_minimum_width in pixels to `minimum_width`. -- If `width` is less than a_minimum_width, resize. -- From now, `minimum_width` is fixed and will not be changed -- dynamically by the application anymore. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed a_minimum_width_positive: a_minimum_width >= 0 ensure -- from EV_WIDGET minimum_width_assigned: (a_minimum_width > 0 implies minimum_width = a_minimum_width) or (a_minimum_width = 0 implies (minimum_width <= 1)) minimum_width_set_by_user_set: minimum_width_set_by_user set_pointer_style (a_cursor: EV_POINTER_STYLE) -- Assign a_cursor to `pointer_style`. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed a_cursor_not_void: a_cursor /= Void ensure -- from EV_WIDGET pointer_style_assigned: attached pointer_style as l_pointer_style and then l_pointer_style.is_equal (a_cursor) set_text (a_text: separate READABLE_STRING_GENERAL) -- Assign a_text to `text`. -- (from EV_TEXTABLE) require -- from EV_TEXTABLE not_destroyed: not is_destroyed a_text_not_void: a_text /= Void no_carriage_returns: not a_text.has_code (('%R').natural_32_code) ensure -- from EV_TEXTABLE text_cloned: text.same_string_general (create {STRING_32}.make_from_separate (a_text) end) and then text /= a_text set_tooltip (a_tooltip: READABLE_STRING_GENERAL) -- Assign a_tooltip to `tooltip`. -- (from EV_TOOLTIPABLE) require -- from EV_TOOLTIPABLE not_destroyed: not is_destroyed tooltip: a_tooltip /= Void ensure -- from EV_TOOLTIPABLE tooltip_assigned: tooltip.same_string_general (a_tooltip) cloned: tooltip /= a_tooltip feature -- Removal dispose -- Free the entry associated with `object_id` if any -- (from IDENTIFIED) require -- from DISPOSABLE True ensure then -- from IDENTIFIED object_freed: id_freed frozen free_id -- Free the entry associated with `object_id` if any. -- (from IDENTIFIED) ensure -- from IDENTIFIED object_freed: id_freed feature -- Resizing set_minimum_width_in_characters (nb: INTEGER_32) -- Make a minimum of nb of the widest character visible -- on one line. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed valid_nb: nb > 0 ensure -- from EV_TEXT_COMPONENT minimum_width_in_characters_assigned: old minimum_width < minimum_width implies minimum_width >= maximum_character_width * nb feature -- Duplication frozen deep_copy (other: EV_RICH_TEXT) -- 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_RICH_TEXT -- 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_RICH_TEXT) -- 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_RICH_TEXT -- 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_RICH_TEXT -- 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 frozen default: detachable EV_RICH_TEXT -- 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 refresh_now -- Force an immediate redraw of Current. -- (from EV_WIDGET) require -- from EV_WIDGET not_destroyed: not is_destroyed feature -- Basic operation copy_selection -- Copy `selected_text` to clipboard. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed has_selection: has_selection ensure -- from EV_TEXT_COMPONENT selection_copied: clipboard_content.is_equal (selected_text) text_unchanged: text.is_equal (old text) caret_not_moved: caret_position = old caret_position cut_selection -- Move `selected_text` to clipboard. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed has_selection: has_selection is_editable: is_editable ensure -- from EV_TEXT_COMPONENT selection_in_clipboard: clipboard_content.is_equal (old selected_text) selection_cut: text.is_equal ((old text).substring (1, old start_selection - 1) + (old text).substring (old end_selection, (old text).count)) delete_selection -- Delete current selection. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed has_selection: has_selection is_editable: is_editable ensure -- from EV_TEXT_COMPONENT has_no_selection: not has_selection selection_deleted: text.is_equal ((old text).substring (1, old start_selection - 1) + (old text).substring (old end_selection, (old text).count)) deselect_all -- Unselect current selection. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed ensure -- from EV_TEXT_COMPONENT not_has_selection: not has_selection disable_word_wrapping -- Ensure `has_word_wrapping` is False. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT word_wrapping_disabled: not has_word_wrapping enable_word_wrapping -- Ensure `has_word_wrapping` is True. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed ensure -- from EV_TEXT word_wrapping_enabled: has_word_wrapping paste (a_position: INTEGER_32) -- Insert text from clipboard at a_position. -- No effect if clipboard is empty. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed a_position_within_range: a_position >= 1 and a_position <= text_length + 1 is_editable: is_editable ensure -- from EV_TEXT_COMPONENT text_pasted_correctly: text.is_equal ((old text).substring (1, a_position - 1) + clipboard_content + ((old text).substring (a_position, ((old text).count)))) caret_position_consistent: old caret_position <= a_position implies caret_position = old caret_position caret_position_consistent: old caret_position > a_position implies caret_position = old caret_position + clipboard_content.count scroll_down (i: INTEGER_32) -- Scroll down i lines from current visible position. -- (from EV_TEXT) require -- from EV_TEXT i_positive: i > 0 scroll_to_end -- Ensure that the last line is visible in Current. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed scroll_to_line (i: INTEGER_32) -- Ensure that line i is visible in Current. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_line_index: valid_line_index (i) scroll_up (i: INTEGER_32) -- Scroll up i lines from current visible position. -- (from EV_TEXT) require -- from EV_TEXT i_positive: i > 0 search (str: READABLE_STRING_GENERAL; start: INTEGER_32): INTEGER_32 -- Position of first occurrence of str at or after start; -- 0 if none. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_string: str /= Void select_all -- Select all text. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed positive_length: text_length > 0 ensure -- from EV_TEXT_COMPONENT has_selection: has_selection selection_start_set: start_selection = 1 selection_end_set: end_selection = text_length + 1 select_lines (first_line, last_line: INTEGER_32) -- Select all lines from first_line to last_line. -- (from EV_TEXT) require -- from EV_TEXT not_destroyed: not is_destroyed valid_line_index: valid_line_index (first_line) and valid_line_index (last_line) ensure -- from EV_TEXT has_selection: has_selection select_region (a_start_character_pos, a_end_character_pos: INTEGER_32) -- Select (highlight) text between a_start_character_pos and a_end_character_pos character positions inclusive. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT not_destroyed: not is_destroyed start_within_range: a_start_character_pos >= 1 and a_start_character_pos <= text_length end_within_range: a_end_character_pos >= 1 and a_end_character_pos <= text_length ensure -- from EV_TEXT_COMPONENT has_selection: has_selection selection_set: (a_start_character_pos <= a_end_character_pos implies start_selection = a_start_character_pos and end_selection = a_end_character_pos + 1) or start_selection = a_end_character_pos and end_selection = a_start_character_pos + 1 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. -- (from EV_TEXT_COMPONENT) require -- from EV_TEXT_COMPONENT 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 selection_set: a_start_pos /= a_end_pos = has_selection caret_set: (a_start_pos = a_end_pos) implies caret_position = a_start_pos selection_bounds_set: (a_start_pos <= a_end_pos implies (start_selection = a_start_pos and end_selection = a_end_pos)) or (start_selection = a_end_pos and end_selection = a_start_pos) feature -- Command destroy -- Destroy underlying native toolkit object. -- Render Current unusable. -- (from EV_ANY) ensure -- from EV_ANY is_destroyed: is_destroyed feature -- Contract support is_background_color_void: BOOLEAN -- If `background_color` void? -- (from EV_COLORIZABLE) is_bridge_ok (a_string: STRING_32): BOOLEAN -- If a_string equal implementation's `tooltip`? -- (from EV_TOOLTIPABLE) is_cloned (a_string: STRING_32): BOOLEAN -- If a_string same instance as implementation's `tooltip`? -- (from EV_TOOLTIPABLE) is_foreground_color_void: BOOLEAN -- If `foreground_color` void? -- (from EV_COLORIZABLE) is_in_default_state: BOOLEAN -- Is Current in its default state? require -- from EV_ANY True parent_of_source_allows_docking: BOOLEAN -- Does parent of source to be transported -- allow current to be dragged out? (See `real_source`) -- Not all Vision2 containers are currently supported by this -- mechanism, only descendents of EV_DOCKABLE_TARGET -- are supported. -- (from EV_DOCKABLE_SOURCE) source_has_current_recursive (source: EV_DOCKABLE_SOURCE): BOOLEAN -- Does source recursively contain Current? -- As seen by parenting structure. -- (from EV_DOCKABLE_SOURCE) require -- from EV_DOCKABLE_SOURCE not_destroyed: not is_destroyed source_not_void: source /= Void valid_line_index (i: INTEGER_32): BOOLEAN -- Is i a valid line index? -- (from EV_TEXT) feature -- Event handling caret_move_actions: EV_INTEGER_ACTION_SEQUENCE -- Actions to be performed when caret position changes. -- (from EV_RICH_TEXT_ACTION_SEQUENCES) ensure -- from EV_RICH_TEXT_ACTION_SEQUENCES not_void: Result /= Void change_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when `text` changes. -- (from EV_TEXT_COMPONENT_ACTION_SEQUENCES) ensure -- from EV_TEXT_COMPONENT_ACTION_SEQUENCES 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) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES 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) ensure -- from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES not_void: Result /= Void dock_started_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when a dockable source is dragged. -- (from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES) ensure -- from EV_DOCKABLE_SOURCE_ACTION_SEQUENCES not_void: Result /= Void dpi_changed_actions: EV_DPI_ACTION_SEQUENCE -- Actions to be performed when size changes. -- (from EV_WIDGET_ACTION_SEQUENCES) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES not_void: Result /= Void file_access_actions: EV_INTEGER_ACTION_SEQUENCE -- Actions to be performed while loading or saving. -- Event data is percentage of file written in the range (0-100). -- (from EV_RICH_TEXT_ACTION_SEQUENCES) ensure -- from EV_RICH_TEXT_ACTION_SEQUENCES not_void: Result /= Void file_drop_actions: EV_LITE_ACTION_SEQUENCE [LIST [STRING_32]] -- Actions to be performed when an OS file drop is performed on Current. -- (from EV_WIDGET_ACTION_SEQUENCES) focus_in_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when keyboard focus is gained. -- (from EV_WIDGET_ACTION_SEQUENCES) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES not_void: Result /= Void key_press_actions: EV_KEY_ACTION_SEQUENCE -- Actions to be performed when a keyboard key is pressed. -- (from EV_WIDGET_ACTION_SEQUENCES) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES not_void: Result /= Void pick_ended_actions: EV_PND_FINISHED_ACTION_SEQUENCE -- Actions to be performed when a transport from Current ends. -- If transport completed successfully, then event data -- is target. If cancelled, then event data is Void. -- (from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES) ensure -- from EV_PICK_AND_DROPABLE_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) ensure -- from EV_WIDGET_ACTION_SEQUENCES 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) require -- from EV_ABSTRACT_PICK_AND_DROPABLE True ensure -- from EV_WIDGET_ACTION_SEQUENCES not_void: Result /= Void resize_actions: EV_GEOMETRY_ACTION_SEQUENCE -- Actions to be performed when size changes. -- (from EV_WIDGET_ACTION_SEQUENCES) ensure -- from EV_WIDGET_ACTION_SEQUENCES not_void: Result /= Void selection_change_actions: EV_NOTIFY_ACTION_SEQUENCE -- Actions to be performed when selection changes. -- (from EV_RICH_TEXT_ACTION_SEQUENCES) ensure -- from EV_RICH_TEXT_ACTION_SEQUENCES not_void: Result /= Void 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 -- Status Report is_destroyed: BOOLEAN -- Is Current no longer usable? -- (from EV_ANY) ensure -- from EV_ANY bridge_ok: Result = implementation.is_destroyed invariant buffer_locked_in_a_single_mode: not (buffer_locked_in_append_mode and buffer_locked_in_format_mode) -- from EV_WIDGET is_displayed_implies_show_requested: is_usable and then is_displayed implies is_show_requested parent_contains_current: is_usable and then attached parent as l_parent implies l_parent.has (Current) -- from EV_PICK_AND_DROPABLE 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 -- from EV_ANY is_initialized: is_initialized default_create_called: default_create_called is_coupled: default_create_called implies (implementation.interface = Current or (attached {EV_ENVIRONMENT} Current and then attached implementation.interface)) -- from ANY reflexive_equality: standard_is_equal (Current) reflexive_conformance: conforms_to (Current) -- from EV_POSITIONED width_not_negative: is_usable implies width >= 0 height_not_negative: is_usable implies height >= 0 minimum_width_not_negative: is_usable implies minimum_width >= 0 minimum_height_not_negative: is_usable implies minimum_height >= 0 -- from EV_DOCKABLE_SOURCE parent_permits_docking: is_dockable implies parent_of_source_allows_docking -- from EV_COLORIZABLE background_color_not_void: is_usable implies not is_background_color_void foreground_color_not_void: is_usable implies not is_foreground_color_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_RICH_TEXT
Classes Clusters Cluster hierarchy Chart Relations Flat contracts Go to:

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