Topspeed_JPI/TS-V3/MODBASE/INPUTMAN.LST

Listing:

    1  DEFINITION MODULE InputManager;
    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/inputman.dev   1.4   30 Dec 1990 18:01:16   coleb  $
   12   *
   13   *)
   14  
   15  
   16    FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
   17  
   18    PROCEDURE ControlFrame(VAR FrameRec :
   19        DisplayFrame; LandingField : CARDINAL;
   20        message : ARRAY OF CHAR; RedrawFirst:
*****                           ^ not supported yet
   21        BOOLEAN; VAR NextFrame: AFrameName );
   22  
   23    PROCEDURE FirstInputField(FrameRec :
   24        DisplayFrame) : CARDINAL;
   25  
   26    PROCEDURE GetPromptStr( TheFrame: DisplayFrame;
   27        TheField: CARDINAL; VAR TheStr: ARRAY OF
   28        CHAR );
*****        ^ not supported yet
   29  
   30    PROCEDURE HiLiteSelChars( TheFrame: DisplayFrame
   31        );
   32  
   33    PROCEDURE LastInputField(FrameRec :
   34        DisplayFrame) : CARDINAL;
   35  
   36    PROCEDURE LookAlive( TheFrame: DisplayFrame );
   37  
   38    PROCEDURE NextInputField(FrameRec :
   39        DisplayFrame; skip: CARDINAL ) : CARDINAL;
   40  
   41    PROCEDURE PrevInputField(VAR FrameRec :
   42        DisplayFrame; skip: CARDINAL ): CARDINAL;
   43  
   44    PROCEDURE ReconstructFrame( TheFrame:
   45        DisplayFrame );
   46  
   47    PROCEDURE ShowPrompt( FrameRec: DisplayFrame;
   48        str : ARRAY OF CHAR );
*****                       ^ not supported yet
   49  
   50    PROCEDURE SlideFrame( FrameRec: DisplayFrame;
   51        OldColsScrolled, NewColsScrolled,
   52        OldRowsScrolled, NewRowsScrolled: CARDINAL
   53        );
   54  
   55    PROCEDURE Init();
   56  
   57  END InputManager.
*****      ^ not supported yet

    4 errors