static char const * const clipboard_image = "image";

static char const * const clipboard_plain_text = "text/plain";

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

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

procedure Add_Clipboard_Notify
       (Func : in 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 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 File_Handler);

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

procedure Add_Idle
       (Func : in Idle_Handler);

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

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

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

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

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

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 void do_widget_deletion();

procedure Do_Widget_Deletion;

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

static unsigned get_color(Fl_Color i);

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 Timeout_Handler)
    return Boolean;

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

function Has_Idle
       (Func : in Idle_Handler)
    return Boolean;

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

function Has_Timeout
       (Func : in Timeout_Handler)
    return Boolean;

static int is_scheme(const char *name);

function Is_Scheme
       (Scheme : in String)
    return Boolean;

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

static void remove_clipboard_notify
    (Fl_Clipboard_Notify_Handler h);

procedure Remove_Clipboard_Notify
       (Func : in 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 Idle_Handler);

static void remove_system_handler(Fl_System_Handler h);

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

procedure Remove_Timeout
       (Func : in Timeout_Handler);

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

procedure Repeat_Timeout
       (Seconds : in Long_Float;
        Func    : in 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_box_color(Fl_Color);

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

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

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

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

static void set_font(Fl_Font, const char *);

static void set_font(Fl_Font, Fl_Font);

procedure Set_Font_Kind
       (To, From : in Font_Kind);

static Fl_Font set_fonts(const char *=0);

procedure Setup_Fonts
       (How_Many_Set_Up : out Natural);

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

static void set_labeltype(Fl_Labeltype, Fl_Labeltype from);

static int visible_focus();

function Has_Visible_Focus
    return Boolean;

static void visible_focus(int v);

procedure Set_Visible_Focus
       (To : in Boolean);