home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_disks / 100-199 / ff174.lzh / Tunnel / TunnelMenu.def < prev    next >
Text File  |  1989-02-04  |  1KB  |  53 lines
  1.  
  2. (*
  3. This is a definition module for Tunnel Menus.
  4. Procedures to connect and disconnect menu with
  5. a window are exported.
  6.  
  7. Created: 16/2/88 by Garth Thornton
  8.  
  9. Modified: 27/2/88
  10.  
  11.  
  12. Copyright (c) 1988 Garth Thornton
  13.  
  14. *)
  15. DEFINITION MODULE TunnelMenu;
  16.  
  17. FROM Intuition IMPORT WindowPtr;
  18.  
  19.   (*    ******** IMPORTANT *************
  20.      The types below reflect the structure of
  21.      menu. If new items, or new menus are added,
  22.      make sure that these types are updated.
  23.   *)
  24.   TYPE
  25.     TunMenuType = (Actions, View, Pattern, Style);
  26.  
  27.     ActionItemType = (HideTitle,
  28.                       UnHideTitle, 
  29.       AboutTunnel,
  30.                       QuitTunnel);
  31.  
  32.     ViewItemType = (Front,
  33.                     Rear);
  34.  
  35.     PatternItemType    = (Single,
  36.                            Double,
  37.                            Reverse);
  38.  
  39.     StyleItemType =
  40.                       (RGBFoldover, RGBBounce,
  41.                        Speedlocked, Speedfree);
  42.  
  43.     
  44.   (* Connect a menu strip to a window *)
  45.   PROCEDURE ConnectMenu (wp : WindowPtr);
  46.  
  47.   (* Disconnect a menu strip from a window *)
  48.   PROCEDURE DisconnectMenu (wp : WindowPtr);
  49.  
  50. END TunnelMenu.
  51.  
  52.  
  53.