static void (*Fl::error)(const char *, ...) = ::error;

static void (*Fl::fatal)(const char *, ...) = ::fatal;

const char * fl_cancel = "Cancel";

function Get_Cancel_String
    return String;

procedure Set_Cancel_String
       (Value : in String);

const char * fl_close = "Close";

function Get_Close_String
    return String;

procedure Set_Close_String
       (Value : in String);

const char * fl_no = "No";

function Get_No_String
    return String;

procedure Set_No_String
       (Value : in String);

const char * fl_ok = "OK";

function Get_OK_String
    return String;

procedure Set_OK_String
       (Value : in String);

const char * fl_yes = "Yes";

function Get_Yes_String
    return String;

procedure Set_Yes_String
       (Value : in String);

static void (*Fl::warning)(const char *, ...) = ::warning;

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 := Default_Beep);

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

function Choice
       (Message, Button1 : in String)
    return Choice_Result;

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

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

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

function Extended_Choice
       (Message, Button1 : in String)
    return Extended_Choice_Result;

function Extended_Choice
       (Message, Button1, Button2 : in String)
    return Extended_Choice_Result;

function Extended_Choice
       (Message, Button1, Button2, Button3 : in String)
    return Extended_Choice_Result;

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

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

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

procedure Set_File_Chooser_Callback
       (Func : in File_Chooser_Callback);

void fl_file_chooser_ok_label(const char *l);

procedure Set_File_Chooser_OK_String
       (Value : in String);

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_Message_Hotspot
       (To : in Boolean);

int fl_message_hotspot(void);

function Get_Message_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;