| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128 |
- Listing:
- 1 DEFINITION MODULE ScrnUtl2;
- 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/scrnutl2.dev 1.4 30 Dec 1990 18:04:34 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 IMPORT GenLists;
- 17 IMPORT MsColors;
- 18 IMPORT ScrnTypes;
- 19 IMPORT VWindows;
- 20
- 21
- 22 PROCEDURE ChoiceListToFrame( TheList:
- 23 GenLists.GenList; TheFrame:
- ***** ^ not supported yet
- 24 ScrnTypes.DisplayFrame );
- ***** ^ not supported yet
- 25
- 26 PROCEDURE ClearFrameStack(VAR FrameRec :
- 27 ScrnTypes.DisplayFrame);
- ***** ^ not supported yet
- 28
- 29 PROCEDURE CloseDisplayFrame(VAR FrameRec :
- 30 ScrnTypes.DisplayFrame);
- ***** ^ not supported yet
- 31
- 32 PROCEDURE CopyEdField( frame1:
- 33 ScrnTypes.DisplayFrame; FieldName1: ARRAY OF
- ***** ^ not supported yet
- 34 CHAR; frame2: ScrnTypes.DisplayFrame;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 35 FieldName2: ARRAY OF CHAR );
- ***** ^ not supported yet
- 36
- 37 PROCEDURE CreateImageElement( VAR TheElmt:
- 38 ScrnTypes.ImageElement; col, row: CARDINAL;
- ***** ^ not supported yet
- 39 ForeColor, BackColor: MsColors.AColor;
- ***** ^ not supported yet
- 40 Attrib: MsColors.AMonoAttribute; FieldNum:
- ***** ^ not supported yet
- 41 CARDINAL; VAR TheText: ARRAY OF CHAR);
- ***** ^ not supported yet
- 42
- 43 PROCEDURE AddImageElement( VAR FrameRec:
- 44 ScrnTypes.DisplayFrame; VAR TheElmt:
- ***** ^ not supported yet
- 45 ScrnTypes.ImageElement; VAR NewImageNum:
- ***** ^ not supported yet
- 46 CARDINAL);
- 47
- 48 PROCEDURE CheckPushedFrame(VAR FrameRec :
- 49 ScrnTypes.DisplayFrame) :
- ***** ^ not supported yet
- 50 ScrnTypes.DisplayFrame;
- ***** ^ not supported yet
- 51
- 52 PROCEDURE Display( TheFrame:
- 53 ScrnTypes.DisplayFrame; FrameName : ARRAY OF
- ***** ^ not supported yet
- 54 CHAR );
- ***** ^ not supported yet
- 55
- 56 PROCEDURE GetEdField( TheFrame:
- 57 ScrnTypes.DisplayFrame; FieldName: ARRAY OF
- ***** ^ not supported yet
- 58 CHAR; VAR TheList: GenLists.GenList );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 59
- 60 PROCEDURE ListToFrame( TheList:
- 61 GenLists.GenList; TheFrame:
- ***** ^ not supported yet
- 62 ScrnTypes.DisplayFrame );
- ***** ^ not supported yet
- 63
- 64 PROCEDURE PushFrame( VAR FrameRec :
- 65 ScrnTypes.DisplayFrame);
- ***** ^ not supported yet
- 66
- 67 PROCEDURE PopFrame(VAR FrameRec :
- 68 ScrnTypes.DisplayFrame);
- ***** ^ not supported yet
- 69
- 70 PROCEDURE PopZapFrame(VAR FrameRec :
- 71 ScrnTypes.DisplayFrame);
- ***** ^ not supported yet
- 72
- 73 PROCEDURE ReadAndShow( TheFile:
- 74 ScrnTypes.DisplayFile; TheFrame:
- ***** ^ not supported yet
- 75 ScrnTypes.DisplayFrame; FrameName : ARRAY OF
- ***** ^ not supported yet
- 76 CHAR);
- ***** ^ not supported yet
- 77
- 78 PROCEDURE ShowMessage( TheFile:
- 79 ScrnTypes.DisplayFile; FrameName : ARRAY OF
- ***** ^ not supported yet
- 80 CHAR);
- ***** ^ not supported yet
- 81
- 82 PROCEDURE WriteToFrame( VAR FrameRec:
- 83 ScrnTypes.DisplayFrame; col, row: CARDINAL;
- ***** ^ not supported yet
- 84 text: ARRAY OF CHAR );
- ***** ^ not supported yet
- 85
- 86 PROCEDURE Init();
- 87
- 88 END ScrnUtl2.
- ***** ^ not supported yet
- 34 errors
|
