DEFINITION MODULE Test;

(* Erstellt mit GadEd V1.10 *)
(* Geschrieben von Michael Neumann und Thomas Patschinski *)

FROM ExecD      IMPORT List;
FROM IntuitionD IMPORT WindowPtr,GadgetPtr,ScreenPtr,MenuPtr;
FROM UtilityD   IMPORT tagUser,TagItemPtr;

CONST

      (* Proc000-Requester *)
      (* Gadget Lables *)

      Proc000GadEdGadget000              = 0;
      Proc000GadEdGadget001              = 1;
      Proc000GadEdGadget002              = 2;
      Proc000GadEdGadget003              = 3;
      Proc000GadEdGadget004              = 4;
      Proc000GadEdGadget005              = 5;
      Proc000GadEdGadget006              = 6;
      Proc000GadEdGadget007              = 7;
      Proc000GadEdGadget008              = 8;
      Proc000GadEdGadget009              = 9;
      Proc000GadEdGadget010              = 10;
      Proc000GadEdGadget011              = 11;
      Proc000GadEdGadget012              = 12;
      Proc000GadEdGadget013              = 13;
      Proc000GadEdGadget014              = 14;
      Proc000GadEdGadget015              = 15;
      Proc000GadEdGadget016              = 16;
      Proc000GadEdGadget017              = 17;
      Proc000GadEdGadget018              = 18;
      Proc000GadEdGadget019              = 19;
      Proc000GadEdGadget020              = 20;
      Proc000GadEdGadget021              = 21;
      Proc000GadEdGadget022              = 22;
      Proc000GadEdGadget023              = 23;
      Proc000GadEdGadget024              = 24;
      Proc000GadEdGadget025              = 25;
      Proc000GadEdGadget026              = 26;
      Proc000GadEdGadget027              = 27;

      (* Menü Lables *)

      Proc000GadEdTitel000               = 0;
      Proc000GadEdItem000                = 0;
      Proc000GadEdItem001                = 2;
      Proc000GadEdItem002                = 3;
      Proc000GadEdItem003                = 5;
      Proc000GadEdTitel001               = 1;
      Proc000GadEdItem004                = 0;
      Proc000GadEdItem005                = 1;
      Proc000GadEdItem006                = 2;
      Proc000GadEdTitel002               = 2;
      Proc000GadEdItem007                = 0;
      Proc000GadEdSub000                 = 0;
      Proc000GadEdSub001                 = 2;
      Proc000GadEdItem008                = 1;
      Proc000GadEdItem009                = 2;
      Proc000GadEdItem010                = 3;
      Proc000GadEdItem011                = 5;
      Proc000GadEdItem012                = 6;
      Proc000GadEdTitel003               = 3;
      Proc000GadEdItem013                = 0;
      Proc000GadEdItem014                = 1;
      Proc000GadEdItem015                = 3;
      Proc000GadEdSub002                 = 0;
      Proc000GadEdSub003                 = 1;

VAR
    ListViewList0:          ARRAY [0..1] OF List;

    Menu0:                  MenuPtr;

PROCEDURE InitTest(S: ScreenPtr;UserTags:TagItemPtr): BOOLEAN;


PROCEDURE RefreshProc000;
PROCEDURE InitProc000Mask(UserTags:TagItemPtr): WindowPtr;
PROCEDURE GetProc000GPtr(Nummer:INTEGER): GadgetPtr;
PROCEDURE CloseProc000Mask;


PROCEDURE FreeTest;

END Test.