<> <> <> <> <> <> <> <> <<(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]; <> 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.