    class
    	WEL_MOUSE_MESSAGE

    General
    	cluster: wel
    	description: "Information about messages Wm_mousemove, Wm_lbuttondown, Wm_mbuttondown, Wm_rbuttondown, Wm_lbuttonup, Wm_mbuttonup, Wm_rbuttonup, Wm_lbuttondblclk, Wm_mbuttondblclk, Wm_rbuttondblclk. Theses message are sent when the user clicks on the mouse."
    	create: make

    Ancestors
    	WEL_BIT_OPERATIONS
    	WEL_MESSAGE_INFORMATION
    	WEL_MK_CONSTANTS

    Queries
    	control_down: BOOLEAN
    	keys: INTEGER_32
    	l_param: POINTER
    	left_button_down: BOOLEAN
    	message: INTEGER_32
    	middle_button_down: BOOLEAN
    	right_button_down: BOOLEAN
    	shift_down: BOOLEAN
    	w_param: POINTER
    	window: WEL_WINDOW
    	x: INTEGER_32
    	y: INTEGER_32

    Commands
    	make (a_window: WEL_WINDOW; a_message: INTEGER_32; a_w_param, a_l_param: POINTER)