Fl_Menu_Button(int, int, int, int, const char *=0);

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

void draw();

procedure Draw
       (This : in out Menu_Button);

int handle(int);

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

const Fl_Menu_Item * popup();

function Popup
       (This : in out Menu_Button)
    return FLTK.Menu_Items.Menu_Item;

procedure Set_Popup_Kind
       (This : in out Menu_Button;
        Pop  : in     Popup_Buttons);