<> <> DIRECTORY Menus USING [Menu], Rope USING [ROPE], ViewerClasses USING [Viewer]; WalnutExtras: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; InitialNotifyLabel: PUBLIC ROPE; <<* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *>> DoWaitCall: PROC[proc: PROC[REF ANY], ra: REF ANY_ NIL]; NotifyIfAppropriate: PROC[ra: REF ANY]; <> ExpungeProc: PROC[ra: REF ANY]; DumpProc: PROC[ra: REF ANY]; RetrieveNewMailProc: PROC[ra: REF ANY]; ScavengeProc: PROC[ra: REF ANY]; ReadMailProc: PROC[ra: REF ANY]; ChangeDBProc: PROC[ra: REF ANY]; InternalNewMail: PROC; DoScavenge: PROC[startPos: INT]; DoExpunge: PROC[doUpdates, tailRewrite: BOOL]; ChangeWalnutMenu: PROC[newMenu: Menus.Menu]; InternalChangeMenu: PROC[newMenu: Menus.Menu]; TakeDownWalnutViewers: PROC; ClearMsgSetDisplayers: PROC; SetWalnutIcons: PROC[file: ROPE]; EnumWalnutViewers: PROC[keepSeparate: BOOL] RETURNS [msgSetList, msgList, queryList: LIST OF ViewerClasses.Viewer]; LoadBcdForWalnut: PROC[who: ROPE] RETURNS[ok: BOOL]; EstablishFileNames: PROC[sName, lName: ROPE] RETURNS[segName, logName: ROPE, logIsAlp: BOOL]; ChangeDatabase: PROC[ra: REF ANY]; OpenTS: PROC[msg: ROPE_ NIL, doRegister: BOOL_ TRUE]; CloseTS: PROC[]; CheckForAutoCommit: PROC[]; END.