Topspeed_JPI/TS/INCLUDE/MENULIB.DEF

(* Release 3.10 *)
(*-------------------------------------------------------------------------*
*                                                                          *
*  MENULIB.DEF - COMMS Toolkit menu support                                *
*                                                                          *
*  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
*  All Rights Reserved                                                     *
*                                                                          *
*--------------------------------------------------------------------------*)
DEFINITION MODULE MenuLib;
  IMPORT Window;

  CONST
    MaxOption           = 24;

  TYPE
    MenuOption          = RECORD
                            Name       : ARRAY[0..30] OF CHAR;
                            XPos,YPos,
                            FirstNonSpace: CARDINAL;
                          END;
    MenuRec             = RECORD
                            Title      : ARRAY[0..30] OF CHAR;
                            Option     : ARRAY[0..MaxOption] OF MenuOption;
                            MenuX,
                            MenuY,
                            Width,
                            NumUsed    : CARDINAL;
                            EscapeOK,
                            ExitOnChar,
                            HelpOK,
                            ExitSideWays,
                            PageKeysOK : BOOLEAN;
                            Normal,
                            Selected,
                            Highlite,
                            SHighlite  : SHORTCARD;
                            Selection  : CARDINAL;
                            winptr     : Window.WinType;
                          END;
    ColorRec            = RECORD
                            NormFore,
                            NormBack,
                            FrameFore,
                            FrameBack,
                            HighFore,
                            HighBack,
                            SelFore,
                            SelBack,
                            HSelFore,
                            HSelBack   : Window.Color;
                          END;

  VAR
    MenuColors          : ColorRec;

(***************************************************)

  PROCEDURE InitMenu   (VAR menu:MenuRec;menutitle:ARRAY OF CHAR;MenuX,MenuY,menuwidth:CARDINAL);
  PROCEDURE AddOption  (VAR menu:MenuRec;menutext:ARRAY OF CHAR);
  PROCEDURE DispMenu   (VAR menu:MenuRec);
  PROCEDURE MenuDrive  (VAR menu:MenuRec):INTEGER;
  PROCEDURE KillMenu   (VAR menu:MenuRec);
  PROCEDURE RepaintMenu(VAR menu:MenuRec);

(***************************************************)

END MenuLib.