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

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

int soft() const;

function Is_Soft
       (This : in Adjuster)
    return Boolean;

void soft(int s);

procedure Set_Soft
       (This : in out Adjuster;
        To   : in     Boolean);

void draw();

procedure Draw
       (This : in out Adjuster);

int handle(int);

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

void value_damage();

procedure Value_Damage
       (This : in out Adjuster);