home *** CD-ROM | disk | FTP | other *** search
/ Crawly Crypt Collection 1 / crawlyvol1.bin / program / compiler / stjo2122 / tutorial / tutor3.mod < prev    next >
Encoding:
Text File  |  1993-11-25  |  1.8 KB  |  72 lines
  1. MODULE Tutor3;
  2.  
  3. IMPORT S:=SYSTEM, GemApp, Graf, Rsrc, Form, Menus;
  4.  
  5. CONST
  6.     BOX        = 0; (* form/dialog *)
  7.     OK         = 4; (* BUTTON in tree BOX *)
  8.     INPUT1     = 5; (* BUTTON in tree BOX *)
  9.     OUTPUT1    = 6; (* BUTTON in tree BOX *)
  10.  
  11.     MENU       = 1; (* menu *)
  12.     DESK       = 3; (* TITLE in tree MENU *)
  13.     FILE       = 4; (* TITLE in tree MENU *)
  14.     WORK       = 5; (* TITLE in tree MENU *)
  15.     INFO       = 8; (* STRING in tree MENU *)
  16.     QUIT       = 17; (* STRING in tree MENU *)
  17.     INPUT2     = 19; (* STRING in tree MENU *)
  18.     OUTPUT2    = 20; (* STRING in tree MENU *)
  19.  
  20.     INPUTBOX   = 2; (* form/dialog *)
  21.     CIRCLE     = 2; (* BUTTON in tree INPUTBOX *)
  22.     RECT       = 3; (* BUTTON in tree INPUTBOX *)
  23.     XPOS       = 4; (* FTEXT in tree INPUTBOX *)
  24.     YPOS       = 5; (* FTEXT in tree INPUTBOX *)
  25.     RADIUS     = 6; (* FTEXT in tree INPUTBOX *)
  26.     WIDTH      = 7; (* FTEXT in tree INPUTBOX *)
  27.     HEIGHT     = 8; (* FTEXT in tree INPUTBOX *)
  28.     DRAW       = 9; (* BUTTON in tree INPUTBOX *)
  29.  
  30.  
  31. TYPE
  32.   Application = POINTER TO ApplDesc;
  33.   ApplDesc    = RECORD(GemApp.ApplDesc)
  34.                 END;
  35.  
  36.  
  37. VAR
  38.   myApp : Application;
  39.  
  40.  
  41. PROCEDURE ShowInfo;
  42.   VAR d : INTEGER;
  43.  BEGIN
  44.   d := Form.Alert(1, "[1][Tutor3 by Stephan Junker][Ok]");
  45.  END ShowInfo;
  46.  
  47.  
  48. PROCEDURE Exit;
  49.  BEGIN
  50.   GemApp.exit := TRUE;
  51.  END Exit;
  52.  
  53.  
  54. PROCEDURE (app : Application) Init;
  55.   VAR menu : Menus.Menu;
  56.  BEGIN
  57.   app.Init^;
  58.   Graf.ChangeMouse( Graf.ARROW);
  59.   IF NOT Rsrc.Load("GEMDEMO.RSC") THEN
  60.     app.Exit
  61.   END;
  62.   NEW(menu); menu.Init( Rsrc.GetAddr(MENU) );
  63.   menu.Set( FILE, QUIT, Exit );
  64.   menu.Set( DESK, INFO, ShowInfo );
  65.   menu.Show;
  66.  END Init;
  67.  
  68. BEGIN
  69.   NEW( myApp);
  70.   myApp.Init; myApp.Run; myApp.Exit
  71. END Tutor3.
  72.