Extended or New TurboVision Objects

Q. 402 How can I create a password inputline?

     type
       PPasswordInputLine = ^TPasswordInputLine;
       TPasswordInputLine = object(TInputLine)
         procedure Draw;  virtual;
       end;

     procedure TPasswordInputLine.Draw;
     var
       s : string;
       i : integer;
     begin
       s := Data^;
       for i := 1 to length(s) do  Data^[i] := '*';
       inherited Draw;
       Data^ := s;
     end;