INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES

indexing

title: "standard dialogs"
project: "Visual Eiffel"
revision: "$Revision: 1.1 $"
copyright: "Copyright (C) 1996-2005 Object Tools Group"
license: "http://visual-eiffel.com/license"
cluster: grape
class COLOR_DIALOG
inherit

DIALOG
rename
init as dialog_init,
make as dialog_make
redefine
run
end

DIALOG
rename
make as dialog_make
redefine
init,
run
select
init
end
creation

make
feature

make

set_default_color (a_color: COLOR)
require
valid_color: a_color /= void

set_custom_colors (colors: ARRAY [COLOR])
feature

selected_color: COLOR

default_color: COLOR

custom_colors: ARRAY [COLOR]
end -- class COLOR_DIALOG

INDEX CLUSTER FEATURES SHORT FRAMES NO FRAMES