Topspeed_JPI/TS-V3/INCLUDE/MENULIB.LST

Listing:

    1  (* Release 3.10 *)
    2  (*-------------------------------------------------------------------------*
    3  *                                                                          *
    4  *  MENULIB.DEF - COMMS Toolkit menu support                                *
    5  *                                                                          *
    6  *  COPYRIGHT (C) 1988..1992 Clarion Software Corporation.                  *
    7  *  All Rights Reserved                                                     *
    8  *                                                                          *
    9  *--------------------------------------------------------------------------*)
   10  DEFINITION MODULE MenuLib;
   11    IMPORT Window;
   12  
   13    CONST
   14      MaxOption           = 24;
   15  
   16    TYPE
   17      MenuOption          = RECORD
   18                              Name       : ARRAY[0..30] OF CHAR;
*****                                                    ^ not supported yet
*****                                                           ^ not supported yet
   19                              XPos,YPos,
   20                              FirstNonSpace: CARDINAL;
   21                            END;
*****                            ^ not supported yet
   22      MenuRec             = RECORD
   23                              Title      : ARRAY[0..30] OF CHAR;
*****                                                    ^ not supported yet
*****                                                           ^ not supported yet
   24                              Option     : ARRAY[0..MaxOption] OF MenuOption;
*****                                                    ^ not supported yet
*****                                                                  ^ not supported yet
   25                              MenuX,
   26                              MenuY,
   27                              Width,
   28                              NumUsed    : CARDINAL;
   29                              EscapeOK,
   30                              ExitOnChar,
   31                              HelpOK,
   32                              ExitSideWays,
   33                              PageKeysOK : BOOLEAN;
   34                              Normal,
   35                              Selected,
   36                              Highlite,
   37                              SHighlite  : SHORTCARD;
   38                              Selection  : CARDINAL;
   39                              winptr     : Window.WinType;
*****                                                  ^ not supported yet
   40                            END;
*****                            ^ not supported yet
   41      ColorRec            = RECORD
   42                              NormFore,
   43                              NormBack,
   44                              FrameFore,
   45                              FrameBack,
   46                              HighFore,
   47                              HighBack,
   48                              SelFore,
   49                              SelBack,
   50                              HSelFore,
   51                              HSelBack   : Window.Color;
*****                                                  ^ not supported yet
   52                            END;
*****                            ^ not supported yet
   53  
   54    VAR
   55      MenuColors          : ColorRec;
*****                            ^ not supported yet
   56  
   57  (***************************************************)
   58  
   59    PROCEDURE InitMenu   (VAR menu:MenuRec;menutitle:ARRAY OF CHAR;MenuX,MenuY,menuwidth:CARDINAL);
*****                                                              ^ not supported yet
   60    PROCEDURE AddOption  (VAR menu:MenuRec;menutext:ARRAY OF CHAR);
*****                                                             ^ not supported yet
   61    PROCEDURE DispMenu   (VAR menu:MenuRec);
   62    PROCEDURE MenuDrive  (VAR menu:MenuRec):INTEGER;
   63    PROCEDURE KillMenu   (VAR menu:MenuRec);
   64    PROCEDURE RepaintMenu(VAR menu:MenuRec);
   65  
   66  (***************************************************)
   67  
   68  END MenuLib.
*****      ^ not supported yet
   69  

   15 errors