static void add_handler(Fl_Event_Handler h);

procedure Add_Handler
       (Func : in Event_Handler);

static Fl_Widget * belowmouse();

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

static void belowmouse(Fl_Widget *);

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

static int compose(int &del);

function Compose
       (Del : out Natural)
    return Boolean;

static void compose_reset();

procedure Compose_Reset;

static int event();

function Last
    return Event_Kind;

static int event_alt();

function Key_Alt
    return Boolean;

static int event_button();

function Last_Button
    return Mouse_Button;

static int event_button1();

function Mouse_Left
    return Boolean;

static int event_button2();

function Mouse_Middle
    return Boolean;

static int event_button3();

function Mouse_Right
    return Boolean;

static int event_buttons();

static int event_clicks();

function Is_Multi_Click
    return Boolean;

static void event_clicks(int i);

procedure Set_Clicks
       (To : in Natural);

static void * event_clipboard();

static const char * event_clipboard_type();

static int event_command();

function Key_Command
    return Boolean;

static int event_ctrl();

function Key_Ctrl
    return Boolean;

static Fl_Event_Dispatch event_dispatch();

static void event_dispatch(Fl_Event_Dispatch d);

static int event_dx();

function Mouse_DX
    return Integer;

static int event_dy();

function Mouse_DY
    return Integer;

static int event_inside(const Fl_Widget *);

static int event_inside(int, int, int, int);

function Is_Inside
       (X, Y, W, H : in Integer)
    return Boolean;

static int event_is_click();

function Is_Click
    return Boolean;

static void event_is_click(int i);

static int event_key();

function Last_Key
    return Keypress;

static int event_key(int key);

function Pressed_During
       (Key : in Keypress)
    return Boolean;

static int event_length();

function Text_Length
    return Natural;

static int event_original_key();

function Original_Last_Key
    return Keypress;

static int event_shift();

function Key_Shift
    return Boolean;

static int event_state();

function Last_Modifier
    return Modifier;

static int event_state(int mask);

function Last_Modifier
       (Had : in Modifier)
    return Boolean;

static const char * event_text();

function Text
    return String;

static int event_x();

function Mouse_X
    return Integer;

static int event_x_root();

function Mouse_X_Root
    return Integer;

static int event_y();

function Mouse_Y
    return Integer;

static int event_y_root();

function Mouse_Y_Root
    return Integer;

static Fl_Widget * focus();

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

static void focus(Fl_Widget *);

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

static int get_key(int key);

function Key_Now
       (Key : in Keypress)
    return Boolean;

static void get_mouse(int &, int &);

procedure Get_Mouse
       (X, Y : out Integer);

static Fl_Window * grab();

function Get_Grab
    return access FLTK.Widgets.Groups.Windows.Window'Class;

static void grab(Fl_Window *);

static void grab(Fl_Window &win);

procedure Set_Grab
       (To : in FLTK.Widgets.Groups.Windows.Window'Class);

static Fl_Widget * pushed();

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

static void pushed(Fl_Widget *);

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

static void release();

procedure Release_Grab;

static void remove_handler(Fl_Event_Handler h);

procedure Remove_Handler
       (Func : in Event_Handler);

static int test_shortcut(Fl_Shortcut);