indexing
description: "Eiffel Vision menu bar. Mswindows implementation."
legal: "See notice at end of class."
status: "See notice at end of class."
date: "$Date: 2006-07-12 15:15:52 -0700 (Wed, 12 Jul 2006) $"
revision: "$Revision: 61253 $"
class interface
EV_MENU_BAR_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
cursor: EV_DYNAMIC_LIST_CURSOR [EV_MENU_ITEM]
EV_DYNAMIC_LIST_I
ensure EV_DYNAMIC_LIST_I
not_void: Result /= Void
generating_type: STRING_8
ANY
generator: STRING_8
ANY
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
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
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
wel_item: POINTER
WEL_ANY
item_by_data (data: ANY): like item
`data'
EV_ITEM_LIST_I
require EV_ITEM_LIST_I
data_not_void: data /= Void
off: BOOLEAN
EV_DYNAMIC_LIST_I
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
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)
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
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
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
valid_cursor (p: CURSOR): BOOLEAN
`p'
`p'
`Current'
EV_DYNAMIC_LIST_I
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_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)
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_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)
set_shared
shared
WEL_ANY
ensure WEL_ANY
shared: shared
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)
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)
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
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
dispose
`Current'
`Current'
WEL_ANY
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
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)
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
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
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
remove_item_actions: ACTION_SEQUENCE [TUPLE [EV_ITEM]]
EV_ITEM_LIST_IMP
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_DYNAMIC_LIST_I
index_within_bounds: is_usable implies (index >= 0 and then index <= count + 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_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_BAR_IMP