Fl_Dial(int x, int y, int w, int h, const char *l=0);

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

short angle1() const;

function Get_First_Angle
       (This : in Dial)
    return Integer;

void angle1(short a);

procedure Set_First_Angle
       (This : in out Dial;
        To   : in     Integer);

short angle2() const;

function Get_Second_Angle
       (This : in Dial)
    return Integer;

void angle2(short a);

procedure Set_Second_Angle
       (This : in out Dial;
        To   : in     Integer);

void angles(short a, short b);

procedure Set_Angles
       (This     : in out Dial;
        One, Two : in     Integer);

int handle(int);

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

function Get_Dial_Type
       (This : in Dial)
    return Dial_Kind;

procedure Set_Dial_Type
       (This : in out Dial;
        To   : in     Dial_Kind);

void draw();

procedure Draw
       (This : in out Dial);

void draw(int X, int Y, int W, int H);

procedure Draw
       (This       : in out Dial;
        X, Y, W, H : in     Integer);

int handle(int event, int X, int Y, int W, int H);

function Handle
       (This       : in out Dial;
        Event      : in     Event_Kind;
        X, Y, W, H : in     Integer)
    return Event_Outcome;