Listing: 1 DEFINITION MODULE ScrnUtl1; 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/scrnutl1.dev 1.4 30 Dec 1990 18:04:24 coleb $ 12 * 13 *) 14 15 16 FROM SYSTEM IMPORT ADDRESS, BYTE, WORD; 17 18 FROM GenLists IMPORT GenList; 19 FROM ScrnTypes IMPORT AFrameName, DisplayFrame, 20 InputFieldRecord, InputFieldPtr, 21 ImageElement, 22 ImageElmtPtr; 23 FROM Rectangles IMPORT ARectangle; 24 FROM VEditor IMPORT AnEdControlRec; 25 FROM VWindows IMPORT AWindowHandle, Compass; 26 27 28 CONST 29 CoordCode = 20C; 30 CommandCode = 200C; 31 MenuCode = 'M'; 32 NoAttribCode = 377C; 33 BadAttribCode = 376C; 34 35 36 PROCEDURE AbsFieldRow( TheFrame: DisplayFrame; 37 FieldNum: CARDINAL ): INTEGER; 38 PROCEDURE AbsFieldCol( TheFrame: DisplayFrame; 39 FieldNum: CARDINAL ): INTEGER; 40 41 PROCEDURE AllFieldsThisType( TheFrame: 42 DisplayFrame; TheType: CHAR ): BOOLEAN; 43 44 PROCEDURE BoxFrame( TheFrame: DisplayFrame; 45 Active: BOOLEAN ); 46 47 PROCEDURE BoxInFrame( TheFrame: DisplayFrame ): 48 BOOLEAN; 49 50 PROCEDURE ChoiceNumber( TheFrame: DisplayFrame; 51 TheField: CARDINAL ): CARDINAL; 52 53 PROCEDURE CoordsInField( TheFrame: DisplayFrame; 54 TheField, TheCol, TheRow: CARDINAL ): 55 BOOLEAN; 56 57 PROCEDURE CurrentField( TheFrame: DisplayFrame 58 ): CARDINAL; 59 60 PROCEDURE DecodeByte( VAR AnyByte: BYTE ); 61 62 PROCEDURE DecodeImageRec( VAR TheImageRec: 63 ImageElement ); 64 65 PROCEDURE DecodeWord( VAR AnyWord: WORD ); 66 67 PROCEDURE EncodeByte( VAR AnyByte: BYTE ); 68 69 PROCEDURE EncodeWord( VAR AnyWord: WORD ); 70 71 PROCEDURE EncodeImageRec( VAR TheImageRec: 72 ImageElement ); 73 74 PROCEDURE EntirelyVisible( TheFrame: 75 DisplayFrame; TheField: CARDINAL ): BOOLEAN; 76 77 PROCEDURE FieldEntered( TheFrame: DisplayFrame; 78 TheCol, TheRow: CARDINAL ): BOOLEAN; 79 80 PROCEDURE FieldGroupTotal( TheFrame: 81 DisplayFrame ): CARDINAL; 82 83 PROCEDURE FieldHeight( TheFrame: DisplayFrame; 84 TheField: CARDINAL ): CARDINAL; 85 86 PROCEDURE FieldImageNum( TheFrame: DisplayFrame; 87 FieldNumber: CARDINAL ): CARDINAL; 88 89 PROCEDURE FieldIsBlank( TheFrame: DisplayFrame; 90 FieldName: ARRAY OF CHAR; VAR FieldNumber: ***** ^ not supported yet 91 CARDINAL ): BOOLEAN; 92 93 PROCEDURE FieldListTotal( TheFrame: DisplayFrame 94 ): CARDINAL; 95 96 PROCEDURE FieldNum( TheFrame: DisplayFrame; 97 FieldName: ARRAY OF CHAR ): CARDINAL; ***** ^ not supported yet 98 99 PROCEDURE FieldType( TheFrame: DisplayFrame; 100 FieldNum: CARDINAL ): CHAR; 101 102 PROCEDURE FieldWidth( TheFrame: DisplayFrame; 103 TheField: CARDINAL ): CARDINAL; 104 105 PROCEDURE FindField( TheFrame: DisplayFrame; 106 FieldName: ARRAY OF CHAR; VAR FieldPtr: ***** ^ not supported yet 107 InputFieldPtr; VAR ImageRec: ImageElement ): 108 BOOLEAN; 109 110 PROCEDURE FindFieldNum( TheFrame: DisplayFrame; 111 FieldNum: CARDINAL; VAR FieldPtr: 112 InputFieldPtr; VAR ImageRec: ImageElement ): 113 BOOLEAN; 114 115 PROCEDURE FirstMember( TheFrame: DisplayFrame; 116 TheField: CARDINAL ): CARDINAL; 117 118 PROCEDURE GetCardField( TheFrame: DisplayFrame; 119 TheField: CARDINAL; VAR TheCard: CARDINAL ); 120 121 PROCEDURE GetEdField( FrameRec: DisplayFrame; 122 FieldNum: CARDINAL; VAR TheList: GenList ); 123 124 PROCEDURE GetEdRec( FrameRec: DisplayFrame; 125 FieldNum: CARDINAL; VAR TheList: GenList; 126 VAR Rec: AnEdControlRec ); 127 128 PROCEDURE GetFrameLinks( FrameRec: DisplayFrame; 129 VAR FrameAbove, FrameBelow, FrameLeft, 130 FrameRight: AFrameName ); 131 132 PROCEDURE GetFrameLists( VAR TheFrame: 133 DisplayFrame); 134 135 PROCEDURE GetFieldDataList( TheFrame: 136 DisplayFrame; TheField: CARDINAL; VAR 137 FieldDataList: GenList ): BOOLEAN; 138 139 PROCEDURE GetFieldImagePtr( TheFrame: 140 DisplayFrame; TheField: CARDINAL; VAR 141 ImagePtr: ImageElmtPtr ); 142 143 PROCEDURE GetFieldImageRec( TheFrame: 144 DisplayFrame; TheField: CARDINAL; VAR 145 ImageRec: ImageElement ); 146 147 PROCEDURE GetFieldPtr( TheFrame: DisplayFrame; 148 TheField: CARDINAL; VAR FieldPtr: 149 InputFieldPtr); 150 151 PROCEDURE GetFieldRec( TheFrame: DisplayFrame; 152 TheField: CARDINAL; VAR FieldRec: 153 InputFieldRecord); 154 155 PROCEDURE GetFieldText( TheFrame: DisplayFrame; 156 TheField: CARDINAL; VAR TheText: ARRAY OF 157 CHAR ); ***** ^ not supported yet 158 159 PROCEDURE GetImagePtr( TheFrame: DisplayFrame; 160 ImageNum: CARDINAL; VAR ImagePtr: 161 ImageElmtPtr ); 162 163 PROCEDURE GetImageRec( TheFrame: DisplayFrame; 164 ImageNum: CARDINAL; VAR ImageRec: 165 ImageElement ); 166 167 PROCEDURE GetIntField( TheFrame: DisplayFrame; 168 TheField: CARDINAL; VAR TheInt: INTEGER ); 169 170 PROCEDURE GetLongIntField( TheFrame: 171 DisplayFrame; TheField: CARDINAL; VAR 172 TheLongInt: LONGINT ); 173 174 PROCEDURE GetVisibleArea( TheFrame: 175 DisplayFrame; VAR VisibleArea: ARectangle ); 176 177 PROCEDURE InputFieldsAbove( TheFrame: 178 DisplayFrame; TheField: CARDINAL ): BOOLEAN; 179 180 PROCEDURE InputFieldsBelow( TheFrame: 181 DisplayFrame; TheField: CARDINAL ): BOOLEAN; 182 183 PROCEDURE InputFieldsToLeft( TheFrame: 184 DisplayFrame; TheField: CARDINAL ): BOOLEAN; 185 186 PROCEDURE InputFieldsToRight( TheFrame: 187 DisplayFrame; TheField: CARDINAL ): BOOLEAN; 188 189 PROCEDURE ListFromEdField( TheFrame: 190 DisplayFrame; TheField: CARDINAL; VAR 191 TheList: GenList ): BOOLEAN; 192 193 PROCEDURE ListToEdField( TheList: GenList; 194 TheFrame: DisplayFrame; TheField: CARDINAL 195 ): BOOLEAN; 196 197 PROCEDURE MakeFieldDataList( TheFrame: 198 DisplayFrame; TheField: CARDINAL; 199 FieldDataList: GenList ); 200 201 PROCEDURE NumberOfChoices( TheFrame: 202 DisplayFrame; TheField: CARDINAL ): 203 CARDINAL; 204 205 PROCEDURE NumberOfImages( TheFrame: DisplayFrame 206 ): CARDINAL; 207 208 PROCEDURE PartOutside( FrameRec: DisplayFrame; 209 VAR VisibleArea: ARectangle; direction: 210 Compass ): CARDINAL; 211 212 PROCEDURE PutEdRec( FrameRec: DisplayFrame; 213 FieldNum: CARDINAL; VAR TheList: GenList; 214 VAR Rec: AnEdControlRec ); 215 216 PROCEDURE PutFieldImageRec( ImageRec: 217 ImageElement; VAR TheFrame: DisplayFrame; 218 TheField: CARDINAL); 219 220 PROCEDURE PutFieldRec( VAR FieldRec: 221 InputFieldRecord; VAR TheFrame: 222 DisplayFrame; TheField: CARDINAL ); 223 224 PROCEDURE PutFrameLists( VAR TheFrame: 225 DisplayFrame); 226 227 PROCEDURE RelativeFieldRow( TheFrame: 228 DisplayFrame; FieldNum: CARDINAL ): 229 CARDINAL; 230 PROCEDURE RelativeFieldCol( TheFrame: 231 DisplayFrame; FieldNum: CARDINAL ): 232 CARDINAL; 233 234 PROCEDURE ResetFieldPtr( VAR TheFrame: 235 DisplayFrame); 236 237 PROCEDURE SelectedChar( TheFrame: DisplayFrame 238 ): CHAR; 239 240 PROCEDURE SetBorderColors( TheFrame: 241 DisplayFrame ); 242 243 PROCEDURE SetCurrentField( VAR TheFrame: 244 DisplayFrame; FieldNum: CARDINAL ); 245 246 PROCEDURE SetFieldColors( TheFrame: 247 DisplayFrame; FieldNum: CARDINAL ); 248 249 PROCEDURE SetMessageColors( TheFrame: 250 DisplayFrame ); 251 252 PROCEDURE SetNormalColors( TheFrame: 253 DisplayFrame ); 254 255 PROCEDURE SetPointerBarColors( TheFrame: 256 DisplayFrame); 257 258 PROCEDURE SetPromptColors( TheFrame: 259 DisplayFrame ); 260 261 PROCEDURE SetSelCharColors( TheFrame: 262 DisplayFrame; FieldNum: CARDINAL ); 263 264 PROCEDURE SetSelectionColors( TheFrame: 265 DisplayFrame); 266 267 PROCEDURE VirtualFieldRow( TheFrame: 268 DisplayFrame; FieldNum: CARDINAL ): 269 CARDINAL; 270 PROCEDURE VirtualFieldCol( TheFrame: 271 DisplayFrame; FieldNum: CARDINAL ): 272 CARDINAL; 273 274 PROCEDURE VirtualImageCol( TheFrame: 275 DisplayFrame; ImageNum: CARDINAL ): 276 CARDINAL; 277 PROCEDURE VirtualImageRow( TheFrame: 278 DisplayFrame; ImageNum: CARDINAL ): 279 CARDINAL; 280 281 PROCEDURE WhichChoiceKey( TheFrame: 282 DisplayFrame; OneOfTheFields: CARDINAL ): 283 CARDINAL; 284 PROCEDURE WhichChoiceNum( TheFrame: 285 DisplayFrame; OneOfTheFields: CARDINAL ): 286 CARDINAL; 287 288 PROCEDURE WriteBetween( TheWindow: 289 AWindowHandle; TheStr: ARRAY OF CHAR; col1, ***** ^ not supported yet 290 row1, col2, row2: CARDINAL ); 291 292 PROCEDURE WriteScrollMarks( TheFrame: 293 DisplayFrame ); 294 295 PROCEDURE Init(); 296 297 END ScrnUtl1. ***** ^ not supported yet 6 errors