INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "This class represents a Windows accelerator. ", "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_ACCELERATOR
inherit

WEL_STRUCTURE
rename
make as structure_make
end
creation

make,
make_by_pointer
feature {NONE}-- Initialization

make (a_key, a_command_id, a_flags: INTEGER)
-- Create a definition of an accelerator.
-- See class WEL_ACCELERATOR_FLAG_CONSTANTS
-- for `a_flags' values.
require
valid_command_id: a_command_id >= 0
ensure
key_set: key = a_key
command_id_set: command_id = a_command_id
flags_set: flags = a_flags
feature -- Access

key: INTEGER
-- Key of accelerator

flags: INTEGER
-- Flags of accelerator

command_id: INTEGER
-- Command id of accelerator
feature -- Element change

set_key (a_key: INTEGER)
-- Set `key' to `a_key'.
ensure
key_set: key = a_key

set_flags (a_flags: INTEGER)
-- Set `flags' to `a_flags'.
ensure
flags_set: flags = a_flags

set_command_id (a_command_id: INTEGER)
-- Set `command_id' to `a_command_id'.
require
valid_command_id: a_command_id >= 0
ensure
command_id_set: command_id = a_command_id
feature -- Measurement

structure_size: INTEGER
-- Size to allocate (in bytes)
invariant

valid_command_id: command_id >= 0
end -- class WEL_ACCELERATOR

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES