(*(***********************************************************************

:Program.    ReqTest.mod
:Contents.   test for FindChange and GTWindowHandle
:Author.     Hartmut Goebel [hG]
:Address.    Aufseßplatz 5, D-8500 Nürnberg 40
:Address.    UseNet: hartmut@oberon.nbg.sub.org
:Address.    Z-Netz: hartmut@asn.zer   Fido: 2:246/81.1
:Copyright.  Copyright © 1992,1993 by Hartmut Goebel
:Copyright.  for further information see PortHandle.doc
:Language.   Oberon-2
:Translator. Amiga Oberon V3.0
:History.    V1.0, 30 Dec 1992 [hG]

:Version.    $VER: ReqTest.mod 1.4 (10.1.93)

(* $StackChk- $NilChk- $RangeChk- $CaseChk- $OvflChk- $ReturnChk- $ClearVars- *)
***********************************************************************)*)

MODULE ReqTest;

IMPORT
  Exec, GadTools, Utility,
  fc := FindChange,
  gui:= ReqTestGUI,
  req:= Requests;

VAR
  fcreq: fc.FindChangePtr;

BEGIN
  req.Assert(Exec.exec.libNode.version >= 36, "ReqTest needs AmigaOS 2.0 (V36) or higher");
  req.Assert(GadTools.base # NIL, "Can't open gadtools.library");
  req.Assert(Utility.base # NIL, "Can't open utility.library");

  NEW(fcreq);
  IF gui.SetupScreen() = 0 THEN
    IF gui.OpenProject2Window() = 0 THEN
      (* our defaults *)
      fcreq.flags := LONGSET{fc.backward,fc.wholeWords};

      IF fc.Init(fcreq) THEN (* open fc-req  *)
        fcreq.Handle();      (* proceed it   *)
        fcreq.Uninit();      (* close fc-req *)
      END;

      (* another call to see if the results are remembered correctly *)
      IF fc.Init(fcreq) THEN
        fcreq.Handle();
        fcreq.Uninit();
      END;
      gui.CloseProject2Window();
    END;
    gui.CloseDownScreen;
  END;

END ReqTest.