-- File: WalnutSendOps.mesa--  public interface to Mail Sending operations-- Created by: Haugeland, August 5, 1983-- Edited by Willie-Sue on December 13, 1983 1:58 pm-- Last Edited by: Donahue, September 2, 1983 9:39 amDIRECTORY	BasicTime USING [GMT, nullGMT],	GVBasics USING [ItemType],	IO USING [STREAM],	Menus USING [MenuProc],	Rope  USING [ROPE],	ViewerClasses USING [Viewer],	ViewerTools USING [TiogaContents];	WalnutSendOps: CEDAR DEFINITIONS =BEGINROPE: TYPE = Rope.ROPE;Viewer: TYPE = ViewerClasses.Viewer;TiogaContents: TYPE = ViewerTools.TiogaContents;Form: TYPE = REF FormRec;FormRec: TYPE = RECORD[formText: ViewerTools.TiogaContents, fields: LIST OF ROPE _ NIL];FormAttr: TYPE = RECORD[ name: ROPE, val: ROPE ];defaultText: READONLY ViewerTools.TiogaContents;answerText: READONLY ViewerTools.TiogaContents;forwardText: READONLY ViewerTools.TiogaContents;labelFont: READONLY ROPE;-- ***********************************************************--  used by various Walnut procsuserRName: READONLY ROPE;simpleUserName: READONLY ROPE;defaultRegistry: ROPE;TiogaCTRL: GVBasics.ItemType;-- ***********************************************************-- Sending messages & dealing with sender viewers [WalnutSendCommonImpl]Send: PROC[v: ViewerClasses.Viewer, doClose: BOOL_ FALSE] RETURNS[sent: BOOL];  -- is given a text viewer set up for sending; does the sendingBuildSendViewer: PROC[paint, iconic: BOOL, form: Form _ NIL, who: Viewer _ NIL]			RETURNS[v: Viewer];  -- builds sending viewerAnswer: PROC[msgHeaders: ROPE, who: Viewer_ NIL] RETURNS [v: Viewer];Forward: PROC[msg: Viewer, who: Viewer_ NIL] RETURNS [v: Viewer]; -- this needs the whole viewer because it's doing a secondary selection on all of itAppendHeaderLine: PROC[v: Viewer, line: ROPE, changeSelection: BOOL _ FALSE];ClearSendViewer: PROC[v: Viewer];--  fills in senderV with the default formStuffForm: PROC[v: Viewer, contents: TiogaContents];--  displays contents in senderV, grabs focus & selects first placeholderRegisterReporter: PROC[strm: IO.STREAM];--  allows Walnut to have WalnutSend use its reporting procedureUnregisterReporter: PROC[strm: IO.STREAM];AddToSendMenu: PROC[label: ROPE, proc: Menus.MenuProc];--  adds a menu button to the sender's menu-- ***********************************************************WalnutSendProc: PROC[fromExec: BOOL];--  create a viewer for sending msgsTiogaTextFromStrm: PROC[strm: IO.STREAM, startPos: INT_ 0, len: INT_ LAST[INT]]   RETURNS[contents: TiogaContents];--  returns NIL IF EndOfStream encountered during readRFC822Date: PUBLIC PROC[gmt: BasicTime.GMT_ BasicTime.nullGMT] RETURNS[date: ROPE];--  generates arpa standard time, dd mmm yy hh:mm:ss zzzEND.      Э╩√  Ш JЪы╧cГЬЭ^Ь╧k	ЬЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ#ЮЬЮЬЮЬЮЬЮЬЮЬ
ЮЬ(ЮЬ%ЮЬЮЬЮЬЮЬ.ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ)ЮЬ*ЮЬ(ЮЬЮЬЭ_ЬЮЬЮЬЮЬЮЬЮЬ ЭЙЬ╧nЬЮЬ#ЮЬЮЬЮЬЮЬЭ?ЬЯЬЮЬЮЬЮЬЮЬЮЬЭЬЯЬЮЬЮЬЮЬЮЬЯЬЮЬЮЬЮЬЭUЬЯЬЮЬЮЬЮЬЮЬЯЬЮЬЭ+ЬЯ	ЬЮЬ&ЭJЬЯЬЮЬЮЬЮЬЭAЬЯЬЮЬЮЬЮЬЯЬЮЬЮЬЭ,ЬЭ?ЬЯЬЮЬЮЬЭ%ЬЯЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬЮЬЭ6ЮЬЯ
ЬЮЬЮЬЮЬЮЬЮЬЭ9ЬЮЬШ╙Ч ЕЧ    
╓  ╫  