INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "Standard dialog box to choose a color. ", "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_CHOOSE_COLOR_DIALOG
inherit

WEL_STANDARD_DIALOG
rename
make as standard_dialog_make
end

WEL_CHOOSE_COLOR_CONSTANTS
export
{NONE}
all
end

WEL_BIT_OPERATIONS
export
{NONE}
all
end
creation

make
feature {NONE}-- Initialization

make
-- Make and setup the structure
feature -- Access

rgb_result: WEL_COLOR_REF
-- Color selected by the user and default color
-- selected when the dialog box is created.
require
selected: selected
ensure
result_not_void: Result /= void

custom_colors: WEL_CUSTOM_COLORS

flags: INTEGER
-- Dialog box creation flags.
-- Can be a combination of the values defined in
-- class WEL_CHOOSE_COLOR_CONSTANTS.
feature -- Element change

set_flags (a_flags: INTEGER)
-- Set `flags' with `a_flags'.
-- See class WEL_CHOOSE_COLOR_CONSTANTS for `a_flags'
-- values.
ensure
flags_set: flags = a_flags

add_flag (a_flags: INTEGER)
-- Add `a_flags' to `flags'.
-- See class WEL_CHOOSE_COLOR_CONSTANTS for `a_flags'
-- values.
ensure
has_flag: has_flag (a_flags)

remove_flag (a_flags: INTEGER)
-- Remove `a_flags' from `flags'.
-- See class WEL_CHOOSE_COLOR_CONSTANTS for `a_flags'
-- values.
ensure
has_not_flag: not has_flag (a_flags)

set_rgb_result (color: WEL_COLOR_REF)
-- Set `rgb_result' with `color'
require
color_not_void: color /= void
ensure
color_set: rgb_result.is_equal (color)

set_custom_colors (a_custom_colors: WEL_CUSTOM_COLORS)
-- Set `custom_colors' with `a_custom_colors'.
require
a_custom_colors_not_void: a_custom_colors /= void
ensure
custom_colors_set: custom_colors = a_custom_colors
feature -- Status setting

prevent_full_open
-- Disable the define custom colors button,
-- preventing the user from creating custom colors.
ensure
full_open_prevented: not full_open_allowed

allow_full_open
-- Enable the define custom colors button,
-- allowing the user from creating custom colors.
ensure
full_open_allowed: full_open_allowed
feature -- Status report

has_flag (a_flags: INTEGER): BOOLEAN
-- Is `a_flags' set in `flags'?
-- See class WEL_CHOOSE_COLOR_CONSTANTS for `a_flags'
-- values.

full_open_allowed: BOOLEAN
-- Is the define custom colors button enabled?
-- This button allows the user to create custom colors.
feature -- Basic operations

activate (a_parent: WEL_COMPOSITE_WINDOW)
-- Activate the dialog box (modal mode) with
-- `a_parent' as owner.
feature -- Measurement

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

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES