int alloc_array;

const uchar * array;

Fl_Bitmap(const uchar *bits, int W, int H);

Fl_Bitmap(const char *bits, int W, int H);

function Create
       (Data          : in Color_Component_Array;
        Width, Height : in Natural)
    return Bitmap;

virtual Fl_Image * copy(int W, int H);

function Copy
       (This          : in Bitmap;
        Width, Height : in Natural)
    return Bitmap'Class;

Fl_Image * copy();

function Copy
       (This : in Bitmap)
    return Bitmap'Class;

virtual void draw(int X, int Y, int W, int H,
    int cx=0, int cy=0);

procedure Draw
       (This       : in Bitmap;
        X, Y, W, H : in Integer;
        CX, CY     : in Integer := 0);

void draw(int X, int Y);

procedure Draw
       (This : in Bitmap;
        X, Y : in Integer);

virtual void label(Fl_Widget *w);

virtual void label(Fl_Menu_Item *m);

virtual void uncache();

procedure Uncache
       (This : in out Bitmap);