static void add_handler(Fl_Event_Handler h);

procedure Add_Handler
       (Func : in not null Event_Handler);

static void add_system_handler(Fl_System_Handler h,
    void *data);

procedure Add_System_Handler
       (Func : in not null System_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_button4();

function Mouse_Back
    return Boolean;

static int event_button5();

function Mouse_Forward
    return Boolean;

static int event_buttons();

procedure Mouse_Buttons
       (Left, Middle, Right, Back, Forward : out Boolean);

static int event_clicks();

function Is_Multi_Click
    return Boolean;

function Get_Clicks
    return Natural;

static void event_clicks(int i);

procedure Set_Clicks
       (To : in Natural);

static void * event_clipboard();

function Clipboard_Text
    return String;

static const char * event_clipboard_type();

function Clipboard_Kind
    return String;

static int event_command();

function Key_Command
    return Boolean;

static int event_ctrl();

function Key_Ctrl
    return Boolean;

static Fl_Event_Dispatch event_dispatch();

function Get_Dispatch
    return Event_Dispatch;

static void event_dispatch(Fl_Event_Dispatch d);

procedure Set_Dispatch
       (Func : in Event_Dispatch);

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 *);

function Is_Inside
       (Child : in FLTK.Widgets.Widget'Class)
    return Boolean;

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);

procedure Clear_Click;

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 int handle(int, Fl_Window *);

function Handle_Dispatch
       (Event  : in     Event_Kind;
        Origin : in out FLTK.Widgets.Groups.Windows.Window'Class)
    return Event_Outcome;

static int handle_(int, Fl_Window *);

function Handle
       (Event  : in     Event_Kind;
        Origin : in out FLTK.Widgets.Groups.Windows.Window'Class)
    return Event_Outcome;

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 not null Event_Handler);

static void remove_system_handler(Fl_System_Handler h);

procedure Remove_System_Handler
       (Func : in not null System_Handler);

static int test_shortcut(Fl_Shortcut);

function Test_Shortcut
       (Shortcut : in Key_Combo)
    return Boolean;

static int visible_focus();

function Has_Visible_Focus
    return Boolean;

static void visible_focus(int v);

procedure Set_Visible_Focus
       (To : in Boolean);