| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667 |
- 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
|
