<> <> <> 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.