DEFINITION MODULE ToolTypes;

(*
Title    : TOOLTYPES.DEF
LastEdit : 11/04/87
Author   : Russell G. Osterlund, Jr.
System   : LOGITECH MODULA-2/86, REPERTOIRE, BlackBeard

This product has been developed with the use of, and embodies portions of,
LOGITECH software development tools - compiler, linker, and M2MAKE.

*)

FROM Drectory IMPORT (* REPERTOIRE *)
  ModeSet;

CONST
  MaxEntries = 255;

TYPE
  FileInfoRecord =
    RECORD
      tagged:        BOOLEAN;
      FileAttribute: ModeSet;
      FileHour,
      FileMinute,
      FileSecond:    CARDINAL;
      FileMonth,
      FileDay,
      FileYear:      CARDINAL;
      FileSize:      LONGINT;
      FileName:      ARRAY [0 .. 7] OF CHAR;
      FileExtension: ARRAY [0 .. 2] OF CHAR;
    END;
  DirectoryRecPtr =
    POINTER TO DirectoryRec;
  DirectoryRec =
    RECORD
      NumberOfEntries,
      NumberTagged,
      CurrentFile,
      FirstDisplayed: CARDINAL;
      DirectorySize,
      TaggedSize:     LONGINT;
      DirectoryDrive: CHAR;
      DirectoryPath:  ARRAY [0 .. 65] OF CHAR;
      Label:          ARRAY [0 .. 10] OF CHAR;
      DirectoryMask:  ARRAY [0 .. 11] OF CHAR;
      FileInfoArray:  ARRAY [0 .. MaxEntries] OF FileInfoRecord;
    END;
  MenuType =
    RECORD
      Command:       ARRAY [0 .. 9] OF CHAR;
      HelpText:      ARRAY [0 .. 79] OF CHAR;
      KeyEquivalent: CHAR;
      RowNum,
      ColNum:        CARDINAL;
    END;
  SubmenuType =
    RECORD
      Command:       ARRAY [0 .. 20] OF CHAR;
      KeyEquivalent: CHAR;
      RowNum,
      ColNum:        CARDINAL;
    END;
  WindowType =
    (LeftWindow, RightWindow);

VAR
  BothWindowsActive: BOOLEAN;
  ActiveWindow: WindowType;
  DirectoryInfo: ARRAY [0 .. 1] OF DirectoryRec;
END ToolTypes.
