home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / gaded20demo.lha / Oberon / TestMain.mod < prev   
Encoding:
Text File  |  1993-11-11  |  1.2 KB  |  53 lines
  1. MODULE TestMain;
  2.  
  3. IMPORT s  := SYSTEM,
  4.        in := Intuition,
  5.        e  := Exec,
  6.        gt := GadTools,
  7.        g  := Graphics,
  8.        u  := Utility,
  9.              Test;
  10.  
  11. VAR Pens       : LONGINT;
  12.     S          : in.ScreenPtr;
  13.     W          : in.WindowPtr;
  14.     Class      : LONGSET;
  15.     Code       : INTEGER;
  16.     TempGadget : in.GadgetPtr;
  17.     ID         : INTEGER;
  18.     OK         : BOOLEAN;
  19.     Message    : in.IntuiMessagePtr;
  20.  
  21. TYPE STagsType = ARRAY 3 OF u.Tag;
  22. CONST STags = STagsType(in.saTitle,s.ADR("Screen-Test"),u.done);
  23.  
  24. TYPE WTagsType = ARRAY 3 OF u.Tag;
  25. CONST WTags = WTagsType(in.waTitle,s.ADR("Window-Test"),u.done);
  26.  
  27.  
  28. BEGIN
  29.   S:=in.LockPubScreen("Workbench");
  30.   IF Test.InitTest(S,STags) THEN
  31.      W:=Test.InitProc00Mask(WTags);
  32.      IF W#NIL THEN
  33.         LOOP
  34.            REPEAT
  35.               e.WaitPort(W.userPort);
  36.               Message:=gt.GetIMsg(W.userPort);
  37.            UNTIL Message#NIL;
  38.            Class:=Message.class;
  39.            Code:=Message.code;
  40.            TempGadget:=Message.iAddress;
  41.            gt.ReplyIMsg(Message);
  42.            IF in.closeWindow IN Class THEN
  43.              EXIT;
  44.            END;
  45.         END;
  46.         Test.CloseProc00Mask;
  47.      END;
  48.      Test.FreeTest;
  49.   END;
  50.   IF S#NIL THEN in.UnlockPubScreen("Workbench",S); END;
  51. END TestMain.
  52.  
  53.