{ ************************************************************************** }
{ VIEWTEST.PAS                   Version 1.0                     (c) Mr Vain }
{                                27.12.                                      }
{                                                                            }
{ Testprogramm fuer die Funktionen der ObjDOS-Unit Version 3.0               }
{ ************************************************************************** }
PROGRAM VIEWTEST;

USES CRT, OBJDOS, OBJIO;

VAR
  bQuit   : BOOLEAN;
  cKey    : CHAR;
  View1   : PView;

BEGIN
  TEXTMODE(3);  TEXTATTR:=7;  CLRSCR;
  bQuit:=FALSE;
  Maus:=NEW(PMaus,Init);

  View1:=NEW(PView,Init(20,10,40,6,1,14,'Å'));

  Maus^.SwOff;
  View1^.Draw;
  UpdateScreen;
  Maus^.SwOn;

  WHILE NOT(bQuit) DO BEGIN

    IF KeyPressed THEN cKey:=READKEY ELSE cKey:=#0;
    Maus^.GetData;
    GOTOXY(1,1);   WRITE('ObjectDOS 3.0 - TView Objekt Test - <Esc> to abort...');
    GOTOXY(1,2);   WRITE('Mauscursor [X:Y] ',Maus^.GetPosX:2,':',Maus^.GetPosY:2);
    GOTOXY(1,3);   WRITE('Taste Links?     ',Maus^.GetKeyLeft:5);
    GOTOXY(1,4);   WRITE('Taste Rechts?    ',Maus^.GetKeyRight:5);

    CASE cKey of #27: bQuit:=TRUE;

    END;  (* CASE ch *)

  END;  (* WHILE NOT(bQuit) *)

  DISPOSE(View1,Done);

  DISPOSE(Maus,Done);

END.