home *** CD-ROM | disk | FTP | other *** search
/ Club Amiga de Montreal - CAM / CAM_CD_1.iso / files / 288.lha / Tiles_v2.1 / TilesMenu.def < prev    next >
Encoding:
Modula Definition  |  1989-09-12  |  1.4 KB  |  65 lines
  1.  
  2. (*
  3. This is a definition module for Trails Menus.
  4. Procedures to connect and disconnect menu with
  5. a window are exported.
  6.  
  7. Created: 5/22/86 by Richard Bielak
  8.  
  9. Modified:
  10.  
  11.  
  12. Copyright (c) 1986 by Richard Bielak.
  13.  
  14. This is a Public Domain piece of code, please don't
  15. try to sell it! Also, please leave my name in.
  16. Thanks.....Richie.
  17.  
  18. Turned into TilesMenu by Todd M. Lewis in 1988.  Thanks alot, Richie!
  19. *)
  20. DEFINITION MODULE TilesMenu;
  21.  
  22. FROM Intuition IMPORT WindowPtr;
  23.  
  24.   (*    ******** IMPORTANT *************
  25.      The types below reflect the structure of
  26.      menu. If new items, or new menus are added,
  27.      make sure that these types are updated.
  28.   *)
  29.   TYPE
  30.     TilesMenuType = (Actions, Symetry, Size, SquareSize);
  31.  
  32.     ActionItemType = (NewBoard,
  33.                       UnHideTitle, 
  34.                       AboutTiles,
  35.                       ClearTiles,
  36.                       QuitTiles);
  37.  
  38.     SymetryItemType = (OneFold,
  39.                        TwoFold,
  40.        FourFold);
  41.  
  42.     SizeItemType    = (Size16,
  43.                        Size32,
  44.        Size64,
  45.        Size128,
  46.        Infinite);
  47.  
  48.     SquareSizeItemType = 
  49.                       (Size2by2,
  50.        Size4by4,
  51.        Size8by8,
  52.               Size16by16,
  53.        Size32by32);
  54.  
  55.     
  56.   (* Connect a menu strip to a window *)
  57.   PROCEDURE ConnectMenu (wp : WindowPtr);
  58.  
  59.   (* Disconnect a menu strip from a window *)
  60.   PROCEDURE DisconnectMenu (wp : WindowPtr);
  61.  
  62. END TilesMenu.
  63.  
  64.  
  65.