WalnutMsgSetDisplayerPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Willie-Sue, October 2, 1986 2:03:04 pm PDT
Donahue, May 5, 1986 12:15:53 pm PDT
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 [Menu, MenuProc],
Rope USING [ROPE],
TiogaButtons USING [TiogaButton],
ViewerClasses USING [Viewer],
ViewerEvents USING [EventRegistration],
WalnutWindowInternal USING [MsgSetButton];
WalnutMsgSetDisplayerPrivate: CEDAR DEFINITIONS =
BEGIN
TiogaButton: TYPE = TiogaButtons.TiogaButton;
Viewer: TYPE = ViewerClasses.Viewer;
ROPE: TYPE = Rope.ROPE;
MsgSetButton: TYPE = WalnutWindowInternal.MsgSetButton;
displayerMenu: Menus.Menu;
activeMenu: Menus.Menu;
deletedMenu: Menus.Menu;
buildingMenu: Menus.Menu;
readOnlyMenu: Menus.Menu;
MsgSetInfo: TYPE = REF MsgSetInfoRec;
MsgSetInfoRec: TYPE = RECORD [
button: MsgSetButton, -- the message set button in the control panel that this message set is bound to
tiogaViewer: Viewer,  -- only child, $TiogaButton viewer
container: Viewer,   -- back pointer to msgSet viewer
selected: MsgSetFieldHandle,
lastMFH: MsgSetFieldHandle,
destroyER: ViewerEvents.EventRegistration
];
MsgSetFieldHandle: TYPE = REF MsgSetFieldHandleRec;
MsgSetFieldHandleRec: TYPE = RECORD[
next, prev: MsgSetFieldHandle,
tocButton: TiogaButton,  -- TableOfContentsButton
container: Viewer,  -- back pointer to msgSet viewewr
msgInfo: MsgInfo  -- constant for a message
];
MsgInfo: TYPE = REF MsgInfoRec;
MsgInfoRec: TYPE = RECORD[ msg, tocName: ROPE, startOfSubject: INT, hasBeenRead: BOOL ];
procs exported by WalnutMsgSetDisplayerImpl
AddProc: Menus.MenuProc;
CategoriesProc: PROC[viewer: Viewer];
DeleteProc: Menus.MenuProc;
DisplayProc: Menus.MenuProc;
MoveToProc: Menus.MenuProc;
NewMailProc: PROC[viewer: Viewer];
PrintSelectedProc: PROC[viewer: Viewer, usePress: BOOL];
AppendMsgProc: PROC[viewer: Viewer];
END.