MSGBOX2.DEF 1.3 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849
  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. FROM GenLists IMPORT GenList;
  15. FROM ScrnTypes IMPORT DisplayFrame;
  16. FROM VWindows IMPORT Compass;
  17. PROCEDURE FindExteriorCoords( locatn: Compass;
  18. ListWidth, ListHeight: CARDINAL; VAR col1,
  19. row1, col2, row2: CARDINAL );
  20. PROCEDURE FindBestCoords( TheFrame:
  21. DisplayFrame; locatn: Compass; ListWidth,
  22. ListHeight : CARDINAL; VAR col1, row1, col2,
  23. row2: CARDINAL );
  24. PROCEDURE LstMsgBox( TheFrame: DisplayFrame;
  25. locatn : Compass; VAR TheList: GenList );
  26. PROCEDURE LstMsgBoxExterior( TheFrame:
  27. DisplayFrame; locatn : Compass; VAR TheList:
  28. GenList );
  29. PROCEDURE MsgOkay( TheFrame: DisplayFrame;
  30. locatn : Compass; TheStr : ARRAY OF CHAR ):
  31. BOOLEAN;
  32. PROCEDURE StrMsgBox( TheFrame: DisplayFrame;
  33. locatn : Compass; TheStr : ARRAY OF CHAR );
  34. PROCEDURE StrMsgBoxExterior( TheFrame:
  35. DisplayFrame; locatn : Compass; TheStr :
  36. ARRAY OF CHAR );
  37. PROCEDURE Init();
  38. END MsgBox2.