home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / stjo2122 / tutorial / tutor2.mod < prev    next >
Encoding:
Text File  |  1993-11-21  |  434 b   |  28 lines
  1. MODULE Tutor2;
  2.  
  3. IMPORT GemApp, Graf, Rsrc;
  4.  
  5. TYPE
  6.   Application = POINTER TO ApplDesc;
  7.   ApplDesc    = RECORD(GemApp.ApplDesc)
  8.                 END;
  9.  
  10.  
  11. VAR
  12.   myApp : Application;
  13.  
  14.  
  15. PROCEDURE (app : Application) Init;
  16.  BEGIN
  17.   app.Init^;
  18.   Graf.ChangeMouse( Graf.ARROW);
  19.   IF NOT Rsrc.Load("GEMDEMO.RSC") THEN
  20.     app.Exit
  21.   END;
  22.  END Init;
  23.  
  24. BEGIN
  25.   NEW( myApp);
  26.   myApp.Init; myApp.Run; myApp.Exit
  27. END Tutor2.
  28.