    class
    	EV_INTERNAL_SILLY_WINDOW_IMP

    General
    	cluster: implementation_mswin
    	description:
    		"A silly window that doesn't do anything. Used as default parent.

    		Note: This window is actually used as a default parent
    		to avoid a Microsoft Windows Bug. Because, when
    		we change the parent of a tack-bar on windows NT
    		the parent for the events stays the first parent,
    		here, the default_parent. It needs then to handle
    		the events for its children. Once the bug is fixed
    		in windows, we can simply use a WEL_FRAME_WINDOW."
    	create: make_top, make_child

    Ancestors
    	WEL_FRAME_WINDOW
    	WEL_SB_CONSTANTS

    Queries
    	absolute_x: INTEGER_32
    	absolute_y: INTEGER_32
    	background_brush: WEL_BRUSH
    	captured_window: WEL_WINDOW
    	child_window_from_point (point: WEL_POINT): POINTER
    	children: LIST [WEL_WINDOW]
    	Class_background: WEL_BRUSH
    	Class_cursor: WEL_CURSOR
    	Class_icon: WEL_ICON
    	Class_menu_name: STRING_32
    	Class_name: STRING_32
    	Class_style: INTEGER_32
    	Class_window_procedure: POINTER
    	client_rect: WEL_RECT
    	closeable: BOOLEAN
    	command (message: INTEGER_32): WEL_COMMAND
    	command_argument (message: INTEGER_32): ANY
    	command_exists (message: INTEGER_32): BOOLEAN
    	commands: WEL_COMMAND_MANAGER
    	commands_enabled: BOOLEAN
    	Default_height: INTEGER_32
    	Default_id: INTEGER_32
    	default_processing: BOOLEAN
    	Default_width: INTEGER_32
    	Default_x: INTEGER_32
    	Default_y: INTEGER_32
    	enabled: BOOLEAN
    	ex_style: INTEGER_32
    	exists: BOOLEAN
    	focused_window: WEL_WINDOW
    	has_capture: BOOLEAN
    	has_focus: BOOLEAN
    	has_heavy_capture: BOOLEAN
    	has_horizontal_scroll_bar: BOOLEAN
    	has_menu: BOOLEAN
    	has_return_value: BOOLEAN
    	has_system_menu: BOOLEAN
    	has_system_window_locked: BOOLEAN
    	has_vertical_scroll_bar: BOOLEAN
    	heavy_capture_activated: BOOLEAN
    	height: INTEGER_32
    	horizontal_position: INTEGER_32
    	is_inside: BOOLEAN
    	is_registered: BOOLEAN
    	item: POINTER
    	maximal_height: INTEGER_32
    	maximal_horizontal_position: INTEGER_32
    	maximal_vertical_position: INTEGER_32
    	maximal_width: INTEGER_32
    	maximized: BOOLEAN
    	menu: WEL_MENU
    	message_return_value: POINTER
    	minimal_height: INTEGER_32
    	minimal_horizontal_position: INTEGER_32
    	minimal_vertical_position: INTEGER_32
    	minimal_width: INTEGER_32
    	minimized: BOOLEAN
    	parent: WEL_WINDOW
    	placement: WEL_WINDOW_PLACEMENT
    	scroller: WEL_SCROLLER
    	shared: BOOLEAN
    	shown: BOOLEAN
    	style: INTEGER_32
    	system_menu: WEL_MENU
    	text: STRING_32
    	text_length: INTEGER_32
    	valid_hwnd_constant (c: POINTER): BOOLEAN
    	vertical_position: INTEGER_32
    	width: INTEGER_32
    	window_captured: BOOLEAN
    	window_rect: WEL_RECT
    	x: INTEGER_32
    	y: INTEGER_32

    Commands
    	bring_to_top
    	destroy
    	disable
    	disable_commands
    	disable_default_processing
    	disable_drag_accept_files
    	disable_horizontal_scroll_bar
    	disable_redraw
    	disable_vertical_scroll_bar
    	draw_menu
    	enable
    	enable_commands
    	enable_default_processing
    	enable_drag_accept_files
    	enable_horizontal_scroll_bar
    	enable_redraw
    	enable_vertical_scroll_bar
    	hide
    	hide_horizontal_scroll_bar
    	hide_scroll_bars
    	hide_vertical_scroll_bar
    	horizontal_update (inc, position: INTEGER_32)
    	insert_after (a_window: WEL_WINDOW)
    	invalidate
    	invalidate_rect (rect: WEL_RECT; erase_background: BOOLEAN)
    	invalidate_region (region: WEL_REGION; erase_background: BOOLEAN)
    	invalidate_without_background
    	kill_timer (timer_id: INTEGER_32)
    	lock_window_update
    	maximize
    	minimize
    	move (a_x, a_y: INTEGER_32)
    	move_absolute (a_x, a_y: INTEGER_32)
    	move_and_resize (a_x, a_y, a_width, a_height: INTEGER_32; repaint: BOOLEAN)
    	put_command (a_command: WEL_COMMAND; message: INTEGER_32; argument: ANY)
    	register_current_window
    	release_capture
    	release_heavy_capture
    	remove_command (message: INTEGER_32)
    	resize (a_width, a_height: INTEGER_32)
    	restore
    	scroll (a_x, a_y: INTEGER_32)
    	set_capture
    	set_class_icon (new_icon: WEL_ICON)
    	set_class_small_icon (new_icon: WEL_ICON)
    	set_default_processing (value: BOOLEAN)
    	set_ex_style (an_ex_style: INTEGER_32)
    	set_focus
    	set_heavy_capture
    	set_height (a_height: INTEGER_32)
    	set_horizontal_position (position: INTEGER_32)
    	set_horizontal_range (minimum, maximum: INTEGER_32)
    	set_icon (a_small_icon, a_big_icon: WEL_ICON)
    	set_item (an_item: POINTER)
    	set_menu (a_menu: WEL_MENU)
    	set_message_return_value (value: POINTER)
    	set_parent (a_parent: WEL_WINDOW)
    	set_placement (a_placement: WEL_WINDOW_PLACEMENT)
    	set_shared
    	set_style (a_style: INTEGER_32)
    	set_text (a_text: STRING_GENERAL)
    	set_timer (timer_id, time_out: INTEGER_32)
    	set_unshared
    	set_vertical_position (position: INTEGER_32)
    	set_vertical_range (minimum, maximum: INTEGER_32)
    	set_width (a_width: INTEGER_32)
    	set_x (a_x: INTEGER_32)
    	set_y (a_y: INTEGER_32)
    	set_z_order (z_order: POINTER)
    	show
    	show_horizontal_scroll_bar
    	show_scroll_bars
    	show_vertical_scroll_bar
    	show_with_option (cmd_show: INTEGER_32)
    	unlock_window_update
    	unset_menu
    	update
    	update_cached_style (new_ex_style, old_ex_style: INTEGER_32)
    	validate
    	validate_rect (rect: WEL_RECT)
    	validate_region (region: WEL_REGION)
    	vertical_update (inc, position: INTEGER_32)
    	win_help (help_file: STRING_GENERAL; a_command, data: INTEGER_32)