indexing
description: "EiffelVision menu. Mswindows implementation."
legal: "See notice at end of class."
status: "See notice at end of class."
date: "$Date: 2006-03-22 23:29:03 -0800 (Wed, 22 Mar 2006) $"
revision: "$Revision: 57641 $"
class interface
EV_MENU_IMP
create
make (an_interface: like interface)
`Current'`an_interface'
require EV_ANY_I
an_interface_not_void: an_interface /= Void
ensure EV_ANY_I
interface_assigned: interface = an_interface
base_make_called: base_make_called
feature
accept_cursor: EV_POINTER_STYLE
pebble
EV_PICK_AND_DROPABLE_I
awaiting_movement: BOOLEAN
EV_SHARED_TRANSPORT_IMP
capture_enabled: BOOLEAN
EV_PICK_AND_DROPABLE_IMP
check_drag_and_drop_release (a_x, a_y: INTEGER_32)
EV_PICK_AND_DROPABLE_ITEM_IMP
cursor: EV_DYNAMIC_LIST_CURSOR [EV_MENU_ITEM]
EV_DYNAMIC_LIST_I
ensure EV_DYNAMIC_LIST_I
not_void: Result /= Void
deny_cursor: EV_POINTER_STYLE
EV_PICK_AND_DROPABLE_I
drag_and_drop_starting_movement: INTEGER_32 is 3
EV_SHARED_TRANSPORT_IMP
generating_type: STRING_8
ANY
generator: STRING_8
ANY
has_heavy_capture: BOOLEAN
parent
EV_PICK_AND_DROPABLE_ITEM_IMP
i_th (i: INTEGER_32): like item
`i'
EV_DYNAMIC_LIST_IMP
require EV_DYNAMIC_LIST_I
i_within_bounds: i > 0 and then i <= count
ensure EV_DYNAMIC_LIST_I
not_void: Result /= Void
id: INTEGER_32
EV_ID_IMP
index: INTEGER_32
EV_DYNAMIC_LIST_I
index_of (v: like item; i: INTEGER_32): INTEGER_32
`v'
`i'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
positive_occurances: i > 0
wel_item: POINTER
WEL_ANY
item: EV_MENU_ITEM
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
readable: index > 0 and then index <= count
ensure EV_DYNAMIC_LIST_I
not_void: Result /= Void
item_by_data (data: ANY): like item
`data'
EV_ITEM_LIST_I
require EV_ITEM_LIST_I
data_not_void: data /= Void
object_id: INTEGER_32
`Current'
EV_MENU_ITEM_IMP
off: BOOLEAN
EV_DYNAMIC_LIST_I
original_pressure: REAL_64
EV_SHARED_TRANSPORT_IMP
original_x: INTEGER_32
EV_SHARED_TRANSPORT_IMP
original_x_tilt: REAL_64
EV_SHARED_TRANSPORT_IMP
original_y: INTEGER_32
EV_SHARED_TRANSPORT_IMP
original_y_tilt: REAL_64
EV_SHARED_TRANSPORT_IMP
pebble: ANY
EV_PICK_AND_DROPABLE_I
pebble_function: FUNCTION [ANY, TUPLE, ANY]
EV_PICK_AND_DROPABLE_I
pebble_positioning_enabled: BOOLEAN
`True'
pebble_x_positionpebble_y_position
`False'
EV_PICK_AND_DROPABLE_I
pebble_x_position: INTEGER_32
`Current'
EV_PICK_AND_DROPABLE_I
pebble_y_position: INTEGER_32
`Current'
EV_PICK_AND_DROPABLE_I
pixmap: EV_PIXMAP
`Current'
EV_PIXMAPABLE_IMP
require EV_PIXMAPABLE_I
True
pixmap_imp: EV_PIXMAP_IMP_STATE
`Current'
EV_PIXMAPABLE_IMP
pnd_original_parent: EV_PICK_AND_DROPABLE_ITEM_HOLDER_IMP
`Current'
EV_PICK_AND_DROPABLE_ITEM_IMP
pnd_press (a_x, a_y, a_button, a_screen_x, a_screen_y: INTEGER_32)
EV_PICK_AND_DROPABLE_ITEM_IMP
popup_menu (position: INTEGER_32): WEL_MENU
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
popup_exists: popup_exists (position)
ensure WEL_MENU
result_not_void: Result /= Void
retrieve_item_by_data (data: ANY; should_compare_objects: BOOLEAN): EV_MENU_ITEM
`Result'`Current'
`some_data'
`should_compare_objects'
EV_DYNAMIC_LIST_I
retrieve_items_by_data (data: ANY; should_compare_objects: BOOLEAN): ARRAYED_LIST [EV_MENU_ITEM]
`Result'`Current'
`some_data'
`should_compare_objects'
EV_DYNAMIC_LIST_I
set_pnd_original_parent
parent_imppnd_original_parent
EV_PICK_AND_DROPABLE_ITEM_IMP
set_pointer_style (c: EV_POINTER_STYLE)
`c'parent_imp
EV_PICK_AND_DROPABLE_ITEM_IMP
require EV_PICK_AND_DROPABLE_I
True
text: STRING_32
EV_MENU_ITEM_IMP
require EV_TEXTABLE_I
True
ensure EV_TEXTABLE_I
not_void: Result /= Void
cloned: Result /= text
transport_executing: BOOLEAN
EV_PICK_AND_DROPABLE_IMP
widget_imp_at_pointer_position: EV_WIDGET_IMP
`Result'
EV_SHARED_TRANSPORT_IMP
feature
count: INTEGER_32
EV_DYNAMIC_LIST_IMP
require EV_DYNAMIC_LIST_I
True
wel_count: INTEGER_32
WEL_MENU
require WEL_MENU
exists: exists
ensure WEL_MENU
positive_result: Result >= 0
feature
frozen deep_equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
shallow_implies_deep: standard_equal (some, other) implies Result
both_or_none_void: (some = Void) implies (Result = (other = Void))
same_type: (Result and (some /= Void)) implies some.same_type (other)
symmetric: Result implies deep_equal (other, some)
frozen equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
definition: Result = (some = Void and other = Void) or else ((some /= Void and other /= Void) and then some.is_equal (other))
is_equal (other: like Current): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
ensure ANY
symmetric: Result implies other.is_equal (Current)
consistent: standard_is_equal (other) implies Result
frozen standard_equal (some: ANY; other: like arg #1): BOOLEAN
`some'`other'
ANY
ensure ANY
definition: Result = (some = Void and other = Void) or else ((some /= Void and other /= Void) and then some.standard_is_equal (other))
frozen standard_is_equal (other: like Current): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
ensure ANY
same_type: Result implies same_type (other)
symmetric: Result implies other.standard_is_equal (Current)
feature
conforms_to (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
exists: BOOLEAN
item
WEL_ANY
ensure WEL_ANY
Result = (wel_item /= default_pointer)
foreground_window: WEL_WINDOW
WEL_WINDOWS_ROUTINES
has (v: like item): BOOLEAN
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
v_not_void: v /= Void
id_string (an_id: INTEGER_32): STRING_32
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
result_not_void: Result /= Void
internal_non_sensitive: BOOLEAN
`Current'
interface
EV_SENSITIVE_I
is_sensitive: BOOLEAN
EV_MENU_ITEM_IMP
is_transport_enabled: BOOLEAN
EV_PICK_AND_DROPABLE_I
is_window (hwnd: POINTER): BOOLEAN
`hwnd'
WEL_WINDOWS_ROUTINES
item_checked (an_id: INTEGER_32): BOOLEAN
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
item_enabled (an_id: INTEGER_32): BOOLEAN
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
item_exists (an_id: INTEGER_32): BOOLEAN
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
key_down (virtual_key: INTEGER_32): BOOLEAN
WEL_WINDOWS_ROUTINES
key_locked (virtual_key: INTEGER_32): BOOLEAN
WEL_WINDOWS_ROUTINES
key_to_string (key_data: INTEGER_32): STRING_32
`virtual_key'
WEL_WINDOWS_ROUTINES
mode_is_drag_and_drop: BOOLEAN
EV_PICK_AND_DROPABLE_I
mode_is_pick_and_drop: BOOLEAN
EV_PICK_AND_DROPABLE_I
mode_is_target_menu: BOOLEAN
EV_PICK_AND_DROPABLE_I
popup_exists (position: INTEGER_32): BOOLEAN
WEL_MENU
require WEL_MENU
exists: exists
positive_position: position >= 0
position_enabled (position: INTEGER_32): BOOLEAN
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
same_type (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
ensure ANY
definition: Result = (conforms_to (other) and other.conforms_to (Current))
shared: BOOLEAN
item
item
destroy_item
item
WEL_ANY
system_directory: STRING_32
WEL_WINDOWS_ROUTINES
ensure WEL_WINDOWS_ROUTINES
result_not_void: Result /= Void
tick_count: INTEGER_32
WEL_WINDOWS_ROUTINES
ensure WEL_WINDOWS_ROUTINES
positive_result: Result >= 0
user_is_sensitive: BOOLEAN
EV_SENSITIVE_I
valid_cursor (p: CURSOR): BOOLEAN
`p'
`p'
`Current'
EV_DYNAMIC_LIST_I
window_of_item (hwnd: POINTER): WEL_WINDOW
`hwnd'
WEL_WINDOWS_ROUTINES
require WEL_WINDOWS_ROUTINES
hwnd_not_null: hwnd /= default_pointer
is_window_pointer: is_window (hwnd)
ensure 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"))
windows_directory: STRING_32
WEL_WINDOWS_ROUTINES
ensure WEL_WINDOWS_ROUTINES
result_not_void: Result /= Void
feature
check_item (an_id: INTEGER_32)
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
item_checked: item_checked (an_id)
disable_item (an_id: INTEGER_32)
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
item_disabled: not item_enabled (an_id)
disable_pebble_positioning
`False'pebble_positioning_enabled
EV_PICK_AND_DROPABLE_I
disable_position (position: INTEGER_32)
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
ensure WEL_MENU
position_disabled: not position_enabled (position)
disable_transport
EV_PICK_AND_DROPABLE_IMP
require EV_PICK_AND_DROPABLE_I
True
ensure EV_PICK_AND_DROPABLE_I
is_transport_disabled: not is_transport_enabled
enable_item (an_id: INTEGER_32)
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
item_enabled: item_enabled (an_id)
enable_pebble_positioning
`True'pebble_positioning_enabled
EV_PICK_AND_DROPABLE_I
enable_position (position: INTEGER_32)
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
ensure WEL_MENU
position_enabled: position_enabled (position)
enable_transport
EV_PICK_AND_DROPABLE_IMP
require EV_PICK_AND_DROPABLE_I
pebble_not_void: pebble /= Void or pebble_function /= Void
ensure EV_PICK_AND_DROPABLE_I
is_transport_enabled: interface.implementation.is_transport_enabled
escape_pnd
EV_PICK_AND_DROPABLE_IMP
ensure EV_PICK_AND_DROPABLE_IMP
not_in_transport: not transport_executing
pnd_motion (a_x, a_y, a_screen_x, a_screen_y: INTEGER_32)
EV_PICK_AND_DROPABLE_IMP
remove_pebble
pebble
EV_PICK_AND_DROPABLE_I
ensure EV_PICK_AND_DROPABLE_I
pebble_removed: pebble = Void and pebble_function = Void
is_transport_disabled: not is_transport_enabled
set_accept_cursor (a_cursor: like accept_cursor)
`a_cursor'
pebble
EV_PICK_AND_DROPABLE_I
set_deny_cursor (a_cursor: like deny_cursor)
`a_cursor'
pebble
EV_PICK_AND_DROPABLE_I
set_drag_and_drop_mode
EV_PICK_AND_DROPABLE_I
ensure EV_PICK_AND_DROPABLE_I
mode_is_drag_and_drop: mode_is_drag_and_drop
set_pebble (a_pebble: like pebble)
`a_pebble'pebble
EV_PICK_AND_DROPABLE_I
require EV_PICK_AND_DROPABLE_I
a_pebble_not_void: a_pebble /= Void
ensure EV_PICK_AND_DROPABLE_I
pebble_assigned: interface.implementation.pebble = a_pebble
is_transport_enabled: interface.implementation.is_transport_enabled
set_pebble_function (a_function: FUNCTION [ANY, TUPLE, ANY])
`a_function'pebble_function
EV_PICK_AND_DROPABLE_I
require EV_PICK_AND_DROPABLE_I
a_function_not_void: a_function /= Void
ensure EV_PICK_AND_DROPABLE_I
pebble_function_assigned: interface.implementation.pebble_function = a_function
is_transport_enabled: interface.implementation.is_transport_enabled
set_pebble_position (a_x, a_y: INTEGER_32)
`Current'
EV_PICK_AND_DROPABLE_I
ensure EV_PICK_AND_DROPABLE_I
pick_x_assigned: pick_x = a_x
pick_y_assigned: pick_y = a_y
set_pick_and_drop_mode
EV_PICK_AND_DROPABLE_I
ensure EV_PICK_AND_DROPABLE_I
mode_is_pick_and_drop: mode_is_pick_and_drop
set_shared
shared
WEL_ANY
ensure WEL_ANY
shared: shared
set_target_menu_mode
EV_PICK_AND_DROPABLE_I
ensure EV_PICK_AND_DROPABLE_I
mode_is_target_menu: mode_is_target_menu
set_unshared
shared
WEL_ANY
ensure WEL_ANY
unshared: not shared
uncheck_item (an_id: INTEGER_32)
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
item_unchecked: not item_checked (an_id)
user_disable_sensitive
EV_SENSITIVE_I
ensure EV_SENSITIVE_I
is_desensitive: not user_is_sensitive
user_enable_sensitive
EV_SENSITIVE_I
ensure EV_SENSITIVE_I
is_sensitive_if_parent_sensitive: (has_parent and then parent_is_sensitive) implies interface.implementation.is_sensitive
is_sensitive_if_orphaned: not has_parent implies interface.implementation.is_sensitive
feature
back
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
not_before: index > 0
forth
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
not_after: index <= count
go_i_th (i: INTEGER_32)
`i'
EV_DYNAMIC_LIST_I
go_to (p: CURSOR)
`p'
EV_DYNAMIC_LIST_I
move (i: INTEGER_32)
`i'
EV_DYNAMIC_LIST_I
start
EV_DYNAMIC_LIST_I
ensure EV_DYNAMIC_LIST_I
index_on_first: index = 1
feature
append (s: SEQUENCE [EV_MENU_ITEM])
`s'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
sequence_not_void: s /= Void
ensure EV_DYNAMIC_LIST_I
count_increased: old count + s.count = count
append_bitmap (bitmap: WEL_BITMAP; an_id: INTEGER_32)
`bitmap'`an_id'
WEL_MENU
require WEL_MENU
exists: exists
bitmap_not_void: bitmap /= Void
bitmap_exists: bitmap.exists
positive_id: an_id > 0
item_not_exists: not item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
item_exists: item_exists (an_id)
append_popup (a_menu: WEL_MENU; a_title: STRING_GENERAL)
`a_menu'`a_title'
WEL_MENU
require WEL_MENU
exists: exists
a_menu_not_void: a_menu /= Void
a_menu_exists: a_menu.exists
a_title_not_void: a_title /= Void
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
append_separator
WEL_MENU
require WEL_MENU
exists: exists
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
append_string (a_string: STRING_GENERAL; an_id: INTEGER_32)
`a_string'`an_id'
WEL_MENU
require WEL_MENU
exists: exists
a_string_not_void: a_string /= Void
positive_id: an_id > 0
item_not_exists: not item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
item_exists: item_exists (an_id)
string_set: id_string (an_id).is_equal (a_string)
append_string_with_break (a_string: STRING_GENERAL; an_id: INTEGER_32; has_separator: BOOLEAN)
`has_separator'
WEL_MENU
require WEL_MENU
exists: exists
a_string_not_void: a_string /= Void
positive_id: an_id > 0
item_not_exists: not item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
item_exists: item_exists (an_id)
string_set: id_string (an_id).is_equal (a_string)
extend (v: like item)
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
insert_bitmap (bitmap: WEL_BITMAP; a_position, an_id: INTEGER_32)
`bitmap'`a_position'
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
a_position_large_enough: a_position >= 0
a_position_small_enough: a_position <= wel_count
bitmap_not_void: bitmap /= Void
bitmap_exists: bitmap.exists
positive_id: an_id > 0
item_not_exists: not item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
insert_popup (a_menu: WEL_MENU; a_position: INTEGER_32; a_title: STRING_GENERAL)
`a_menu'`a_position'
`a_title'
WEL_MENU
require WEL_MENU
exists: exists
a_menu_not_void: a_menu /= Void
a_menu_exists: a_menu.exists
a_title_not_void: a_title /= Void
a_position_large_enough: a_position >= 0
a_position_small_enough: a_position <= wel_count
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
popup_menu_set: popup_menu (a_position).item = a_menu.item
insert_separator (a_position: INTEGER_32)
`a_position'
WEL_MENU
require WEL_MENU
exists: exists
a_position_large_enough: a_position >= 0
a_position_small_enough: a_position <= wel_count
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
insert_string (a_string: STRING_GENERAL; a_position, an_id: INTEGER_32)
`a_string'`a_position'
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
a_position_large_enough: a_position >= 0
a_position_small_enough: a_position <= wel_count
a_string_not_void: a_string /= Void
positive_id: an_id > 0
item_not_exists: not item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count + 1
string_set: id_string (an_id).is_equal (a_string)
merge_left (other: like interface)
`other'
`other'
EV_DYNAMIC_LIST_I
merge_right (other: like interface)
`other'
`other'
EV_DYNAMIC_LIST_I
modify_string (a_string: STRING_GENERAL; an_id: INTEGER_32)
`an_id'
`a_string'
WEL_MENU
require WEL_MENU
exists: exists
a_string_not_void: a_string /= Void
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
string_set: id_string (an_id).is_equal (a_string)
pixmap_equal_to (a_pixmap: EV_PIXMAP): BOOLEAN
`a_pixmap'pixmap
EV_PIXMAPABLE_I
put_front (v: like item)
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
put_i_th (v: like item; i: INTEGER_32)
`i'`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
valid_index: i > 0 and i <= count
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
put_left (v: like item)
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
put_right (v: like item)
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
replace (v: like item)
`v'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
writable: index > 0 and then index <= count
v_not_void: v /= Void
ensure EV_DYNAMIC_LIST_I
has_v: has (v)
set_item (an_item: POINTER)
item`an_item'
WEL_ANY
ensure WEL_ANY
item_set: wel_item = an_item
set_parent_imp (a_parent_imp: like parent_imp)
`a_parent_imp'`Current'
EV_MENU_ITEM_IMP
ensure EV_ITEM_IMP
assigned: parent_imp = a_parent_imp
set_text (a_text: STRING_GENERAL)
`a_text'text
EV_MENU_ITEM_IMP
require EV_TEXTABLE_I
a_text_not_void: a_text /= Void
no_carriage_returns: not a_text.has_code (('%R').natural_32_code)
ensure EV_TEXTABLE_I
text_cloned: text.is_equal (a_text) and then text /= a_text
feature
delete_item (an_id: INTEGER_32)
`an_id'
WEL_MENU
require WEL_MENU
exists: exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
ensure WEL_MENU
new_count: wel_count = old wel_count - 1
item_not_exists: not item_exists (an_id)
delete_position (position: INTEGER_32)
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
ensure WEL_MENU
new_count: wel_count = old wel_count - 1
prune (v: like item)
`v'
`v'
EV_DYNAMIC_LIST_I
ensure EV_DYNAMIC_LIST_I
cursor_not_moved: not old has (v) implies old interface.index = interface.index
cursor_not_moved: old has (v) and then old interface.index < old index_of (v, 1) implies index = old index
cursor_not_moved: old has (v) and then old interface.index >= old index_of (v, 1) implies index = old index - 1
not_has_v: not has (v)
remove
`after'
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
writable: not off
ensure EV_DYNAMIC_LIST_I
not_has_v: not has (old item)
remove_left
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
left_exists: index > 1
not_before: not (index = 0)
ensure then EV_DYNAMIC_LIST_I
left_neighbor_removed: not has (old i_th (index - 1))
remove_position (position: INTEGER_32)
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
ensure WEL_MENU
new_count: wel_count = old wel_count - 1
remove_right
EV_DYNAMIC_LIST_I
require EV_DYNAMIC_LIST_I
right_exists: index < count
ensure then EV_DYNAMIC_LIST_I
right_neighbor_removed: not has (old i_th (index + 1))
wipe_out
EV_DYNAMIC_LIST_I
feature
position_to_item_id (position: INTEGER_32): INTEGER_32
`position'
`position'
WEL_MENU
require WEL_MENU
exists: exists
position_large_enough: position >= 0
position_small_enough: position < wel_count
feature
copy (other: like Current)
`other'
ANY
require ANY
other_not_void: other /= Void
type_identity: same_type (other)
ensure ANY
is_equal: is_equal (other)
frozen deep_copy (other: like Current)
copy`other'deep_twin
ANY
require ANY
other_not_void: other /= Void
ensure ANY
deep_equal: deep_equal (Current, other)
frozen deep_twin: like Current
ANY
ensure ANY
deep_equal: deep_equal (Current, Result)
frozen standard_copy (other: like Current)
`other'
ANY
require ANY
other_not_void: other /= Void
type_identity: same_type (other)
ensure ANY
is_standard_equal: standard_is_equal (other)
frozen standard_twin: like Current
`other'
ANY
ensure ANY
standard_twin_not_void: Result /= Void
equal: standard_equal (Result, Current)
frozen twin: like Current
`Current'
twincopycopy
ANY
ensure ANY
twin_not_void: Result /= Void
is_equal: Result.is_equal (Current)
feature
frozen default: like Current
ANY
frozen default_pointer: POINTER
`POINTER'
`p'default
`p'`POINTER'
ANY
default_rescue
ANY
frozen do_nothing
ANY
hide_cursor
WEL_WINDOWS_ROUTINES
hilite_menu_item (window: WEL_COMPOSITE_WINDOW; an_id: INTEGER_32)
`an_id'
`window'
WEL_MENU
require WEL_MENU
exists: exists
window_not_void: window /= Void
window_exists: window.exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
message_beep_asterisk
WEL_WINDOWS_ROUTINES
message_beep_exclamation
WEL_WINDOWS_ROUTINES
message_beep_hand
WEL_WINDOWS_ROUTINES
message_beep_ok
WEL_WINDOWS_ROUTINES
message_beep_question
WEL_WINDOWS_ROUTINES
output_debug_string (s: STRING_GENERAL)
`s'
WEL_WINDOWS_ROUTINES
require WEL_WINDOWS_ROUTINES
s_not_void: s /= Void
resource_string_id (an_id: INTEGER_32): STRING_32
`an_id'
WEL_WINDOWS_ROUTINES
ensure WEL_WINDOWS_ROUTINES
result_not_void: Result /= Void
set_cursor_position_absolute (x, y: INTEGER_32)
`x'`y'
WEL_WINDOWS_ROUTINES
show_cursor
WEL_WINDOWS_ROUTINES
show_track (x, y: INTEGER_32; window: WEL_COMPOSITE_WINDOW)
`x'`y'
`window'
`on_menu_command'
WEL_MENU
require WEL_MENU
exists: exists
not_empty: wel_count > 0
window_not_void: window /= Void
window_exists: window.exists
show_track_with_option (x, y: INTEGER_32; window: WEL_COMPOSITE_WINDOW; option: INTEGER_32; rect: WEL_RECT)
`option'
`x'`y'
`window'
`on_menu_command'
`rect'
WEL_MENU
require WEL_MENU
exists: exists
not_empty: wel_count > 0
window_not_void: window /= Void
window_exists: window.exists
unhilite_menu_item (window: WEL_COMPOSITE_WINDOW; an_id: INTEGER_32)
`an_id'
`window'
WEL_MENU
require WEL_MENU
exists: exists
window_not_void: window /= Void
window_exists: window.exists
positive_id: an_id > 0
item_exists: item_exists (an_id)
feature
parent: EV_MENU_ITEM_LIST
`Current'
EV_MENU_ITEM_IMP
require EV_ITEM_I
True
parent_imp: EV_MENU_ITEM_LIST_IMP
EV_MENU_ITEM_IMP
remove_pixmap
`Current'
EV_MENU_ITEM_IMP
require EV_PIXMAPABLE_I
True
ensure EV_PIXMAPABLE_I
pixmap_removed: pixmap = Void
set_pixmap (a_pixmap: EV_PIXMAP)
`a_pixmap'pixmap
EV_MENU_ITEM_IMP
require EV_PIXMAPABLE_I
pixmap_not_void: a_pixmap /= Void
feature
dockable_dialog_target: EV_DOCKABLE_DIALOG
EV_SHARED_TRANSPORT_I
global_drag_targets: ARRAYED_LIST [INTEGER_32]
EV_SHARED_TRANSPORT_I
insert_label: EV_CELL
`Current'
EV_SHARED_TRANSPORT_I
ensure EV_SHARED_TRANSPORT_I
result_not_void: Result /= Void
insert_label_imp: EV_CELL_I
Insert_label
EV_SHARED_TRANSPORT_I
ensure EV_SHARED_TRANSPORT_I
Result /= Void
insert_sep: EV_TOOL_BAR_SEPARATOR
EV_SHARED_TRANSPORT_I
insert_sep_imp: EV_TOOL_BAR_SEPARATOR_I
Insert_sep
EV_SHARED_TRANSPORT_I
ensure EV_SHARED_TRANSPORT_I
Result /= Void
internal_screen: EV_SCREEN
EV_SHARED_TRANSPORT_I
original_x_offset: INTEGER_16
EV_SHARED_TRANSPORT_I
original_y_offset: INTEGER_16
EV_SHARED_TRANSPORT_I
originating_source: EV_DOCKABLE_SOURCE_I
`source_being_dragged'
EV_SHARED_TRANSPORT_I
remove_insert_label
Insert_labelparent
`real_target'
EV_SHARED_TRANSPORT_I
ensure EV_SHARED_TRANSPORT_I
not_parented: insert_label.parent = Void
remove_insert_sep
`inset_sep'
EV_SHARED_TRANSPORT_I
ensure EV_SHARED_TRANSPORT_I
not_parented: insert_sep.parent = Void
source_being_docked: EV_DOCKABLE_SOURCE_I
EV_SHARED_TRANSPORT_I
feature
default_accept_cursor: EV_POINTER_STYLE
accept_cursor
EV_SHARED_TRANSPORT_I
default_deny_cursor: EV_POINTER_STYLE
deny_cursor
EV_SHARED_TRANSPORT_I
default_pixmaps: EV_STOCK_PIXMAPS
EV_SHARED_TRANSPORT_I
require EV_SHARED_TRANSPORT_IMP
True
global_pnd_targets: HASH_TABLE [INTEGER_32, INTEGER_32]
EV_SHARED_TRANSPORT_I
rubber_band_is_drawn: BOOLEAN
EV_SHARED_TRANSPORT_I
feature
pointer_x: INTEGER_16
EV_SHARED_TRANSPORT_I
pointer_y: INTEGER_16
EV_SHARED_TRANSPORT_I
feature
conforming_pick_actions: EV_NOTIFY_ACTION_SEQUENCE
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
ensure EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
not_void: Result /= Void
create_conforming_pick_actions: EV_NOTIFY_ACTION_SEQUENCE
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_IMP
require EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
True
create_item_select_actions: EV_MENU_ITEM_SELECT_ACTION_SEQUENCE
EV_MENU_ITEM_LIST_ACTION_SEQUENCES_IMP
require EV_MENU_ITEM_LIST_ACTION_SEQUENCES_I
True
create_pick_actions: EV_PND_START_ACTION_SEQUENCE
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_IMP
require EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
True
create_pick_ended_actions: EV_PND_FINISHED_ACTION_SEQUENCE
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_IMP
require EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
True
create_pointer_button_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_IMP
require EV_ITEM_ACTION_SEQUENCES_I
True
create_pointer_double_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_IMP
require EV_ITEM_ACTION_SEQUENCES_I
True
create_pointer_motion_actions: EV_POINTER_MOTION_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_IMP
require EV_ITEM_ACTION_SEQUENCES_I
True
create_select_actions: EV_NOTIFY_ACTION_SEQUENCE
EV_MENU_ITEM_ACTION_SEQUENCES_IMP
require EV_MENU_ITEM_ACTION_SEQUENCES_I
True
drop_actions: EV_PND_ACTION_SEQUENCE
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
ensure EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
not_void: Result /= Void
item_select_actions: EV_MENU_ITEM_SELECT_ACTION_SEQUENCE
EV_MENU_ITEM_LIST_ACTION_SEQUENCES_I
ensure EV_MENU_ITEM_LIST_ACTION_SEQUENCES_I
not_void: Result /= Void
new_item_actions: ACTION_SEQUENCE [TUPLE [EV_ITEM]]
EV_ITEM_LIST_IMP
pick_actions: EV_PND_START_ACTION_SEQUENCE
pebble
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
ensure EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
not_void: Result /= Void
pick_ended_actions: EV_PND_FINISHED_ACTION_SEQUENCE
`Current'
EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
ensure EV_PICK_AND_DROPABLE_ACTION_SEQUENCES_I
not_void: Result /= Void
pointer_button_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_I
ensure EV_ITEM_ACTION_SEQUENCES_I
not_void: Result /= Void
pointer_double_press_actions: EV_POINTER_BUTTON_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_I
ensure EV_ITEM_ACTION_SEQUENCES_I
not_void: Result /= Void
pointer_motion_actions: EV_POINTER_MOTION_ACTION_SEQUENCE
EV_ITEM_ACTION_SEQUENCES_I
ensure EV_ITEM_ACTION_SEQUENCES_I
not_void: Result /= Void
remove_item_actions: ACTION_SEQUENCE [TUPLE [EV_ITEM]]
EV_ITEM_LIST_IMP
select_actions: EV_NOTIFY_ACTION_SEQUENCE
EV_MENU_ITEM_ACTION_SEQUENCES_I
ensure EV_MENU_ITEM_ACTION_SEQUENCES_I
not_void: Result /= Void
feature
io: STD_FILES
ANY
out: STRING_8
ANYtagged_out
ANY
print (some: ANY)
`some'
ANY
frozen tagged_out: STRING_8
ANYout
ANY
feature
operating_environment: OPERATING_ENVIRONMENT
ANY
feature
print_radio_group (g: like radio_group)
EV_MENU_ITEM_LIST_IMP
print_radio_groups
EV_MENU_ITEM_LIST_IMP
invariant
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: pebble_function /= Void implies pebble_function.valid_operands ([1, 1])
EV_ANY_I
interface_coupled: is_usable implies interface /= Void and then interface.implementation = Current
base_make_called: base_make_called
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
EV_DYNAMIC_LIST_I
index_within_bounds: is_usable implies (index >= 0 and then index <= count + 1)
EV_ID_IMP
make_called: id > 0
EV_ITEM_LIST_IMP
new_item_actions_not_void: is_usable implies new_item_actions /= Void
remove_item_actions_not_void: is_usable implies remove_item_actions /= Void
indexing
copyright: "Copyright (c) 1984-2006, Eiffel Software and others"
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
source: "[
Eiffel Software
356 Storke Road, Goleta, CA 93117 USA
Telephone 805-685-1006, Fax 805-685-6869
Website http://www.eiffel.com
Customer support http://support.eiffel.com
]"
end EV_MENU_IMP