home *** CD-ROM | disk | FTP | other *** search
Modula Definition | 1996-02-15 | 1.1 KB | 53 lines |
-
- (*
- 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.
-
-
-