INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Defines the attributes of a palette. ", "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_LOG_PALETTE
inherit

WEL_STRUCTURE
rename
make as structure_make
end
creation

make,
make_by_pointer
feature {NONE}-- Initialization

make (a_version, a_num_entries: INTEGER)
-- Make a logical palette version `a_version'
-- with `a_num_entries' entries
ensure
version_set: version = a_version
num_entries_set: num_entries = a_num_entries
feature -- Access

version: INTEGER
-- Windows version number for the structure
-- Must be 768 for Windows 3.0 and later

num_entries: INTEGER
-- Number of palette color entries

pal_entry (index: INTEGER): WEL_PALETTE_ENTRY
-- Palette entry at `index'
require
index_inf: index >= 0
index_sup: index < num_entries
ensure
result_not_void: Result /= void
feature -- Element change

set_version (a_version: INTEGER)
-- Set `version' with `a_version'
ensure
version_set: version = a_version

set_num_entries (a_num_entries: INTEGER)
-- Set `num_entries' with `a_num_entries'
ensure
num_entries_set: num_entries = a_num_entries

set_pal_entry (index: INTEGER; a_pal_entry: WEL_PALETTE_ENTRY)
-- Set `a_pal_entry' at `index'
require
a_pal_entry_not_void: a_pal_entry /= void
feature -- Measurement

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

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES