static Fl_Widget_Tracker * key_release_tracker = 0;

Fl_Button(int X, int Y, int W, int H, const char *L=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String := "")
    return Button;

int clear();

Fl_Boxtype down_box() const;

function Get_Down_Box
       (This : in Button)
    return Box_Kind;

void down_box(Fl_Boxtype b);

procedure Set_Down_Box
       (This : in out Button;
        To   : in     Box_Kind);

Fl_Color down_color() const;

void down_color(unsigned c);

virtual int handle(int);

function Handle
       (This  : in out Button;
        Event : in     Event_Kind)
    return Event_Outcome;

int set();

void setonly();

procedure Set_Only
       (This : in out Button);

int shortcut() const;

function Get_Shortcut
       (This : in Button)
    return Shortcut_Key;

void shortcut(int s);

procedure Set_Shortcut
       (This : in out Button;
        Key  : in     Shortcut_Key);

void shortcut(const char *s);

int value(int v);

procedure Set_State
       (This : in out Button;
        St   : in     State);

char value() const;

function Get_State
       (This : in Button)
    return State;

static void key_release_timeout(void *);

virtual void draw();

procedure Draw
       (This : in out Button);

void simulate_key_action();

procedure Simulate_Key_Action
       (This : in out Button);