static void (*atclose)(Fl_Window *, void *);

static const char * const help = helpmsg + 13;

Help_Message : constant String;

static void (*idle)();

static int add_awake_handler_(Fl_Awake_Handler, void *);

procedure Add_Awake_Handler
       (Func : in Awake_Handler);

static void add_check(Fl_Timeout_Handler, void *=0);

procedure Add_Check
       (Func : in not null Timeout_Handler);

static void add_clipboard_notify(Fl_Clipboard_Notify_Handler h,
    void *data=0);

procedure Add_Clipboard_Notify
       (Func : in not null Clipboard_Notify_Handler);

static void add_fd(int fd, Fl_FD_Handler cb, void *=0);

procedure Add_File_Descriptor
       (FD   : in          File_Descriptor;
        Func : in not null File_Handler);

static void add_fd(int fd, int when, Fl_FD_Handler cb,
    void *=0);

procedure Add_File_Descriptor
       (FD   : in          File_Descriptor;
        Mode : in          File_Mode;
        Func : in not null File_Handler);

static void add_idle(Fl_Idle_Handler cb, void *data=0);

procedure Add_Idle
       (Func : in not null Idle_Handler);

static void add_timeout(double t, Fl_Timeout_Handler,
    void *=0);

procedure Add_Timeout
       (Seconds : in          Long_Float;
        Func    : in not null Timeout_Handler);

static int arg(int argc, char **argv, int &i);

function Parse_Arg
       (Index : in Positive)
    return Natural;

static int args(int argc, char **argv, int &i,
    Fl_Args_Handler cb=0);

procedure Parse_Args
       (Count :    out Natural;
        Func  : in     Args_Handler := null);

static void args(int argc, char **argv);

procedure Parse_Args;

static int awake(Fl_Awake_Handler cb, void *message=0);

procedure Awake
       (Func : in Awake_Handler);

static void awake(void *message=0);

procedure Awake;

static void background(uchar, uchar, uchar);

procedure Set_Background
       (R, G, B : in Color_Component);

static void background2(uchar, uchar, uchar);

procedure Set_Alt_Background
       (R, G, B : in Color_Component);

static Fl_Color box_color(Fl_Color);

function Get_Box_Color
       (Tone : in Color)
    return Color;

static int box_dh(Fl_Boxtype);

function Get_Box_Height_Offset
       (Kind : in Box_Kind)
    return Integer;

static int box_dw(Fl_Boxtype);

function Get_Box_Width_Offset
       (Kind : in Box_Kind)
    return Integer;

static int box_dx(Fl_Boxtype);

function Get_Box_X_Offset
       (Kind : in Box_Kind)
    return Integer;

static int box_dy(Fl_Boxtype);

function Get_Box_Y_Offset
       (Kind : in Box_Kind)
    return Integer;

static int clipboard_contains(const char *type);

function Clipboard_Contains
       (Kind : in String)
    return Boolean;

static void copy
   (const char *stuff, int len, int destination=0,
    const char *type=Fl::clipboard_plain_text);

procedure Copy
       (Text : in String;
        Dest : in Buffer_Kind);

static void default_atclose(Fl_Window *, void *);

