SCREENDI.DEF 1.5 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061
  1. DEFINITION MODULE ScreenDisplay;
  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/screendi.dev 1.4 30 Dec 1990 18:04:00 coleb $
  12. *
  13. *)
  14. FROM ScrnTypes IMPORT DisplayFile, DisplayFrame,
  15. FrameKey;
  16. PROCEDURE CloseDisplayFile(VAR dfile :
  17. DisplayFile);
  18. PROCEDURE OpenDisplayFile(VAR dfile :
  19. DisplayFile; fname : ARRAY OF CHAR);
  20. PROCEDURE ReadDisplayFrame(VAR dfile :
  21. DisplayFile; VAR FrameRec : DisplayFrame;
  22. FrameNum : FrameKey);
  23. PROCEDURE ReadFrame(VAR dfile : DisplayFile; VAR
  24. FrameRec : DisplayFrame; FrameNum :
  25. FrameKey);
  26. PROCEDURE ShowDisplayFrame(VAR FrameRec :
  27. DisplayFrame; Col1, Row1, ColX, RowX :
  28. CARDINAL);
  29. PROCEDURE WriteToFrame( FrameRec: DisplayFrame;
  30. col, row: CARDINAL; text: ARRAY OF CHAR );
  31. PROCEDURE Display( FrameNum : FrameKey);
  32. PROCEDURE CloseDisplayFrame(VAR FrameRec :
  33. DisplayFrame);
  34. PROCEDURE PushFrame(VAR FrameRec :
  35. DisplayFrame);
  36. PROCEDURE PopFrame(VAR FrameRec : DisplayFrame);
  37. PROCEDURE PopZapFrame(VAR FrameRec :
  38. DisplayFrame);
  39. PROCEDURE ClearFrameStack(VAR FrameRec :
  40. DisplayFrame);
  41. PROCEDURE RedrawArea( TheFrame: DisplayFrame;
  42. col1, row1, col2, row2: CARDINAL );
  43. PROCEDURE Init();
  44. END ScreenDisplay.