Fl_Single_Window(int W, int H, const char *L=0);

function Create
       (W, H : in Integer)
    return Single_Window;

Fl_Single_Window(int X, int Y, int W, int H, const char *L=0);

function Create
       (X, Y, W, H : in Integer;
        Text       : in String)
    return Single_Window;

procedure Draw
       (This : in out Single_Window);

void flush();

procedure Flush
       (This : in out Single_Window);

function Handle
       (This  : in out Single_Window;
        Event : in     Event_Kind)
    return Event_Outcome;

int make_current();

void show();

procedure Show
       (This : in out Single_Window);

void show(int a, char **b);