Listing: 1 IMPLEMENTATION 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/mods/screendi.mov 1.5 10 Mar 1991 15:31:48 coleb $ 12 * 13 *) 14 15 16 17 IMPORT DspFiles; 18 IMPORT ErrorManager; 19 IMPORT FramePainter; 20 IMPORT M2Strings; 21 IMPORT ScrnTypes; 22 IMPORT ScrnUtl2; 23 IMPORT StrConv; 24 IMPORT StrEdit; 25 26 VAR 27 Initialized : BOOLEAN; 28 29 PROCEDURE Init(); 30 BEGIN 31 IF Initialized THEN 32 RETURN; 33 ELSE 34 Initialized := TRUE; 35 END; 36 DspFiles.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 37 ErrorManager.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 38 FramePainter.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 39 M2Strings.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 40 ScrnTypes.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 41 ScrnUtl2.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 42 StrConv.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 43 StrEdit.Init(); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 44 END Init; ***** ^ not supported yet 45 46 PROCEDURE CloseDisplayFile(VAR dfile : ScrnTypes.DisplayFile); ***** ^ not supported yet 47 BEGIN 48 DspFiles.CloseDisplayFile( dfile ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 49 END CloseDisplayFile; ***** ^ not supported yet 50 51 PROCEDURE OpenDisplayFile(VAR dfile : ScrnTypes.DisplayFile; ***** ^ not supported yet 52 fname : ARRAY OF CHAR); ***** ^ not supported yet 53 VAR 54 tmp: ARRAY [0..79] OF CHAR; ***** ^ not supported yet ***** ^ not supported yet 55 BEGIN 56 IF NOT DspFiles.OpenDisplayFile( dfile, fname ) THEN ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 57 M2Strings.Assign( fname, tmp ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 58 StrEdit.Append( tmp, ' not found' ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 59 ErrorManager.WARN(tmp); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 60 END; 61 END OpenDisplayFile; ***** ^ not supported yet 62 63 PROCEDURE ReadDisplayFrame(VAR dfile : ScrnTypes.DisplayFile; ***** ^ not supported yet 64 VAR FrameRec : ScrnTypes.DisplayFrame; FrameNum : ScrnTypes.FrameKey); ***** ^ not supported yet ***** ^ not supported yet 65 VAR 66 FrameName: ScrnTypes.AFrameName; ***** ^ not supported yet 67 BEGIN 68 StrConv.IntegerToStr( FrameNum, 0, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 69 DspFiles.ReadDisplayFrame( dfile, FrameRec, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 70 END ReadDisplayFrame; ***** ^ not supported yet 71 72 PROCEDURE ReadFrame(VAR dfile : ScrnTypes.DisplayFile; ***** ^ not supported yet 73 VAR FrameRec : ScrnTypes.DisplayFrame; FrameNum : ScrnTypes.FrameKey); ***** ^ not supported yet ***** ^ not supported yet 74 VAR 75 FrameName: ScrnTypes.AFrameName; ***** ^ not supported yet 76 BEGIN 77 StrConv.IntegerToStr( FrameNum, 0, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 78 DspFiles.ReadFrame( dfile, FrameRec, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 79 END ReadFrame; ***** ^ not supported yet 80 81 PROCEDURE ShowDisplayFrame(VAR FrameRec : 82 ScrnTypes.DisplayFrame; Col1, Row1, ColX, RowX : CARDINAL); ***** ^ not supported yet 83 BEGIN 84 FramePainter.ShowDisplayFrame( FrameRec, Col1, Row1, ColX, ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 85 RowX ); ***** ^ not supported yet 86 END ShowDisplayFrame; ***** ^ not supported yet 87 88 PROCEDURE WriteToFrame( FrameRec: ScrnTypes.DisplayFrame; col, ***** ^ not supported yet 89 row: CARDINAL; text: ARRAY OF CHAR ); ***** ^ not supported yet 90 BEGIN 91 ScrnUtl2.WriteToFrame( FrameRec, col, row, text ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 92 END WriteToFrame; ***** ^ not supported yet 93 94 PROCEDURE Display( FrameNum : ScrnTypes.FrameKey ); ***** ^ not supported yet 95 VAR 96 FrameName: ScrnTypes.AFrameName; ***** ^ not supported yet 97 BEGIN 98 StrConv.IntegerToStr( FrameNum, 0, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 99 ScrnUtl2.Display( DspFiles.MainFrame, FrameName ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 100 END Display; ***** ^ not supported yet 101 102 PROCEDURE CloseDisplayFrame(VAR FrameRec : 103 ScrnTypes.DisplayFrame); ***** ^ not supported yet 104 BEGIN 105 ScrnUtl2.CloseDisplayFrame( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 106 END CloseDisplayFrame; ***** ^ not supported yet 107 108 PROCEDURE PushFrame(VAR FrameRec : ScrnTypes.DisplayFrame); ***** ^ not supported yet 109 BEGIN 110 ScrnUtl2.PushFrame( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 111 END PushFrame; ***** ^ not supported yet 112 113 PROCEDURE PopFrame(VAR FrameRec : ScrnTypes.DisplayFrame); ***** ^ not supported yet 114 BEGIN 115 ScrnUtl2.PopFrame( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 116 END PopFrame; ***** ^ not supported yet 117 118 PROCEDURE PopZapFrame(VAR FrameRec : ScrnTypes.DisplayFrame); ***** ^ not supported yet 119 BEGIN 120 ScrnUtl2.PopZapFrame( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 121 END PopZapFrame; ***** ^ not supported yet 122 123 PROCEDURE ClearFrameStack(VAR FrameRec : 124 ScrnTypes.DisplayFrame); ***** ^ not supported yet 125 BEGIN 126 ScrnUtl2.ClearFrameStack( FrameRec ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 127 END ClearFrameStack; ***** ^ not supported yet 128 129 PROCEDURE RedrawArea( TheFrame: ScrnTypes.DisplayFrame; col1, ***** ^ not supported yet 130 row1, col2, row2: CARDINAL ); 131 BEGIN 132 FramePainter.RedrawArea( TheFrame, col1, row1, col2, row2 ); ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet ***** ^ not supported yet 133 END RedrawArea; ***** ^ not supported yet 134 135 136 BEGIN 137 Initialized := FALSE; 138 Init(); ***** ^ not supported yet ***** ^ not supported yet 139 END ScreenDisplay. ***** ^ not supported yet 137 errors