{ UNIT für einfachen OS2-Test + AutoRequester ect.

  FREEWARE (Quelle muß angegeben werden)

  in KickPascal 2.12 von Maxon Computer erstellt.

  © by PackMAN - Falk Zühlsdorff Lindenberg 66 98693 Ilmenau in '93  }

UNIT V37Test;

{$opt q}

INTERFACE

USES SUPPORTINTUITION;

FUNCTION  V37:boolean;
PROCEDURE ErrorReq(Tx,Tx2:string;Fenster:p_window);

IMPLEMENTATION

FUNCTION V37;
VAR  lib: p_library;                  {Wegen Fehler in V36 benutze  }
BEGIN                                 {ich nicht "IntuitionV36" aus }
 lib:=intuitionbase;                  {der SupportIntuition         }
 V37:=(lib^.lib_version>=37);
END;

PROCEDURE ErrorReq;
VAR AutoTx1,Autotx2 : IntuiText;
    Autohelp        : boolean;
BEGIN
 Autotx1:=IntuiText(2,0,0,20,10,nil,Tx,NIL);
 Autotx2:=IntuiText(2,0,0,2,3,nil,Tx2,NIL);
 Autohelp:=AutoRequest(Fenster,^AutoTx1,NIL,^Autotx2,0,0,330,80);
END;

BEGIN
 IF NOT V37 THEN
  BEGIN
   ErrorReq('Benötigt OS2 !','JA',NIL);
   halt(0);
  END;
END.