void fl_alert(const char *fmt,...);

procedure Alert
       (Message : String);

int fl_ask(const char *fmt,...);

void fl_beep(int type);

procedure Beep
       (Kind : in Beep_Kind);

int fl_choice(const char *fmt, const char *b0, const char *b1, const char *b2,...);

function Three_Way_Choice
       (Message, Button1, Button2, Button3 : in String)
    return Choice;

int fl_color_chooser(const char *name, double &r, double &g, double &b, int cmode);

function Color_Chooser
       (Title   : in     String;
        R, G, B : in out RGB_Float;
        Mode    : in     FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
            FLTK.Widgets.Groups.Color_Choosers.RGB)
    return Boolean;

int fl_color_chooser(const char *name, uchar &r, uchar &g, uchar &b, int cmode);

function Color_Chooser
       (Title   : in     String;
        R, G, B : in out RGB_Int;
        Mode    : in     FLTK.Widgets.Groups.Color_Choosers.Color_Mode :=
            FLTK.Widgets.Groups.Color_Choosers.RGB)
    return Boolean;

char * fl_dir_chooser(const char *message, const char *fname, int relative);

function Dir_Chooser
       (Message, Default : in String;
        Relative         : in Boolean := False)
    return String;

char * fl_file_chooser(const char *message, const char *pat, const char *fname, int relative);

function File_Chooser
       (Message, Filter_Pattern, Default : in String;
        Relative                         : in Boolean := False)
    return String;

void fl_file_chooser_callback(void(*cb)(const char *));

void fl_file_chooser_ok_label(const char *l);

const char * fl_input(const char *fmt, const char *defstr,...);

function Text_Input
       (Message : in String;
        Default : in String := "")
    return String;

void fl_message(const char *fmt,...);

procedure Message_Box
       (Message : in String);

void fl_message_font(Fl_Font f, Fl_Fontsize s);

procedure Set_Message_Font
       (Font : in Font_Kind;
        Size : in Font_Size);

void fl_message_hotspot(int enable);

procedure Set_Hotspot
       (To : in Boolean);

int fl_message_hotspot(void);

function Get_Hotspot
    return Boolean;

Fl_Widget * fl_message_icon();

function Get_Message_Icon
    return FLTK.Widgets.Boxes.Box_Reference;

void fl_message_title(const char *title);

procedure Set_Message_Title
       (To : in String);

void fl_message_title_default(const char *title);

procedure Set_Message_Title_Default
       (To : in String);

const char * fl_password(const char *fmt, const char *defstr,...);

function Password
       (Message : in String;
        Default : in String := "")
    return String;