home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / modula2 / library / filetool / tooltype.def < prev    next >
Text File  |  1987-11-04  |  2KB  |  74 lines
  1. DEFINITION MODULE ToolTypes;
  2.  
  3. (*
  4. Title    : TOOLTYPES.DEF
  5. LastEdit : 11/04/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 Drectory IMPORT (* REPERTOIRE *)
  15.   ModeSet;
  16.  
  17. CONST
  18.   MaxEntries = 255;
  19.  
  20. TYPE
  21.   FileInfoRecord =
  22.     RECORD
  23.       tagged:        BOOLEAN;
  24.       FileAttribute: ModeSet;
  25.       FileHour,
  26.       FileMinute,
  27.       FileSecond:    CARDINAL;
  28.       FileMonth,
  29.       FileDay,
  30.       FileYear:      CARDINAL;
  31.       FileSize:      LONGINT;
  32.       FileName:      ARRAY [0 .. 7] OF CHAR;
  33.       FileExtension: ARRAY [0 .. 2] OF CHAR;
  34.     END;
  35.   DirectoryRecPtr =
  36.     POINTER TO DirectoryRec;
  37.   DirectoryRec =
  38.     RECORD
  39.       NumberOfEntries,
  40.       NumberTagged,
  41.       CurrentFile,
  42.       FirstDisplayed: CARDINAL;
  43.       DirectorySize,
  44.       TaggedSize:     LONGINT;
  45.       DirectoryDrive: CHAR;
  46.       DirectoryPath:  ARRAY [0 .. 65] OF CHAR;
  47.       Label:          ARRAY [0 .. 10] OF CHAR;
  48.       DirectoryMask:  ARRAY [0 .. 11] OF CHAR;
  49.       FileInfoArray:  ARRAY [0 .. MaxEntries] OF FileInfoRecord;
  50.     END;
  51.   MenuType =
  52.     RECORD
  53.       Command:       ARRAY [0 .. 9] OF CHAR;
  54.       HelpText:      ARRAY [0 .. 79] OF CHAR;
  55.       KeyEquivalent: CHAR;
  56.       RowNum,
  57.       ColNum:        CARDINAL;
  58.     END;
  59.   SubmenuType =
  60.     RECORD
  61.       Command:       ARRAY [0 .. 20] OF CHAR;
  62.       KeyEquivalent: CHAR;
  63.       RowNum,
  64.       ColNum:        CARDINAL;
  65.     END;
  66.   WindowType =
  67.     (LeftWindow, RightWindow);
  68.  
  69. VAR
  70.   BothWindowsActive: BOOLEAN;
  71.   ActiveWindow: WindowType;
  72.   DirectoryInfo: ARRAY [0 .. 1] OF DirectoryRec;
  73. END ToolTypes.
  74.