Listing:

    1  DEFINITION MODULE UserOps;
    2  (*
    3   *  REPERTOIRE
    4   *  Release 1.6
    5   *  By Charles Bradford and Cole Brecheen
    6   *  (c) Copyright 1985-1992 PMI
    7   *  Green Bay, Wisconsin
    8   *  All rights reserved
    9   *  (414) 468-6040
   10   *
   11   *  $Header:   D:/logfiles/defs/userops.dev   1.4   30 Dec 1990 18:06:12   coleb  $
   12   *
   13   *)
   14  
   15  
   16  FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
   17  FROM KbdInput IMPORT KeyNumSet;
   18  
   19  CONST
   20    EndCode = 0;
   21    ContinueCode = -1;
   22  
   23  TYPE
   24    AKeyHandler = PROCEDURE( DisplayFrame, VAR
*****                  ^ not supported yet
*****                             ^ not supported yet
   25        CARDINAL, VAR AFrameName );
*****        ^ not supported yet
*****                      ^ not supported yet
   26  
   27    AFieldHandler = PROCEDURE( DisplayFrame,
*****                    ^ not supported yet
*****                               ^ not supported yet
   28        CARDINAL, CARDINAL, VAR CARDINAL, VAR
*****        ^ not supported yet
*****                  ^ not supported yet
*****                                ^ not supported yet
   29        AFrameName );
*****        ^ not supported yet
   30  
   31  (*================================================
   32    AFunctProc and AFieldProc will be deleted in the
   33    next release. Use AKeyHandler and AFieldHandler
   34    instead.
   35    ==============================================*)
   36    AFunctProc = PROCEDURE( DisplayFrame, VAR
*****                 ^ not supported yet
*****                            ^ not supported yet
   37        CARDINAL ): INTEGER;
*****        ^ not supported yet
*****                    ^ not supported yet
   38    AFieldProc = PROCEDURE( DisplayFrame, CARDINAL,
*****                 ^ not supported yet
*****                            ^ not supported yet
*****                                          ^ not supported yet
   39        CARDINAL, VAR CARDINAL ): INTEGER;
*****        ^ not supported yet
*****                      ^ not supported yet
*****                                  ^ not supported yet
   40  
   41  VAR
   42    DoPrompting, Exiting, InsertMode : BOOLEAN;
   43  
   44    PromptLength, PromptRow, PromptCol: CARDINAL;
   45  
   46    HelpKey, TimeKey, ExitKey, SubmitKey, BackupKey:
   47        CARDINAL;
   48  
   49    FunctKeySet, ScreenKeySet, StringKeySet,
   50        FieldExitKeySet: KeyNumSet;
   51  
   52    TheKeyHandler : AKeyHandler;
   53    TheFieldHandler : AFieldHandler;
   54  
   55  (*================================================
   56    TheFunctProc and TheFieldProc will be deleted in
   57    the next release.  Use TheKeyHandler and
   58    TheFieldHandler instead.
   59    ==============================================*)
   60    TheFunctProc : AFunctProc;
   61    TheFieldProc : AFieldProc;
   62  
   63    PROCEDURE Init();
   64  
   65  END UserOps.
*****      ^ not supported yet

   21 errors