
(*
This is a definition module for Tunnel Menus.
Procedures to connect and disconnect menu with
a window are exported.

Created: 16/2/88 by Garth Thornton

Modified: 27/2/88


Copyright (c) 1988 Garth Thornton

*)
DEFINITION MODULE TunnelMenu;

FROM Intuition IMPORT WindowPtr;

  (*    ******** IMPORTANT *************
     The types below reflect the structure of
     menu. If new items, or new menus are added,
     make sure that these types are updated.
  *)
  TYPE
    TunMenuType = (Actions, View, Pattern, Style);

    ActionItemType = (HideTitle,
                      UnHideTitle, 
      AboutTunnel,
                      QuitTunnel);

    ViewItemType = (Front,
                    Rear);

    PatternItemType    = (Single,
                           Double,
                           Reverse);

    StyleItemType =
                      (RGBFoldover, RGBBounce,
                       Speedlocked, Speedfree);

    
  (* Connect a menu strip to a window *)
  PROCEDURE ConnectMenu (wp : WindowPtr);

  (* Disconnect a menu strip from a window *)
  PROCEDURE DisconnectMenu (wp : WindowPtr);

END TunnelMenu.


