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)