(**************************************************************************)
(*                   Cameleon                                             *)
(*                                                                        *)
(*      Copyright (C) 2002 Institut National de Recherche en Informatique et   *)
(*      en Automatique. All rights reserved.                              *)
(*                                                                        *)
(*      This program is free software; you can redistribute it and/or modify  *)
(*      it under the terms of the GNU General Public License as published by  *)
(*      the Free Software Foundation; either version 2 of the License, or  *)
(*      any later version.                                                *)
(*                                                                        *)
(*      This program is distributed in the hope that it will be useful,   *)
(*      but WITHOUT ANY WARRANTY; without even the implied warranty of    *)
(*      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the     *)
(*      GNU General Public License for more details.                      *)
(*                                                                        *)
(*      You should have received a copy of the GNU General Public License  *)
(*      along with this program; if not, write to the Free Software       *)
(*      Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA          *)
(*      02111-1307  USA                                                   *)
(*                                                                        *)
(*      Contact: Maxence.Guesdon@inria.fr                                *)
(**************************************************************************)

(** Some icons. *)

let icon_index = [|
"16 16 2 1";
"       c None";
".      c #000000";
"                ";
"                ";
"      ...       ";
"      ...       ";
"      ...       ";
"                ";
"      ...       ";
"      ...       ";
"      ...       ";
"      ...       ";
"      ...       ";
"      ...       ";
"     .....      ";
"     .....      ";
"                ";
"                "|]

let icon_nullable = [|
"16 16 2 1";
"       c None";
".      c #000000";
"                ";
"                ";
"           .    ";
"          .     ";
"     .....      ";
"    ..  ..      ";
"   ..  . ..     ";
"   .. .  ..     ";
"    ..  ..      ";
"    .....       ";
"   .            ";
"  .             ";
"                ";
"                ";
"                ";
"                "|]

let gdk_pix i =
  GDraw.pixmap_from_xpm_d ~data: i 
    ~colormap: (Gdk.Color.get_system_colormap ())
    () 
