<> <> <> <> <> 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 OPEN Rope, ViewerClasses, ViewerTools; 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; <<***********************************************************>> <> userRName: READONLY ROPE; simpleUserName: READONLY ROPE; defaultRegistry: ROPE; TiogaCTRL: GVBasics.ItemType = LOOPHOLE[1013B]; <<***********************************************************>> <> Send: PROC[v: ViewerClasses.Viewer, doClose: BOOL_ FALSE] RETURNS[sent: BOOL]; <> BuildSendViewer: PROC[paint, iconic: BOOL, form: Form _ NIL, who: Viewer _ NIL] RETURNS[v: Viewer]; <> Answer: PROC[msgHeaders: ROPE, who: Viewer_ NIL] RETURNS [v: Viewer]; Forward: PROC[msg: Viewer, who: Viewer_ NIL] RETURNS [v: Viewer]; <> AppendHeaderLine: PROC[v: Viewer, line: ROPE, changeSelection: BOOL _ FALSE]; ClearSendViewer: PROC[v: Viewer]; <> StuffForm: PROC[v: Viewer, contents: TiogaContents]; <> RegisterReporter: PROC[strm: IO.STREAM]; <> UnregisterReporter: PROC[strm: IO.STREAM]; AddToSenderProps: PROC[ key: ATOM, proc: PROC[v: Viewer, action: ATOM, ra: REF ANY], data: REF ANY]; <> <<>> RemoveFromSenderProps: PROC[key: ATOM]; <> AddToSendMenu: PROC[label: ROPE, proc: Menus.MenuProc]; <> <<>> RemoveFromSendMenu: PROC[name: ROPE]; <> <<>> GetFieldBody: PROC[text, fieldName: ROPE] RETURNS[fieldBody: ROPE]; <> GetRecipients: PROC[sender: Viewer] RETURNS[rList: LIST OF ROPE, parseError: BOOL]; <> <<***********************************************************>> WalnutSendProc: PROC[fromExec: BOOL]; <> TiogaTextFromStrm: PROC[strm: IO.STREAM, startPos: INT_ 0, len: INT_ LAST[INT]] RETURNS[contents: TiogaContents]; <> <<>> RopeFromStream: PROC [strm: IO.STREAM, startPos: INT_ 0, len: INT_ LAST[INT]] RETURNS [ROPE]; <> RFC822Date: PUBLIC PROC[gmt: BasicTime.GMT_ BasicTime.nullGMT] RETURNS[date: ROPE]; <> END.