| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192 |
- Listing:
- 1 DEFINITION MODULE UserOps;
- 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/userops.dev 1.4 30 Dec 1990 18:06:12 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 FROM ScrnTypes IMPORT DisplayFrame, AFrameName;
- 17 FROM KbdInput IMPORT KeyNumSet;
- 18
- 19 CONST
- 20 EndCode = 0;
- 21 ContinueCode = -1;
- 22
- 23 TYPE
- 24 AKeyHandler = PROCEDURE( DisplayFrame, VAR
- ***** ^ not supported yet
- ***** ^ not supported yet
- 25 CARDINAL, VAR AFrameName );
- ***** ^ not supported yet
- ***** ^ not supported yet
- 26
- 27 AFieldHandler = PROCEDURE( DisplayFrame,
- ***** ^ not supported yet
- ***** ^ not supported yet
- 28 CARDINAL, CARDINAL, VAR CARDINAL, VAR
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 29 AFrameName );
- ***** ^ not supported yet
- 30
- 31 (*================================================
- 32 AFunctProc and AFieldProc will be deleted in the
- 33 next release. Use AKeyHandler and AFieldHandler
- 34 instead.
- 35 ==============================================*)
- 36 AFunctProc = PROCEDURE( DisplayFrame, VAR
- ***** ^ not supported yet
- ***** ^ not supported yet
- 37 CARDINAL ): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- 38 AFieldProc = PROCEDURE( DisplayFrame, CARDINAL,
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 39 CARDINAL, VAR CARDINAL ): INTEGER;
- ***** ^ not supported yet
- ***** ^ not supported yet
- ***** ^ not supported yet
- 40
- 41 VAR
- 42 DoPrompting, Exiting, InsertMode : BOOLEAN;
- 43
- 44 PromptLength, PromptRow, PromptCol: CARDINAL;
- 45
- 46 HelpKey, TimeKey, ExitKey, SubmitKey, BackupKey:
- 47 CARDINAL;
- 48
- 49 FunctKeySet, ScreenKeySet, StringKeySet,
- 50 FieldExitKeySet: KeyNumSet;
- 51
- 52 TheKeyHandler : AKeyHandler;
- 53 TheFieldHandler : AFieldHandler;
- 54
- 55 (*================================================
- 56 TheFunctProc and TheFieldProc will be deleted in
- 57 the next release. Use TheKeyHandler and
- 58 TheFieldHandler instead.
- 59 ==============================================*)
- 60 TheFunctProc : AFunctProc;
- 61 TheFieldProc : AFieldProc;
- 62
- 63 PROCEDURE Init();
- 64
- 65 END UserOps.
- ***** ^ not supported yet
- 21 errors
|
