indexing
description: "A button of which the paint operation must be defined by the developer."
legal: "See notice at end of class."
status: "See notice at end of class."
date: "$Date: 2006-01-22 18:25:44 -0800 (Sun, 22 Jan 2006) $"
revision: "$Revision: 56675 $"
class interface
WEL_OWNER_DRAW_BUTTON
create
make (a_parent: WEL_WINDOW; a_name: STRING_GENERAL; a_x, a_y, a_width, a_height, an_id: INTEGER_32)
WEL_BUTTON
require WEL_BUTTON
a_parent_not_void: a_parent /= Void
a_parent_exists: a_parent.exists
a_name_not_void: a_name /= Void
ensure WEL_BUTTON
parent_set: parent = a_parent
exists: exists
name_set: text.is_equal (a_name)
id_set: id = an_id
make_by_id (a_parent: WEL_DIALOG; an_id: INTEGER_32)
`an_id'`a_parent'
WEL_CONTROL
require WEL_CONTROL
a_parent_not_void: a_parent /= Void
positive_id: an_id > 0
ensure WEL_CONTROL
parent_set: parent = a_parent
id_set: id = an_id
feature
color_3ddkshadow: INTEGER_32 is 21
WEL_COLOR_CONSTANTS
color_3dface: INTEGER_32 is 15
WEL_COLOR_CONSTANTSColor_btnface
WEL_COLOR_CONSTANTS
color_3dhighlight: INTEGER_32 is 20
WEL_COLOR_CONSTANTSColor_3dhilightColor_btnhilightColor_btnhighlight
WEL_COLOR_CONSTANTS
color_3dhilight: INTEGER_32 is 20
WEL_COLOR_CONSTANTSColor_3dhighlightColor_btnhilightColor_btnhighlight
WEL_COLOR_CONSTANTS
color_3dlight: INTEGER_32 is 22
WEL_COLOR_CONSTANTS
color_3dshadow: INTEGER_32 is 16
WEL_COLOR_CONSTANTSColor_btnshadow
WEL_COLOR_CONSTANTS
color_activeborder: INTEGER_32 is 10
WEL_COLOR_CONSTANTS
color_activecaption: INTEGER_32 is 2
WEL_COLOR_CONSTANTS
color_appworkspace: INTEGER_32 is 12
WEL_COLOR_CONSTANTS
color_background: INTEGER_32 is 1
WEL_COLOR_CONSTANTSColor_desktop
WEL_COLOR_CONSTANTS
color_btnface: INTEGER_32 is 15
WEL_COLOR_CONSTANTSColor_3dface
WEL_COLOR_CONSTANTS
color_btnhighlight: INTEGER_32 is 20
WEL_COLOR_CONSTANTSColor_3dhilightColor_3dhighlightColor_btnhilight
WEL_COLOR_CONSTANTS
color_btnhilight: INTEGER_32 is 20
WEL_COLOR_CONSTANTSColor_3dhilightColor_3dhighlightColor_btnhighlight
WEL_COLOR_CONSTANTS
color_btnshadow: INTEGER_32 is 16
WEL_COLOR_CONSTANTSColor_3dshadow
WEL_COLOR_CONSTANTS
color_btntext: INTEGER_32 is 18
WEL_COLOR_CONSTANTS
color_captiontext: INTEGER_32 is 9
WEL_COLOR_CONSTANTS
color_desktop: INTEGER_32 is 1
WEL_COLOR_CONSTANTSColor_background
WEL_COLOR_CONSTANTS
color_gradientactivecaption: INTEGER_32 is 27
WEL_COLOR_CONSTANTS
color_gradientinactivecaption: INTEGER_32 is 28
WEL_COLOR_CONSTANTS
color_graytext: INTEGER_32 is 17
WEL_COLOR_CONSTANTS
color_highlight: INTEGER_32 is 13
WEL_COLOR_CONSTANTS
color_highlighttext: INTEGER_32 is 14
WEL_COLOR_CONSTANTS
color_hotlight: INTEGER_32 is 26
WEL_COLOR_CONSTANTS
color_inactiveborder: INTEGER_32 is 11
WEL_COLOR_CONSTANTS
color_inactivecaption: INTEGER_32 is 3
WEL_COLOR_CONSTANTS
color_inactivecaptiontext: INTEGER_32 is 19
WEL_COLOR_CONSTANTS
color_infobk: INTEGER_32 is 24
WEL_COLOR_CONSTANTS
color_infotext: INTEGER_32 is 23
WEL_COLOR_CONSTANTS
color_menu: INTEGER_32 is 4
WEL_COLOR_CONSTANTS
color_menubar: INTEGER_32 is 30
Color_menu
WEL_COLOR_CONSTANTS
color_menuhilight: INTEGER_32 is 29
WEL_COLOR_CONSTANTS
color_menutext: INTEGER_32 is 7
WEL_COLOR_CONSTANTS
color_scrollbar: INTEGER_32 is 0
WEL_COLOR_CONSTANTS
color_window: INTEGER_32 is 5
WEL_COLOR_CONSTANTS
color_windowframe: INTEGER_32 is 6
WEL_COLOR_CONSTANTS
color_windowtext: INTEGER_32 is 8
WEL_COLOR_CONSTANTS
commands: WEL_COMMAND_MANAGER
WEL_WINDOW
default_processing: BOOLEAN
WEL_RETURN_VALUE
font: WEL_FONT
WEL_CONTROL
require WEL_CONTROL
exists: exists
ensure WEL_CONTROL
result_not_void: Result /= Void
generating_type: STRING_8
ANY
generator: STRING_8
ANY
has_return_value: BOOLEAN
WEL_RETURN_VALUE
id: INTEGER_32
WEL_CONTROL
item: POINTER
WEL_ANY
message_return_value: POINTER
WEL_RETURN_VALUE
require WEL_RETURN_VALUE
has_return_value: has_return_value
parent: WEL_WINDOW
WEL_WINDOW
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
absolute_x: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
Result = window_rect.x
absolute_y: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
Result = window_rect.y
background_brush: WEL_BRUSH
WEL_WINDOW
ensure WEL_WINDOW
new_object: Result /= Void implies Result /= background_brush
captured_window: WEL_WINDOW
WEL_WINDOW
require WEL_WINDOW
exists: exists
window_captured: window_captured
client_rect: WEL_RECT
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
result_not_void: Result /= Void
command (message: INTEGER_32): WEL_COMMAND
`message'
WEL_WINDOW
require WEL_WINDOW
positive_message: message >= 0
command_exists: command_exists (message)
ensure WEL_WINDOW
result_not_void: Result /= Void
command_argument (message: INTEGER_32): ANY
`message'
WEL_WINDOW
require WEL_WINDOW
positive_message: message >= 0
command_exists: command_exists (message)
command_exists (message: INTEGER_32): BOOLEAN
`message'
WEL_WINDOW
require WEL_WINDOW
positive_message: message >= 0
commands_enabled: BOOLEAN
WEL_WINDOW
conforms_to (other: ANY): BOOLEAN
`other'
ANY
require ANY
other_not_void: other /= Void
enabled: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
ex_style: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
exists: BOOLEAN
item
WEL_ANY
require WEL_COLOR_CONTROL
True
ensure WEL_ANY
Result = (item /= default_pointer)
focused_window: WEL_WINDOW
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_capture: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_focus: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_heavy_capture: BOOLEAN
WEL_WINDOW
has_horizontal_scroll_bar: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_system_font: BOOLEAN
WEL_CONTROL
require WEL_CONTROL
exists: exists
has_vertical_scroll_bar: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
heavy_capture_activated: BOOLEAN
has_heavy_capture
WEL_WINDOW
height: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
is_inside: BOOLEAN
WEL_WINDOW
maximal_height: INTEGER_32
WEL_WINDOW
ensure WEL_WINDOW
result_large_enough: Result >= minimal_height
maximal_width: INTEGER_32
WEL_WINDOW
ensure WEL_WINDOW
result_large_enough: Result >= minimal_width
maximized: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
minimal_height: INTEGER_32
WEL_WINDOW
ensure WEL_WINDOW
positive_result: Result >= 0
result_small_enough: Result <= maximal_height
minimal_width: INTEGER_32
WEL_WINDOW
ensure WEL_WINDOW
positive_result: Result >= 0
result_small_enough: Result <= maximal_width
minimized: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
placement: WEL_WINDOW_PLACEMENT
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
result_not_void: Result /= Void
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
shown: BOOLEAN
WEL_WINDOW
require WEL_WINDOW
exists: exists
style: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
text: STRING_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
result_not_void: Result /= Void
text_length: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
positive_result: Result >= 0
valid_color_constant (c: INTEGER_32): BOOLEAN
`c'
WEL_COLOR_CONSTANTS
width: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
window_captured: BOOLEAN
WEL_WINDOW
window_rect: WEL_RECT
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
result_not_void: Result /= Void
x: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
parent = Void implies Result = absolute_x
y: INTEGER_32
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
parent = Void implies Result = absolute_y
feature {ANY}
valid_hwnd_constant (c: POINTER): BOOLEAN
`c'
WEL_HWND_CONSTANTS
feature
disable
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
disabled: not enabled
disable_commands
WEL_WINDOW
ensure WEL_WINDOW
commands_disabled: not commands_enabled
disable_default_processing
WEL_WINDOW
ensure WEL_WINDOW
default_processing_disabled: not default_processing
disable_drag_accept_files
`Current'
WEL_WINDOW
require WEL_WINDOW
exists
enable
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
enabled: enabled
enable_commands
WEL_WINDOW
ensure WEL_WINDOW
commands_enabled: commands_enabled
enable_default_processing
WEL_WINDOW
ensure WEL_WINDOW
default_processing_enabled: default_processing
enable_drag_accept_files
`Current'
WEL_WINDOW
require WEL_WINDOW
exists
hide
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
hidden: not shown
maximize
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
maximized: maximized
minimize
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
minimized: minimized
release_capture
set_capture
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_capture: has_capture
ensure WEL_WINDOW
not_has_capture: not has_capture
release_heavy_capture
set_heavy_capture
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_heavy_capture: has_heavy_capture
heavy_capture_activated: heavy_capture_activated
ensure WEL_WINDOW
heavy_capture_set: not has_heavy_capture
heavy_capture_deactivated: not heavy_capture_activated
restore
minimizemaximize
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_capture
`Current'
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_not_capture: not has_capture
has_not_heavy_capture: not has_heavy_capture
ensure WEL_WINDOW
has_capture: has_capture
set_ex_style (an_ex_style: INTEGER_32)
`an_ex_style'ex_style
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_focus
`Current'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_heavy_capture
`Current'
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_not_heavy_capture: not has_heavy_capture
heavy_capture_deactivated: not heavy_capture_activated
ensure WEL_WINDOW
heavy_capture_set: has_heavy_capture implies heavy_capture_activated
set_shared
shared
WEL_ANY
ensure WEL_ANY
shared: shared
set_style (a_style: INTEGER_32)
style`a_style'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_unshared
shared
WEL_ANY
ensure WEL_ANY
unshared: not shared
show
WEL_WINDOW
require WEL_WINDOW
exists: exists
update_cached_style (new_ex_style, old_ex_style: INTEGER_32)
WEL_WINDOW
feature
disable_redraw
`Current'enable_redraw
WEL_WINDOW
require WEL_WINDOW
exists: exists
enable_redraw
`Current'
WEL_WINDOW
require WEL_WINDOW
exists: exists
has_system_window_locked: BOOLEAN
WEL_WINDOW
lock_window_update
lock_window_update
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
has_system_window_locked
set_font (a_font: WEL_FONT)
font`a_font'
WEL_CONTROL
require WEL_CONTROL
exists: exists
a_font_not_void: a_font /= Void
a_font_exists: a_font.exists
ensure WEL_CONTROL
font_set: not has_system_font implies font.item = a_font.item
set_height (a_height: INTEGER_32)
height`a_height'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_item (an_item: POINTER)
item`an_item'
WEL_ANY
ensure WEL_ANY
item_set: item = an_item
set_parent (a_parent: WEL_WINDOW)
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_placement (a_placement: WEL_WINDOW_PLACEMENT)
placement`a_placement'
WEL_WINDOW
require WEL_WINDOW
exists: exists
a_placement_not_void: a_placement /= Void
set_text (a_text: STRING_GENERAL)
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
text_set_when_not_void: a_text /= Void implies text.is_equal (a_text)
text_set_when_void: a_text = Void implies text.count = 0
set_timer (timer_id, time_out: INTEGER_32)
`timer_id'
`time_out'
on_timerkill_timer
WEL_WINDOW
require WEL_WINDOW
exists: exists
positive_timer_id: timer_id > 0
positive_time_out: time_out > 0
set_width (a_width: INTEGER_32)
width`a_width'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_x (a_x: INTEGER_32)
x`a_x'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_y (a_y: INTEGER_32)
y`a_y'
WEL_WINDOW
require WEL_WINDOW
exists: exists
unlock_window_update
WEL_WINDOW
require WEL_WINDOW
exists: exists
feature
destroy
WEL_WINDOW
require WEL_WINDOW
exists: exists
ensure WEL_WINDOW
not_exists: not exists
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
bring_to_top
WEL_WINDOW
require WEL_WINDOW
exists: exists
frozen default: like Current
ANY
frozen default_pointer: POINTER
`POINTER'
`p'default
`p'`POINTER'
ANY
default_process_notification (notification_code: INTEGER_32)
`notification_code'
process_notification
WEL_CONTROL
require WEL_CONTROL
exists: exists
default_rescue
ANY
disable_horizontal_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
disable_vertical_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
frozen do_nothing
ANY
enable_horizontal_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
enable_vertical_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
go_to_next_group_item (a_parent: WEL_COMPOSITE_WINDOW; after: BOOLEAN)
`a_parent'
`after'
WEL_CONTROL
require WEL_CONTROL
valid_parent: a_parent /= Void and then a_parent.exists
go_to_next_tab_item (a_parent: WEL_COMPOSITE_WINDOW; after: BOOLEAN)
`after'
WEL_CONTROL
require WEL_CONTROL
valid_parent: a_parent /= Void and then a_parent.exists
hide_horizontal_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
hide_scroll_bars
WEL_WINDOW
require WEL_WINDOW
exists: exists
hide_vertical_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
insert_after (a_window: WEL_WINDOW)
`a_window'
WEL_WINDOW
require WEL_WINDOW
exists: exists
a_window_not_void: a_window /= Void
a_window_not_current: a_window /= Current
a_window_exists: a_window.exists
invalidate
WEL_WINDOW
require WEL_WINDOW
exists: exists
invalidate_rect (rect: WEL_RECT; erase_background: BOOLEAN)
`rect'
`erase_background'
WEL_WINDOW
require WEL_WINDOW
exists: exists
rect_not_void: rect /= Void
invalidate_region (region: WEL_REGION; erase_background: BOOLEAN)
`region'
`erase_background'
WEL_WINDOW
require WEL_WINDOW
exists: exists
region_not_void: region /= Void
region_exists: region.exists
invalidate_without_background
WEL_WINDOW
require WEL_WINDOW
exists: exists
kill_timer (timer_id: INTEGER_32)
`timer_id'
set_timeron_timer
WEL_WINDOW
require WEL_WINDOW
exists: exists
positive_timer_id: timer_id > 0
move (a_x, a_y: INTEGER_32)
`a_x'`a_y'
WEL_WINDOW
require WEL_WINDOW
exists: exists
move_and_resize (a_x, a_y, a_width, a_height: INTEGER_32; repaint: BOOLEAN)
`a_x'`a_y'
`a_width'`a_height'
WEL_WINDOW
require WEL_WINDOW
exists: exists
put_command (a_command: WEL_COMMAND; message: INTEGER_32; argument: ANY)
`a_command'`message'
WEL_WINDOW
require WEL_WINDOW
a_command_not_void: a_command /= Void
positive_message: message >= 0
ensure WEL_WINDOW
command_added: command (message) = a_command and command_argument (message) = argument
remove_command (message: INTEGER_32)
`message'
WEL_WINDOW
require WEL_WINDOW
positive_message: message >= 0
command_exists: command_exists (message)
ensure WEL_WINDOW
command_removed: not command_exists (message)
resize (a_width, a_height: INTEGER_32)
`a_width'`a_height'
WEL_WINDOW
require WEL_WINDOW
exists: exists
scroll (a_x, a_y: INTEGER_32)
`a_x'`a_y'
WEL_WINDOW
require WEL_WINDOW
exists: exists
set_class_icon (new_icon: WEL_ICON)
WEL_WINDOW
set_class_small_icon (new_icon: WEL_ICON)
WEL_WINDOW
set_z_order (z_order: POINTER)
`z_order'
WEL_WINDOW
require WEL_WINDOW
exists: exists
valid_hwnd_constant: valid_hwnd_constant (z_order)
show_horizontal_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
show_scroll_bars
WEL_WINDOW
require WEL_WINDOW
exists: exists
show_vertical_scroll_bar
WEL_WINDOW
require WEL_WINDOW
exists: exists
show_with_option (cmd_show: INTEGER_32)
`cmd_show'
`cmd_show'
WEL_WINDOW
require WEL_WINDOW
exists: exists
parent_shown: parent /= Void implies parent.exists and parent.shown
update
WEL_WINDOW
require WEL_WINDOW
exists: exists
validate
WEL_WINDOW
require WEL_WINDOW
exists: exists
validate_rect (rect: WEL_RECT)
`rect'
WEL_WINDOW
require WEL_WINDOW
exists: exists
rect_not_void: rect /= Void
validate_region (region: WEL_REGION)
`region'
WEL_WINDOW
require WEL_WINDOW
exists: exists
region_not_void: region /= Void
region_exists: region.exists
win_help (help_file: STRING_GENERAL; a_command, data: INTEGER_32)
`help_file'
`a_command'
`a_command'
WEL_WINDOW
require WEL_WINDOW
exists: exists
help_file_not_void: help_file /= Void
feature
background_color: WEL_COLOR_REF
WEL_BUTTON
require WEL_COLOR_CONTROL
exists: exists
ensure WEL_COLOR_CONTROL
background_color_not_void: Result /= Void
foreground_color: WEL_COLOR_REF
WEL_BUTTON
require WEL_COLOR_CONTROL
exists: exists
ensure WEL_COLOR_CONTROL
foreground_color_not_void: Result /= Void
feature
set_default_processing (value: BOOLEAN)
WEL_RETURN_VALUE
ensure WEL_RETURN_VALUE
value_set: default_processing = value
set_message_return_value (value: POINTER)
WEL_RETURN_VALUE
ensure WEL_RETURN_VALUE
has_return_value: has_return_value
value_set: message_return_value = value
feature
on_bn_clicked
WEL_BUTTON
require WEL_BUTTON
exists: exists
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
is_registered: BOOLEAN
`window'
WEL_WINDOW
frozen register_current_window
`Current'
WEL_WINDOW
ensure WEL_WINDOW
registered: is_registered
invariant
ANY
reflexive_equality: standard_is_equal (Current)
reflexive_conformance: conforms_to (Current)
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 WEL_OWNER_DRAW_BUTTON