DIRECTORY Menus USING [MenuProc], Rope USING [ROPE], ViewerClasses USING [Viewer], WalnutOps USING [ServerInfo], WalnutWindowInternal USING [MsgSetButton]; WalnutDisplayerInternal: CEDAR DEFINITIONS = BEGIN Viewer: TYPE = ViewerClasses.Viewer; ROPE: TYPE = Rope.ROPE; MsgSetButton: TYPE = WalnutWindowInternal.MsgSetButton; tocDefaultLooks: ROPE; tocSelectedLooks: ROPE; tocUnreadLooks: ROPE; userWantsQMs: BOOL; plainTextStyle: ROPE; displayMsgSetInIcon: BOOL; QDisplayMsgSet: PROC[ msb: MsgSetButton, oldV: Viewer _ NIL, shift: BOOL _ FALSE, repaint: BOOL _ TRUE] RETURNS[v: Viewer]; QDisplayMsg: PROC[ msg: ROPE, oldV: Viewer _ NIL, shift: BOOL _ FALSE, openIfIconic: BOOL _ TRUE] RETURNS[v: Viewer]; DisplayMsgFromMsgSet: PROC[msg: ROPE, msViewer: Viewer, shift: BOOL _ FALSE]; MsgCategories: PROC[msg: ROPE]; MsgGvId: PROC[msg: ROPE, all: BOOL]; MsgNamePrefix: PROC RETURNS[ROPE]; MsgSetNamePrefix: PROC RETURNS[ROPE]; AddNewMsgsToActive: PROC[active: MsgSetButton] RETURNS[responses: LIST OF WalnutOps.ServerInfo, complete: BOOL, numNew: INT]; InternalAddToMsgMenu: PROC[label: ROPE, proc: Menus.MenuProc, clientData: REF ANY, onQueue: BOOL]; END. ζWalnutDisplayerInternal.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Willie-Sue, July 12, 1985 10:43:17 am PDT Donahue, May 22, 1985 11:06:28 am PDT Pavel, February 5, 1986 5:17:35 pm PST Created by: Orr, October 9, 1984 Last Edited by: Willie-Sue, January 4, 1985 11:14:23 am PST Last edited by: Donahue, January 30, 1985 3:38:34 pm PST (Changed functionality and removed some unnecessary operations) Display the message using the message viewer from the specified message set lists the MsgSets for msg, in the walnut control window prints the gvID for msg in the walnut control window called by newMail reader to add msgs to the active message set viewer; if active = NIL, then just return the server responses Κ²˜šΟb™Icodešœ Οmœ1™