DIRECTORYGVBasics USING [RName],GVSend USING [Handle],Menus USING [Menu],Rope  USING [ROPE],ViewerClasses USING [Viewer],ViewerEvents USING [EventRegistration],ViewerTools USING [TiogaContents],WalnutSendOps USING [Form];WalnutSendInternal: CEDAR DEFINITIONS = BEGINROPE: TYPE = Rope.ROPE;TiogaContents: TYPE = ViewerTools.TiogaContents;Viewer: TYPE = ViewerClasses.Viewer;SendMsgRecObject: TYPE = RECORD[fullText: ROPE,	-- text to be sentfrom: ROPE,		-- The From: fieldto: LIST OF GVBasics.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];ShowErrorFeedback: PROC[v: Viewer, start, end: INT];DeleteChars: PROC[v: Viewer, num: INT];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];GetSendForm: PROC[fileName: ROPE] RETURNS[text: TiogaContents];InternalDisplayTioga: PROC[senderInfo: SenderInfo, tc: TiogaContents, grab: BOOL];InsertForm: PROC[ sender: SenderInfo, form: WalnutSendOps.Form, force: BOOL ];DoPlaceHolders: PROC[senderV: Viewer, fieldsList: LIST OF ROPE];EntryInsertForm: PROC[senderInfo: SenderInfo, form: WalnutSendOps.Form];EntryPlaceHolders: PROC[senderInfo: SenderInfo, fieldsList: LIST OF ROPE];InternalDestroySplits: PROC[keepThisOne: Viewer];END.  ì  WalnutSendInternal.mesa - internal interface for the implementation modulesCopyright c 1984, 1985 by Xerox Corporation.  All rights reserved.Willie-Sue on August 15, 1986 4:57:07 pm PDT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)procs moved to WalnutSendOpsImpl, needed in WalnutSendControlImplexported from WalnutSendcontrolImpl for use by WalnutSendOpsImpl ÊO  ˜ codešœK™KKšœ
Ïmœ7™BKšœ,™,Kšœ"™"K™1—K˜ šÏk	˜	Kšœ	žœ	˜Kšœžœ
˜Kšœžœ˜Kšœžœžœ˜Kšœžœ
˜Kšœžœ˜'Kšœžœ˜"Kšœžœ˜K˜ —Kšœžœžœž˜-K˜ Kšžœžœžœ˜Kšœžœ˜0Kšœžœ˜$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šœe˜eK˜ —Kšœžœ˜Kšœžœ˜Kšœžœ˜K˜ K˜RK˜ Kšœ;™;K˜ šÏnœžœžœ	žœžœžœžœžœ˜qKšœ”™”—K˜ Kš œžœžœ˜4K˜ Kš œžœžœ˜'K˜ Kš œžœžœžœ˜>K˜ Kš œžœžœžœ˜:K˜ Kš œžœžœ˜EK˜ Kš 	œžœ˜!K˜ Kš œžœ˜ K˜ Kš œžœ˜'K˜ Kš œžœ˜&K˜ Kš œžœ˜%K˜ Kš œžœ˜(K˜ K™AK˜ Kš œžœžœžœ˜?K˜ Kš œžœ2žœ˜RK˜ Kš 
œžœ7žœ˜NK˜ Kš
 œžœžœžœžœ˜@K˜ K™@K˜ Kš œžœ3˜HK˜ Jš
 œžœ%žœžœžœ˜JJ˜ Jš œžœ˜1K˜ Kšžœ˜K˜ — …—    
Ú    