| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495 |
- Listing:
- 1 DEFINITION MODULE ScreenInput;
- 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/screenin.dev 1.4 30 Dec 1990 18:04:06 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 IMPORT GenLists;
- 17 IMPORT MsColors;
- 18 IMPORT ScrnTypes;
- 19
- 20 PROCEDURE ReadNextInput(VAR TheFrame :
- 21 ScrnTypes.DisplayFrame; VAR thestr : ARRAY
- ***** ^ not supported yet
- 22 OF CHAR; VAR selected : BOOLEAN; skip :
- ***** ^ not supported yet
- 23 CARDINAL);
- 24
- 25 PROCEDURE ReadInput(VAR TheFrame :
- 26 ScrnTypes.DisplayFrame; VAR thestr : ARRAY
- ***** ^ not supported yet
- 27 OF CHAR; VAR selected : BOOLEAN; FieldName :
- ***** ^ not supported yet
- 28 ARRAY OF CHAR);
- ***** ^ not supported yet
- 29
- 30 PROCEDURE ChangeField(VAR TheFrame :
- 31 ScrnTypes.DisplayFrame; thestr : ARRAY OF
- ***** ^ not supported yet
- 32 CHAR; FieldName : ARRAY OF CHAR;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 33 PreserveLength: BOOLEAN);
- 34
- 35 PROCEDURE ListToEdField( TheList:
- 36 GenLists.GenList; TheFrame:
- ***** ^ not supported yet
- 37 ScrnTypes.DisplayFrame; TheField: CARDINAL
- ***** ^ not supported yet
- 38 ): BOOLEAN;
- 39
- 40 PROCEDURE ListFromEdField( TheFrame:
- 41 ScrnTypes.DisplayFrame; TheField: CARDINAL;
- ***** ^ not supported yet
- 42 VAR TheList: GenLists.GenList ): BOOLEAN;
- ***** ^ not supported yet
- 43
- 44 PROCEDURE AddToMenu(VAR TheFrame :
- 45 ScrnTypes.DisplayFrame; ScrCol, ScrRow :
- ***** ^ not supported yet
- 46 CARDINAL; ScrText : ARRAY OF CHAR; FieldType
- ***** ^ not supported yet
- 47 : CHAR; foreground, background:
- 48 MsColors.AColor; MonoAttribute:
- ***** ^ not supported yet
- 49 MsColors.AMonoAttribute );
- ***** ^ not supported yet
- 50
- 51 PROCEDURE FrameSequence( StartFrame:
- 52 ScrnTypes.FrameKey);
- ***** ^ not supported yet
- 53
- 54 PROCEDURE Input( VAR FrameNum :
- 55 ScrnTypes.FrameKey);
- ***** ^ not supported yet
- 56
- 57 PROCEDURE Control(): ScrnTypes.FrameKey;
- ***** ^ not supported yet
- 58
- 59 PROCEDURE ControlFrame(VAR FrameRec :
- 60 ScrnTypes.DisplayFrame; LandingField :
- ***** ^ not supported yet
- 61 CARDINAL; message : ARRAY OF CHAR;
- ***** ^ not supported yet
- 62 showfields : BOOLEAN) : ScrnTypes.FrameKey;
- ***** ^ not supported yet
- 63
- 64 PROCEDURE Init();
- 65
- 66 END ScreenInput.
- ***** ^ not supported yet
- 23 errors
|
