static Fl_Color color();

function Get_Background_Color
    return Color;

static void color(Fl_Color c);

procedure Set_Background_Color
       (To : in Color);

static Fl_Widget * current();

function Get_Target
    return access FLTK.Widgets.Widget'Class;

static void current(Fl_Widget *);

procedure Set_Target
       (To : in FLTK.Widgets.Widget'Class);

static float delay();

function Get_Delay
    return Float;

static void delay(float f);

procedure Set_Delay
       (To : in Float);

static void disable();

static void enable(int b=1);

procedure Set_Enabled
       (To : in Boolean);

static int enabled();

function Is_Enabled
    return Boolean;

static void enter_area(Fl_Widget *w, int X, int Y, int W, int H, const char *tip);

procedure Enter_Area
       (Item       : in FLTK.Widgets.Widget'Class;
        X, Y, W, H : in Integer;
        Tip        : in String);

static Fl_Font font();

function Get_Text_Font
    return Font_Kind;

static void font(Fl_Font i);

procedure Set_Text_Font
       (To : in Font_Kind);

static float hoverdelay();

function Get_Hover_Delay
    return Float;

static void hoverdelay(float f);

procedure Set_Hover_Delay
       (To : in Float);

static int margin_height();

function Get_Margin_Height
    return Natural;

static void margin_height(int v);

static int margin_width();

function Get_Margin_Width
    return Natural;

static void margin_width(int v);

static Fl_Fontsize size();

function Get_Text_Size
    return Font_Size;

static void size(Fl_Fontsize s);

procedure Set_Text_Size
       (To : in Font_Size);

static Fl_Color textcolor();

function Get_Text_Color
    return Color;

static void textcolor(Fl_Color c);

procedure Set_Text_Color
       (To : in Color);

static int wrap_width();

function Get_Wrap_Width
    return Natural;

static void wrap_width(int v);