Fl_Wizard(int, int, int, int, const char *=0);

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

procedure Draw
       (This : in out Wizard);

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

void next();

procedure Next
       (This : in out Wizard);

void prev();

procedure Prev
       (This : in out Wizard);

Fl_Widget * value();

function Get_Visible
       (This : in Wizard)
    return access Widget'Class;

void value(Fl_Widget *);

procedure Set_Visible
       (This : in out Wizard;
        Item : in out Widget'Class);