WalnutDisplayerInternal.mesa
Copyright © 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)
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];
Display the message using the message viewer from the specified message set
MsgCategories:
PROC[msg:
ROPE];
lists the MsgSets for msg, in the walnut control window
MsgGvId:
PROC[msg:
ROPE, all:
BOOL];
prints the gvID for msg in the walnut control window
MsgNamePrefix: PROC RETURNS[ROPE];
MsgSetNamePrefix: PROC RETURNS[ROPE];
AddNewMsgsToActive:
PROC[active: MsgSetButton]
RETURNS[responses: LIST OF WalnutOps.ServerInfo, complete: BOOL, numNew: INT];
called by newMail reader to add msgs to the active message set viewer; if active = NIL, then just return the server responses
InternalAddToMsgMenu:
PROC[label:
ROPE, proc: Menus.MenuProc,
clientData: REF ANY, onQueue: BOOL];
END.