| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061 |
- DEFINITION MODULE ScreenDisplay;
- (*
- * 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/screendi.dev 1.4 30 Dec 1990 18:04:00 coleb $
- *
- *)
- FROM ScrnTypes IMPORT DisplayFile, DisplayFrame,
- FrameKey;
- PROCEDURE CloseDisplayFile(VAR dfile :
- DisplayFile);
- PROCEDURE OpenDisplayFile(VAR dfile :
- DisplayFile; fname : ARRAY OF CHAR);
- PROCEDURE ReadDisplayFrame(VAR dfile :
- DisplayFile; VAR FrameRec : DisplayFrame;
- FrameNum : FrameKey);
- PROCEDURE ReadFrame(VAR dfile : DisplayFile; VAR
- FrameRec : DisplayFrame; FrameNum :
- FrameKey);
- PROCEDURE ShowDisplayFrame(VAR FrameRec :
- DisplayFrame; Col1, Row1, ColX, RowX :
- CARDINAL);
- PROCEDURE WriteToFrame( FrameRec: DisplayFrame;
- col, row: CARDINAL; text: ARRAY OF CHAR );
- PROCEDURE Display( FrameNum : FrameKey);
- PROCEDURE CloseDisplayFrame(VAR FrameRec :
- DisplayFrame);
- PROCEDURE PushFrame(VAR FrameRec :
- DisplayFrame);
- PROCEDURE PopFrame(VAR FrameRec : DisplayFrame);
- PROCEDURE PopZapFrame(VAR FrameRec :
- DisplayFrame);
- PROCEDURE ClearFrameStack(VAR FrameRec :
- DisplayFrame);
- PROCEDURE RedrawArea( TheFrame: DisplayFrame;
- col1, row1, col2, row2: CARDINAL );
- PROCEDURE Init();
- END ScreenDisplay.
|