function Create
       (Value    : in     String;
        Font     : in     Font_Kind               := Helvetica;
        Size     : in     Font_Size               := Normal_Size;
        Hue      : in     Color                   := Foreground_Color;
        Kind     : in     Label_Kind              := Normal_Label;
        Place    : in     Alignment               := Align_Center;
        Active   : access FLTK.Images.Image'Class := null;
        Inactive : access FLTK.Images.Image'Class := null)
    return Label;

Fl_Align align_;

function Get_Alignment
       (This : in Label)
    return Alignment;

procedure Set_Alignment
       (This  : in out Label;
        Place : in     Alignment);

Fl_Color color;

function Get_Color
       (This : in Label)
    return Color;

procedure Set_Color
       (This : in out Label;
        Hue  : in     Color);

Fl_Image * deimage;

function Get_Inactive
       (This : in Label)
    return access FLTK.Images.Image'Class;

procedure Set_Inactive
       (This : in out Label;
        Pic  : access FLTK.Images.Image'Class);

void draw(int, int, int, int, Fl_Align);

procedure Draw
       (This       : in out Label;
        X, Y, W, H : in     Integer;
        Place      : in     Alignment);

Fl_Font font;

function Get_Font
       (This : in Label)
    return Font_Kind;

procedure Set_Font
       (This : in out Label;
        Font : in     Font_Kind);

Fl_Image * image;

function Get_Active
       (This : in Label)
    return access FLTK.Images.Image'Class;

procedure Set_Active
       (This : in out Label;
        Pic  : access FLTK.Images.Image'Class);

void measure(int, &w, int &h) const;

procedure Measure
       (This : in     Label;
        W, H :    out Integer);

Fl_Fontsize size;

function Get_Size
       (This : in Label)
    return Font_Size;

procedure Set_Size
       (This : in out Label;
        Size : in     Font_Size);

uchar type;

function Get_Kind
       (This : in Label)
    return Label_Kind;

procedure Set_Kind
       (This : in out Label;
        Kind : in     Label_Kind);

const char * value;

function Get_Value
       (This : in Label)
    return String;

procedure Set_Value
       (This : in out Label;
        Text : in     String);