INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Contains message information about thread%'s message queue. ", "WEL: library of reusable components for Eiffel. ", "Based on WEL library for ISE Eiffel, used with permission. "
project: "Windows Eiffel Library"
copyright: "(c) 1986-1997 Interactive Software Engineering Inc. ", "Modifications and extensions: ", "(c) 1997 Object Tools ", "All rights reserved. Duplication and distribution prohibited", "May be used only with Visual Eiffel under terms of user ", "license "
cluster: wel
class WEL_MSG
inherit

WEL_STRUCTURE
end

WEL_PM_CONSTANTS
export
{NONE}
all
end

WEL_WM_CONSTANTS
export
{NONE}
all
end
creation

make
feature -- Access

hwnd: POINTER
-- Window which has received the message

message: INTEGER
-- Message identifier

wparam: INTEGER
-- Additional information about `message'

lparam: INTEGER
-- Additional information about `message'
feature -- Element change

set_hwnd (a_hwnd: POINTER)
-- Set `hwnd' with `a_hwnd'.
ensure
hwnd_set: hwnd = a_hwnd

set_message (a_message: INTEGER)
-- Set `message' with `a_message'.
ensure
message_set: message = a_message

set_wparam (a_wparam: INTEGER)
-- Set `wparam' with `a_wparam'.
ensure
wparam_set: wparam = a_wparam

set_lparam (a_lparam: INTEGER)
-- Set `lparam' with `a_lparam'.
ensure
lparam_set: lparam = a_lparam
feature -- Status report

last_boolean_result: BOOLEAN

dispatch_result: INTEGER

quit: BOOLEAN
-- Is `message' equal to `Wm_quit'?
feature -- Basic operations

get_all
-- Get all messages.

peek_all
-- Peek all messages.

dispatch
-- Dispatch the message to a window procedure

translate
-- Translate virtual-key messages
-- into character messages.

translate_accelerator (window: WEL_WINDOW; accelerators: WEL_ACCELERATORS)
-- Process accelerator keys for menu commands
require
window_not_void: window /= void
window_exists: window.exists
accelerators_not_void: accelerators /= void
accelerators_exists: accelerators.exists

translate_mdi_accelarator (window: WEL_WINDOW)
-- Process accelerator keys for system menu commands
-- of MDI interface child windows.
require
window_not_void: window /= void
window_exists: window.exists

wait
-- Wait for a message.

is_dialog_message (dialog: WEL_MODELESS_DIALOG)
-- Determines whether a message is intended for
-- `dialog' and, if it is, processes the message.
require
dialog_not_void: dialog /= void
dialog_exists: dialog.exists

process_dialog_message (dialog: POINTER)
-- Process a dialog message for `dialog'.
feature -- Measurement

structure_size: INTEGER
-- Size to allocate (in bytes)
end -- class WEL_MSG

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES