[Indigo]<Walnut>OldWalnut>WalnutControlPrivate.mesa!1

WalnutControlPrivate.Mesa

private interface for the Walnut Control Monitor

Last Edited by: Willie-Sue, July 17, 1984 3:21:30 pm PDT

DIRECTORY

GVRetrieve,

Menus USING [Menu],

Rope USING [ROPE];

WalnutControlPrivate: CEDAR DEFINITIONS =

BEGIN

segmentName: ATOM;

doingCheckpoint: BOOL;

rollbackFinished: CONDITION;

forceQuitMenu: Menus.Menu;

maybeQuitMenu: Menus.Menu;

scavMenu: Menus.Menu;

mailDBMenu: Menus.Menu;

readOnlyDBMenu: Menus.Menu;

nonMailDBMenu: Menus.Menu;

previousUser: Rope.ROPE;

mustQuitWalnut: Rope.ROPE;

lastStateReported: GVRetrieve.MBXState;

* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *

InternalConfirm: PROC[m: Menus.Menu← NIL] RETURNS[BOOL];

WalnutNotifier: PROC;

CloseDownWalnut: PROC[doCommit: BOOL];

CloseTransactions: PROC[doCommit: BOOL];

StartOrRestartWalnut: PROC[firstTime: BOOL← FALSE, scavengeFirst: BOOL← FALSE]

RETURNS[BOOL];

QuitWalnut: PROC[ra: REF ANY ];

ClosingWalnut: PROC[ra: REF ANY];

FlushWQueue: PROC;

END.