1. package Themes.Palette is 
  2.  
  3.     -- This is the Tango color theme 
  4.     -- http://tango.freedesktop.org/ 
  5.     -- 
  6.     -- Adobe Kuler 
  7.     -- http://kuler.adobe.com/ 
  8.  
  9.     type Base_Color is ( 
  10.         Black,       White, 
  11.         Transparent, Magenta, 
  12.  
  13.         Butter1,     Butter2,    Butter3, 
  14.         Orange1,     Orange2,    Orange3, 
  15.         Chocolate1,  Chocolate2, Chocolate3, 
  16.         Chameleon1,  Chameleon2, Chameleon3, 
  17.         Skyblue1,    Skyblue2,   Skyblue3, 
  18.         Plum1,       Plum2,      Plum3, 
  19.         Scarlet1,    Scarlet2,   Scarlet3, 
  20.         Chrome1,     Chrome2,    Chrome3, 
  21.         Chrome4,     Chrome5,    Chrome6 
  22.     ); 
  23.  
  24.     type Base_Colors_Array is array(Base_Color) of Color_Type; 
  25.  
  26.     -- Initialize must be called before base_colors can be used. 
  27.     base_colors : Base_Colors_Array; 
  28.  
  29.     ---------------------------------------------------------------------------- 
  30.  
  31.     -- Initializes the base_colors array. This can't be called until the Allegro 
  32.     -- color depth has been set. 
  33.     procedure Initialize; 
  34.  
  35. end Themes.Palette;