    class
    	WEL_MSG

    General
    	cluster: wel
    	description: "Contains message information about thread's message queue."
    	create: make

    Ancestors
    	WEL_PM_CONSTANTS
    	WEL_STRUCTURE*
    	WEL_WM_CONSTANTS

    Queries
    	dispatch_result: INTEGER_32
    	exists: BOOLEAN
    	hwnd: POINTER
    	is_equal (other: [like Current] WEL_MSG): BOOLEAN
    	item: POINTER
    	last_boolean_result: BOOLEAN
    	lparam: INTEGER_32
    	message: INTEGER_32
    	quit: BOOLEAN
    	shared: BOOLEAN
    	Structure_size: INTEGER_32
    	wparam: INTEGER_32

    Commands
    	copy (other: [like Current] WEL_MSG)
    	dispatch
    	dispose
    	get_all
    	initialize
    	initialize_with_character (a_character: CHARACTER_8)
    	is_dialog_message (dialog: WEL_MODELESS_DIALOG)
    	memory_copy (source_pointer: POINTER; length: INTEGER_32)
    	peek_all
    	peek_all_noremove
    	peek_paint_messages
    	process_dialog_message (dialog: POINTER)
    	set_hwnd (a_hwnd: POINTER)
    	set_item (an_item: POINTER)
    	set_lparam (a_lparam: INTEGER_32)
    	set_message (a_message: INTEGER_32)
    	set_shared
    	set_unshared
    	set_wparam (a_wparam: INTEGER_32)
    	translate
    	translate_accelerator (window: WEL_WINDOW; accelerators: WEL_ACCELERATORS)
    	translate_mdi_accelarator (window: WEL_WINDOW)
    	wait