| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657 |
- DEFINITION MODULE InputManager;
- (*
- * REPERTOIRE
- * Release 1.6
- * By Charles Bradford and Cole Brecheen
- * (c) Copyright 1985-1992 PMI
- * Green Bay, Wisconsin
- * All rights reserved
- * (414) 468-6040
- *
- * $Header: D:/logfiles/defs/inputman.dev 1.4 30 Dec 1990 18:01:16 coleb $
- *
- *)
- FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
- PROCEDURE ControlFrame(VAR FrameRec :
- DisplayFrame; LandingField : CARDINAL;
- message : ARRAY OF CHAR; RedrawFirst:
- BOOLEAN; VAR NextFrame: AFrameName );
- PROCEDURE FirstInputField(FrameRec :
- DisplayFrame) : CARDINAL;
- PROCEDURE GetPromptStr( TheFrame: DisplayFrame;
- TheField: CARDINAL; VAR TheStr: ARRAY OF
- CHAR );
- PROCEDURE HiLiteSelChars( TheFrame: DisplayFrame
- );
- PROCEDURE LastInputField(FrameRec :
- DisplayFrame) : CARDINAL;
- PROCEDURE LookAlive( TheFrame: DisplayFrame );
- PROCEDURE NextInputField(FrameRec :
- DisplayFrame; skip: CARDINAL ) : CARDINAL;
- PROCEDURE PrevInputField(VAR FrameRec :
- DisplayFrame; skip: CARDINAL ): CARDINAL;
- PROCEDURE ReconstructFrame( TheFrame:
- DisplayFrame );
- PROCEDURE ShowPrompt( FrameRec: DisplayFrame;
- str : ARRAY OF CHAR );
- PROCEDURE SlideFrame( FrameRec: DisplayFrame;
- OldColsScrolled, NewColsScrolled,
- OldRowsScrolled, NewRowsScrolled: CARDINAL
- );
- PROCEDURE Init();
- END InputManager.
|