class WEL_COMMAND_MESSAGE General cluster: wel description: "Information about message Wm_command which is sent when the user selects a command item from a menu, when a control sends a notification message to its parent window, or when an accelerator keystroke is translated." create: make Ancestors WEL_MESSAGE_INFORMATION WEL_WINDOWS_ROUTINES Queries control: WEL_CONTROL from_accelerator: BOOLEAN from_control: BOOLEAN from_menu: BOOLEAN h_window: POINTER id: INTEGER_32 l_param: POINTER message: INTEGER_32 notify_code: INTEGER_32 w_param: POINTER window: WEL_WINDOW Commands make (a_window: WEL_WINDOW; a_message: INTEGER_32; a_w_param, a_l_param: POINTER)