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: BOOL← FALSE, -- 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: BOOL← FALSE,
successfullySent, userResponded, confirmed: BOOL← FALSE,
aborted: BOOL← FALSE,
validateFlag: BOOL← TRUE,
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:
ROPE ←
NIL, changeSelection:
BOOL ←
FALSE];
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: BOOL← FALSE];
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.