procedure Default_Window_Close
       (Item : in out FLTK.Widgets.Widget'Class);

static void disable_im();

procedure Disable_System_Input;

static int dnd();

procedure Drag_Drop_Start;

static int dnd_text_ops();

function Get_Drag_Drop_Text_Support
    return Boolean;

static void dnd_text_ops(int v);

procedure Set_Drag_Drop_Text_Support
       (To : in Boolean);

static int draw_box_active();

function Draw_Box_Active
    return Boolean;

static void enable_im();

procedure Enable_System_Input;

static Fl_Window * first_window();

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

static void first_window(Fl_Window *);

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

static void foreground(uchar, uchar, uchar);

procedure Set_Foreground
       (R, G, B : in Color_Component);

static void free_color(Fl_Color i, int overlay=0);

procedure Free_Color
       (Value   : in Color;
        Overlay : in Boolean := False);

static int get_awake_handler_(Fl_Awake_Handler &, void *&);

function Get_Awake_Handler
    return Awake_Handler;

static Fl_Box_Draw_F * get_boxtype(Fl_Boxtype);

function Get_Box_Draw_Function
       (Kind : in Box_Kind)
    return Box_Draw_Function;

static unsigned get_color(Fl_Color i);

function Get_Color
       (From : in Color)
    return Color;

static void get_color(Fl_Color i,
    uchar &red, uchar &green, uchar &blue);

procedure Get_Color
       (From    : in     Color;
        R, G, B :    out Color_Component);

static const char * get_font(Fl_Font);

function Font_Image
       (Kind : in Font_Kind)
    return String;

static const char * get_font_name(Fl_Font,
    int *attributes=0);

function Font_Family_Image
       (Kind : in Font_Kind)
    return String;

static int get_font_sizes(Fl_Font, int *&sizep);

function Font_Sizes
       (Kind : in Font_Kind)
    return Font_Size_Array;

static void get_system_colors();

procedure System_Colors;

static int has_check(Fl_Timeout_Handler, void *=0);

function Has_Check
       (Func : in not null Timeout_Handler)
    return Boolean;

static int has_idle(Fl_Idle_Handler cb, void *data=0);

function Has_Idle
       (Func : in not null Idle_Handler)
    return Boolean;

static int has_timeout(Fl_Timeout_Handler, void *=0);

function Has_Timeout
       (Func : in not null Timeout_Handler)
    return Boolean;

static int is_scheme(const char *name);

function Is_Scheme
       (Scheme : in String)
    return Boolean;

static int lock();

procedure Lock;

static Fl_Window * modal();

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

static Fl_Window * next_window(const Fl_Window *);

function Get_Next_Window
       (From : in FLTK.Widgets.Groups.Windows.Window'Class)
    return access FLTK.Widgets.Groups.Windows.Window'Class;

static bool option(Fl_Option opt);

function Get_Option
       (Opt : in Option)
    return Boolean;

static void option(Fl_Option opt, bool val);

procedure Set_Option
       (Opt : in Option;
        To  : in Boolean);

static void own_colormap();

procedure Own_Colormap;

static void paste(Fl_Widget &receiver);

static void paste
   (Fl_Widget &receiver, int source,
    const char *type=Fl::clipboard_plain_text);

procedure Paste
       (Receiver : in FLTK.Widgets.Widget'Class;
        Source   : in Buffer_Kind);

static Fl_Widget * readqueue();

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

static int reload_scheme();

procedure Reload_Scheme;

static void remove_check(Fl_Timeout_Handler, void *=0);

procedure Remove_Check
       (Func : in not null Timeout_Handler);

static void remove_clipboard_notify
    (Fl_Clipboard_Notify_Handler h);

procedure Remove_Clipboard_Notify
       (Func : in not null Clipboard_Notify_Handler);

static void remove_fd(int);

procedure Remove_File_Descriptor
       (FD : in File_Descriptor);

static void remove_fd(int, int when);

procedure Remove_File_Descriptor
       (FD   : in File_Descriptor;
        Mode : in File_Mode);

static void remove_idle(Fl_Idle_Handler cb,
    void *data=0);

procedure Remove_Idle
       (Func : in not null Idle_Handler);

static void remove_timeout(Fl_Timeout_Handler,
    void *=0);

procedure Remove_Timeout
       (Func : in not null Timeout_Handler);

static repeat_timeout(double t, Fl_Timeout_Handler,
    void *=0);

procedure Repeat_Timeout
       (Seconds : in          Long_Float;
        Func    : in not null Timeout_Handler);

static const char * scheme();

function Get_Scheme
    return String;

static int scheme(const char *name);

procedure Set_Scheme
       (To : in String);

static int scrollbar_size();

function Get_Default_Scrollbar_Size
    return Natural;

static void scrollbar_size(int W);

procedure Set_Default_Scrollbar_Size
       (To : in Natural);

static void selection(Fl_Widget &owner, const char *,
    int len);

procedure Selection
       (Owner : in FLTK.Widgets.Widget'Class;
        Text  : in String);

static Fl_Widget * selection_owner();

static void selection_owner(Fl_Widget *);

static void set_abort(Fl_Abort_Handler f);

static void set_atclose(Fl_Atclose_Handler f);

static void set_box_color(Fl_Color);

procedure Set_Box_Color
       (Tone : in Color);

static void set_boxtype(Fl_Boxtype, Fl_Box_Draw_F *,
    uchar, uchar, uchar, uchar);

procedure Set_Box_Draw_Function
       (Kind               : in Box_Kind;
        Func               : in Box_Draw_Function;
        Offset_X, Offset_Y : in Byte_Integer := 0;
        Offset_W, Offset_H : in Byte_Integer := 0);

static void set_boxtype(Fl_Boxtype, Fl_Boxtype from);

procedure Set_Box_Kind
       (To, From : in Box_Kind);

static void set_color(Fl_Color i, unsigned c);

procedure Set_Color
       (Target, Source : in Color);

static void set_color(Fl_Color,
    uchar, uchar, uchar, uchar);

procedure Set_Color
       (Target  : in Color;
        R, G, B : in Color_Component);

static void set_font(Fl_Font, const char *);

procedure Set_Font_Kind
       (Target : in Font_Kind;
        Source : in String);

static void set_font(Fl_Font, Fl_Font);

procedure Set_Font_Kind
       (Target, Source : in Font_Kind);

static Fl_Font set_fonts(const char *=0);

procedure Setup_Fonts
       (How_Many_Set_Up : out Natural);

static void set_idle(Fl_Old_Idle_Handler cb);

static void set_labeltype(Fl_Labeltype, Fl_Label_Draw_F *,
    FL_Label_Measure_F *);

procedure Set_Label_Draw_Function
       (Kind         : in Label_Kind;
        Draw_Func    : in Label_Draw_Function;
        Measure_Func : in Label_Measure_Function);

static void set_labeltype(Fl_Labeltype, Fl_Labeltype from);

procedure Set_Label_Kind
       (Target, Source : in Label_Kind);

static void * thread_message();

static void unlock();

procedure Unlock;