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, 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]; 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. jWalnutSendInternal.mesa - internal interface for the implementation modules Copyright c 1984, 1985 by Xerox Corporation. All rights reserved. Willie-Sue on December 6, 1984 9:14:03 am PST Donahue, September 2, 1983 9:35 am Russ Atkinson (RRA) March 21, 1985 0:12:03 am PST *********************************************************** 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) Κ ˜codešœK™KKšœ Οmœ7™BKšœ-™-Kšœ"™"K™1—K˜šΟk ˜ Kšœ žœ ˜Kšœžœ ˜Kšœžœ˜Kšœžœžœ˜Kšœžœ ˜Kšœ žœ˜'Kšœ žœ˜"K˜—šœžœž œž˜-Kšžœžœ žœ ˜0—K˜šœžœžœ˜ Kšœ žœΟc˜"KšœžœŸ˜Kšœžœžœ˜Kšœžœžœžœ˜Kšœ žœŸ˜$Kšœ žœŸ˜,Kšœ žœžœŸ˜.Kšœžœ˜Kšœžœ˜KšœžœŸ˜3K˜K˜—Kšœ žœžœ˜(K˜Kšœ žœžœ˜(šœžœž˜˜K˜$Kšœžœ˜Kšœžœ˜KšœEžœ˜IKšœ7žœ˜;Kšœ žœžœ˜Kšœ,žœžœ˜8Kšœ žœžœ˜Kšœžœžœ˜Kšœžœ˜ K˜——Kšœžœ˜Kšœžœ˜)K˜šœžœžœ˜K˜HK˜—Kšœ žœ˜Kšœžœ˜Kšœ žœ˜K˜K˜RK˜Kšœ;™;K˜šΟnœžœžœ žœ žœžœžœžœ˜qKšœ”™”—K˜Kš œžœžœ˜4K˜Kš  œžœžœ˜'K˜Kš   œžœžœ žœžœ˜2K˜Kš œžœžœžœ˜>K˜Kš  œžœžœžœ˜:K˜Kš œžœžœ˜EK˜Kš  œžœ˜!K˜Kš œžœ ˜ K˜Kš œžœ˜'K˜Kš œžœ˜&K˜Kš œžœ˜%K˜Kš œžœ˜(K˜Kšžœ˜K˜—…—œ¦