    class
    	WEL_MSG_BOX

    General
    	cluster: wel
    	description: "Interface on the MessageBox function."
    	create: make

    Ancestors
    	WEL_BIT_OPERATIONS
    	WEL_LANGUAGE_CONSTANTS
    	WEL_MB_CONSTANTS

    Queries
    	basic_msg_box (a_style: INTEGER_32): BOOLEAN
    	clear_flag (flags, mask: INTEGER_32): INTEGER_32
    	flag_set (flags, mask: INTEGER_32): BOOLEAN
    	language: INTEGER_32
    	message_box_result: INTEGER_32
    	set_flag (flags, mask: INTEGER_32): INTEGER_32
    	sublanguage: INTEGER_32

    Commands
    	basic_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL; a_style: INTEGER_32)
    	error_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL)
    	information_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL)
    	make
    	question_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL)
    	set_language (a_language_id, a_sublanguage_id: INTEGER_32)
    	user_icon_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL; a_style, an_id: INTEGER_32)
    	warning_message_box (a_window: WEL_WINDOW; a_text, a_title: STRING_GENERAL)