WalnutSendInternal.mesa - internal interface for the implementation modules
Copyright © 1984, 1985 by Xerox Corporation. All rights reserved.
Willie-Sue on June 26, 1985 9:00:52 am PDT
Donahue, September 2, 1983 9:35 am
Russ Atkinson (RRA) March 21, 1985 0:12:03 am PST
DIRECTORY
GVBasics USING [RName],
GVSend USING [Handle],
Menus USING [Menu],
Rope USING [ROPE],
ViewerClasses USING [Viewer],
ViewerEvents USING [EventRegistration],
ViewerTools USING [TiogaContents];
WalnutSendInternal: CEDAR DEFINITIONS = BEGIN
OPEN GVBasics, Rope, ViewerClasses, ViewerTools;
SendMsgRecObject: TYPE = RECORD[
fullText: ROPE, -- text to be sent
from: ROPE,  -- The From: field
to: LIST OF RName,
cc: LIST OF ROPE,
subject: ROPE, -- The Subject: field
voiceID: ROPE, -- the ID for a voice message
replyTo: BOOLFALSE, -- is this field present
numRecipients: INT← 0,
numDLs: INT← 0,
endHeadersPos: INT← 0 -- for adding Reply-To: field
];
SendingRec: TYPE = REF SendMsgRecObject;
SenderInfo: TYPE = REF SenderInfoObject;
SenderInfoObject: TYPE = RECORD
[senderV: Viewer,
replyToResponse: HowToReplyTo← self,
prevMsg: TiogaContents← NIL,
numCharsToDelete: INT← 0,
closeEvent, destroyEvent, editEvent: ViewerEvents.EventRegistration← NIL,
openEvent, focusEvent: ViewerEvents.EventRegistration← NIL,
dontClose: BOOLFALSE,
successfullySent, userResponded, confirmed: BOOLFALSE,
aborted: BOOLFALSE,
validateFlag: BOOLTRUE,
sendHandle: GVSend.Handle← NIL];
maxWithNoReplyTo: INT = 20;
HowToReplyTo: TYPE = {self, all, cancel};
SendParseStatus: PUBLIC TYPE =
{ok, pdlNotFound, pdlSyntaxError, includesPublicDL, includesPrivateDL, fieldNotAllowed, syntaxError};
sendCaption: ROPE;
needToAuthenticate: BOOL;
replyToSelf: BOOL;
sendMenu, formsMenu, sendingMenu, blankMenu, confirmMenu, replyToMenu: Menus.Menu;
***********************************************************
InsertIntoViewer: PROC [v: Viewer, what: ROPE, where: INT, labelFont: ROPENIL, changeSelection: BOOLFALSE];
the rope supplied is inserted into the contents of the specified viewer at the given location. If a label font is specified, then any characters appearing before a ":" in the string are given the specified font (this is used to put message header labels in appropriate fonts)
ShowErrorFeedback: PROC[v: Viewer, start, end: INT];
DeleteChars: PROC[v: Viewer, num: INT];
SenderReport: PROC[msg: ROPE, blink: BOOLFALSE];
CheckForAbortSend: PROC[senderInfo: SenderInfo] RETURNS[BOOL];
Confirmation: PROC[senderInfo: SenderInfo] RETURNS [BOOL];
ReplyToResponse: PROC[senderInfo: SenderInfo] RETURNS [HowToReplyTo];
GrabFocus: PROC[senderV: Viewer];
ClearFileAssoc: PROC[v: Viewer];
SenderNewVersion: PROC[viewer: Viewer];
UnsetNewVersion: PROC[viewer: Viewer];
LockViewerOpen: PROC[viewer: Viewer];
ReleaseOpenViewer: PROC[viewer: Viewer];
END.