package Themes.Palette is
-- This is the Tango color theme
-- http://tango.freedesktop.org/
--
-- Adobe Kuler
-- http://kuler.adobe.com/
type Base_Color is (
Black, White,
Transparent, Magenta,
Butter1, Butter2, Butter3,
Orange1, Orange2, Orange3,
Chocolate1, Chocolate2, Chocolate3,
Chameleon1, Chameleon2, Chameleon3,
Skyblue1, Skyblue2, Skyblue3,
Plum1, Plum2, Plum3,
Scarlet1, Scarlet2, Scarlet3,
Chrome1, Chrome2, Chrome3,
Chrome4, Chrome5, Chrome6
);
type Base_Colors_Array is array(Base_Color) of Color_Type;
-- Initialize must be called before base_colors can be used.
base_colors : Base_Colors_Array;
----------------------------------------------------------------------------
-- Initializes the base_colors array. This can't be called until the Allegro
-- color depth has been set.
procedure Initialize;
end Themes.Palette;