-- file:  IntCommon.Mesa
-- edited by Brotz, April 1, 1981  5:39 PM
-- edited by Levin, July 15, 1980  4:24 PM
-- edited by Schroeder, March 13, 1981  11:45 AM

DIRECTORY
  crD: FROM "CoreDefs",
  dsD: FROM "DisplayDefs",
  Editor,
  exD: FROM "ExceptionDefs",
  inD: FROM "InteractorDefs",
  LaurelHardcopyDefs,
  lmD: FROM "LaurelMenuDefs",
  lsD: FROM "LaurelStateDefs",
  ovD: FROM "OverviewDefs",
  RetrieveDefs,
  StreamDefs,
  vmD: FROM "VirtualMgrDefs";

intCommon: PROGRAM
  SHARES inD = PUBLIC

BEGIN OPEN inD;

-- Purpose: Named common block for variables shared by the interactor modules.

--leftMargin,
--rightMargin,
--lineBarLeftX,
--consideredLeftX,		first X coord. in TOC considered mark field
--markLeftX,		first X coord. in TOC mark field
--numberLeftX,		first X coord. in TOC number field
--numberRightX,		first X coord. not in TOC number field
-- Above commented out values have been moved to inD as constants.

dateLeftX,					-- first X coord. in TOC date field
dateRightX,					-- first X coord. not in TOC date field
fromLeftX,					-- first X coord. in TOC from field
fromRightX,					-- first X coord. not in TOC from field
subjectLeftX,				-- first X in first line of TOC subject field
subjectExtensionLeftX: ScreenXCoord;	-- first X coord. in additional TOC subject field lines

displayMessageIndex: vmD.TOCIndex;

--CRWidth,   Moved to inD as constant.
--digitWidth: CARDINAL;   Moved to inD as constant.

secondsLastChecked,
lastMinuteSeconds: CARDINAL;

keystream: StreamDefs.StreamHandle;

regions,
mailCommandRegion,
TOCRegion,
TOCCommandRegion,
DMRegion,
CMCommandRegion,
CMRegion,
exceptionsRegion: RegionPtr;

linePoolPtr: LinePtr;

mailCommandNbr,
tocCommandNbr,
cmCommandNbr: CommandNbrPtr;

tocTextNbr: TOCTextNbrPtr;
dmTextNbr,
cmTextNbr: MessageTextNbrPtr;

tocThumbLineNbr,
dmThumbLineNbr,
cmThumbLineNbr: ThumbLineNbrPtr;

tocdmBoundaryPadNbr,
dmcmBoundaryPadNbr: BoundaryPadNbrPtr;

boundarySet: BoundarySet;

versionHouse,
timeHouse,
newMessagesHouse,
freePagesHouse,
userCommandHouse,
userBracketsHouse,
newMailCommandHouse,
mailFileCommandHouse,
mailFileBracketsHouse,
quitCommandHouse,
displayCommandHouse,
hardcopyCommandHouse,
deleteCommandHouse,
undeleteCommandHouse,
moveToCommandHouse,
moveToBracketsHouse,
newFormCommandHouse,
answerCommandHouse,
forwardCommandHouse,
getCommandHouse,
putCommandHouse,
copyCommandHouse,
runCommandHouse,
deliverCommandHouse,
runBracketsHouse,
findHouse,
findBracketsHouse,
substituteHouse,
substituteNewBracketsHouse,
substituteOldBracketsHouse,
copySourceBracketsHouse,
copyTargetBracketsHouse,
printerBracketsHouse,
copiesBracketsHouse,
duplexBracketsHouse,
formBracketsHouse,
getPutBracketsHouse,
currentCommand: HousePtr;

hardcopyMenuSegment,
getPutMenuSegment,
runMenuSegment,
findMenuSegment,
substituteMenuSegment,
copyMenuSegment: lsD.StateSegment;

editorMenuState: lmD.EditorMenuState;

imageFileName: STRING _ NIL;

audioEnabled,
twoSidedPrinting,
twoSidedPrintingDefault,
passwordPrinting,
passwordPrintingDefault,
timeMayBeBogus,
hardcopyInstallError,
calledFromDebugger,
debuggerExtant,
commandMode,
runCommandMode,
newTargetSelection,
pendingDeleteSetByControl,
controlRedEnabled,
bluePendingDelete,
secondarySelectionEnabled,
disableWriting,
cForCopies,
haveMailFile,
composedMessageEdited,
newFormAfterDelivery,
displayAfterDelete,
autoConfirm: BOOLEAN;

fontDirectorySegment: lsD.StateSegment;
hardcopyWidthTableSegment: lsD.StateSegment;
hardcopyFormTable: LaurelHardcopyDefs.HardcopyFormTable;
defaultHardcopyFormName: STRING _ NIL;
newMailTune: STRING _ NIL;

defaultHardCopies,
hardCopies: CARDINAL;

target,
source: TextSelection;

actionPoint: ovD.CharIndex;

currentSelection: Editor.UnderlineType;

multiClickTimeOut: CARDINAL;  -- in 1/26ths of a second --
tapTimeOut: CARDINAL;  -- in 1/26ths of a second --
continuousScrollTimeOut: CARDINAL;  -- in 1/26ths of a second --
continuousScrollDelay: CARDINAL;  -- in 1/26ths of a second --
nextBracketTimeout: CARDINAL;  -- in 1/26ths of a second --
nextBracketDelay: CARDINAL;  -- in 1/26ths of a second --

user: crD.DMSUser;

mailFileHandle: crD.UFileHandle;
retrieveHandle: RetrieveDefs.Handle;

ProtocolSelector: TYPE = {auto, gv, mtp};

profileRegistry: STRING;
profileSendMode: ProtocolSelector;
profileSend: STRING;
profileRetrieveMode: ProtocolSelector;
profileRetrieve: STRING;
gvTestingMode: BOOLEAN;

leafOk: BOOLEAN;
remoteFilePath: STRING;

hardcopyHost: STRING;
hardcopyUserName: STRING;

bugReportee: STRING;

runPath: STRING;

arpaGatewayHostNames: DESCRIPTOR FOR ARRAY OF STRING;

mailcheckPollingInterval: CARDINAL;  -- in seconds --

editorType: Editor.EditorType;
exceptionType: exD.ExceptionType;

commandType: Editor.CommandType;
pendingCommandType: Editor.CommandType _ noCommand;

END.  -- of intCommon --(635)\f1