-- WalnutExtras.Mesa -- Last Edited by: Willie-Sue, September 26, 1983 11:46 am 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]; -- if ra is a WalnutQueueEntry THEN does a NOTIFY on its condition variable 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]; 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: ROPE, lName: ROPE_ NIL] RETURNS[segName, logName: ROPE, logIsAlp, alpNeeded: BOOL]; ChangeDatabase: PROC[ra: REF ANY]; END. Ę‰˜JšŗĪcPœĪk œžœžœžœžœ Īn œžœž œžœžœžœ žœžœžœKŸ œžœžœžœžœžœžœžœŸœžœžœžœMœŸ œžœžœŸœžœžœŸœžœžœŸ œžœžœŸ œžœžœŸ œžœžœŸœžœŸ œžœ žœŸ œžœžœŸœžœŸœžœŸœžœŸœžœžœŸœžœžœžœ"žœžœžŸœžœžœžœžœžŸœžœžœ žœžœžœžœžœžŸœžœžœžœžœ˜š —…—Ģ