| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- Listing:
- 1 DEFINITION MODULE MsgBox2;
- 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/msgbox2.dev 1.4 30 Dec 1990 18:02:32 coleb $
- 12 *
- 13 *)
- 14
- 15
- 16 FROM GenLists IMPORT GenList;
- 17 FROM ScrnTypes IMPORT DisplayFrame;
- 18 FROM VWindows IMPORT Compass;
- 19
- 20 PROCEDURE FindExteriorCoords( locatn: Compass;
- 21 ListWidth, ListHeight: CARDINAL; VAR col1,
- 22 row1, col2, row2: CARDINAL );
- 23
- 24 PROCEDURE FindBestCoords( TheFrame:
- 25 DisplayFrame; locatn: Compass; ListWidth,
- 26 ListHeight : CARDINAL; VAR col1, row1, col2,
- 27 row2: CARDINAL );
- 28
- 29 PROCEDURE LstMsgBox( TheFrame: DisplayFrame;
- 30 locatn : Compass; VAR TheList: GenList );
- 31
- 32 PROCEDURE LstMsgBoxExterior( TheFrame:
- 33 DisplayFrame; locatn : Compass; VAR TheList:
- 34 GenList );
- 35
- 36 PROCEDURE MsgOkay( TheFrame: DisplayFrame;
- 37 locatn : Compass; TheStr : ARRAY OF CHAR ):
- ***** ^ not supported yet
- 38 BOOLEAN;
- 39
- 40 PROCEDURE StrMsgBox( TheFrame: DisplayFrame;
- 41 locatn : Compass; TheStr : ARRAY OF CHAR );
- ***** ^ not supported yet
- 42
- 43 PROCEDURE StrMsgBoxExterior( TheFrame:
- 44 DisplayFrame; locatn : Compass; TheStr :
- 45 ARRAY OF CHAR );
- ***** ^ not supported yet
- 46
- 47 PROCEDURE Init();
- 48
- 49 END MsgBox2.
- ***** ^ not supported yet
- 4 errors
|
