home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / filetool / tooldisp.def < prev    next >
Text File  |  1987-12-28  |  2KB  |  77 lines
  1. DEFINITION MODULE ToolDisplay;
  2.  
  3. (*
  4. Title    : TOOLDISP.DEF
  5. LastEdit : 12/30/87
  6. Author   : Russell G. Osterlund, Jr.
  7. System   : LOGITECH MODULA-2/86, REPERTOIRE, BlackBeard
  8.  
  9. This product has been developed with the use of, and embodies portions of,
  10. LOGITECH software development tools - compiler, linker, and M2MAKE.
  11.  
  12. *)
  13.  
  14. FROM StringIO IMPORT (* REPERTOIRE *)
  15.   ErrorMessage;
  16. FROM SmartScreen IMPORT (* REPERTOIRE *)
  17.   Colors;
  18. FROM ToolTypes IMPORT
  19.   DirectoryRecPtr, MenuType, SubmenuType;
  20.  
  21. CONST
  22.   MaxDisplayLines = 19; (* There are really 20 lines displayable,
  23.                but arrays start at 0.                 *)
  24.  
  25. VAR
  26.   MainMenuPos: CARDINAL;
  27.   MainMenu: ARRAY [0 .. 11] OF MenuType;
  28.   CopyMenu: ARRAY [0 .. 2] OF SubmenuType;
  29.   RenameMenu: ARRAY [0 .. 1] OF SubmenuType;
  30.   ExecuteMenu: ARRAY [0 .. 3] OF SubmenuType;
  31.   AdditionalMenu: ARRAY [0 .. 9] OF SubmenuType;
  32.   SortMenu: ARRAY [0 .. 3] OF SubmenuType;
  33.   AttributesMenu: ARRAY [0 .. 4] OF SubmenuType;
  34.   OtherMenu: ARRAY [0 .. 6] OF SubmenuType;
  35.   ConfigForeground,
  36.   ConfigBackground: Colors;
  37.  
  38. PROCEDURE DisplayFileLine (directory: DirectoryRecPtr;
  39.                filenum: CARDINAL;
  40.                WindowActive: BOOLEAN);
  41.  
  42. PROCEDURE DisplaySummaryLine (directory: DirectoryRecPtr);
  43.  
  44. PROCEDURE DisplayInfo (directory: DirectoryRecPtr;
  45.                start: CARDINAL;
  46.                WindowActive: BOOLEAN);
  47.  
  48. PROCEDURE DisplayMainMenu ();
  49.  
  50. PROCEDURE DisplaySubMenu (menu: ARRAY OF SubmenuType;
  51.               pos: CARDINAL;
  52.               blank: BOOLEAN);
  53.  
  54. PROCEDURE DisplayAdditionalMenu ();
  55.  
  56. PROCEDURE DECMenuPos (max: CARDINAL;
  57.           VAR pos: CARDINAL);
  58.  
  59. PROCEDURE INCMenuPos (max: CARDINAL;
  60.           VAR pos: CARDINAL);
  61.  
  62. PROCEDURE YesAnswer (TheQuestion: ARRAY OF CHAR): BOOLEAN;
  63.  
  64. PROCEDURE GetMoreInfo (ThePrompt: ARRAY OF CHAR;
  65.             VAR TheOtherName: ARRAY OF CHAR);
  66.  
  67. PROCEDURE DisplayError (TheError: ErrorMessage);
  68.  
  69. PROCEDURE DisplayMessage (TheMessage: ARRAY OF CHAR);
  70.  
  71. PROCEDURE ClearMessage ();
  72.  
  73. PROCEDURE NoErrorMsg (error: ErrorMessage): BOOLEAN;
  74.  
  75. PROCEDURE DisplayHelpScreen ();
  76. END ToolDisplay.
  77.