-- File: WalnutNuts.mesa -- Contents: Interface for Nut Procs for displaying msgs & msgsets. -- Created by: Willie-Sue, March 15, 1983 -- Last edited by: -- Willie-Sue on: August 11, 1983 9:51 am -- Donahue, December 13, 1983 9:05 am -- Cattell, June 8, 1983 3:54 pm DIRECTORY DB USING[NameOf], Nut, NutViewer USING[ SetIcon ], PrincOpsUtils USING [IsBound], WalnutDB, WalnutDisplayerOps, ViewerClasses; WalnutNuts: CEDAR PROGRAM IMPORTS DB, Nut, NutViewer, PrincOpsUtils, WalnutDisplayerOps, WalnutDB = BEGIN ---------------------------- MsgDisplayerCreate: Nut.CreateProc = { RETURN[WalnutDisplayerOps.CreateMsgViewer[eName]] }; MsgDisplayer: Nut.DisplayProc = {WalnutDisplayerOps.DisplayMsgInViewer[DB.NameOf[e], newV]}; MsgSetDisplayerCreate: Nut.CreateProc = { RETURN[WalnutDisplayerOps.CreateMsgSetViewer[eName]] }; MsgSetDisplayer: Nut.DisplayProc = {WalnutDisplayerOps.DisplayMsgSetInViewer[DB.NameOf[e], newV]}; RegisterNutProcs: PROC = BEGIN TRUSTED {IF ~PrincOpsUtils.IsBound[Nut.Register] THEN RETURN}; NutViewer.SetIcon[ WalnutDB.MsgDomain, "/Indigo/Cedar/Walnut/Walnut.icons", 2 ]; NutViewer.SetIcon[ WalnutDB.MsgSetDomain, "/Indigo/Cedar/Walnut/Walnut.icons", 1 ]; Nut.Register[ domain: "Msg", segment: $Walnut, display: MsgDisplayer, create: MsgDisplayerCreate]; Nut.Register[domain: "MsgSet", segment: $Walnut, display: MsgSetDisplayer, create: MsgSetDisplayerCreate]; END; DeregisterNutProcs: PROC = BEGIN TRUSTED {IF ~PrincOpsUtils.IsBound[Nut.Register] THEN RETURN}; Nut.DeRegister[$Walnut, "Msg"]; Nut.DeRegister[$Walnut, "MsgSet"]; END; TRUSTED { IF PrincOpsUtils.IsBound[WalnutDisplayerOps.CreateMsgViewer] THEN RegisterNutProcs[] }; END. Ź¹˜JšIĻc›œuœĻk œ(žœžœLžœžœžœGžœœĻnœžœ/Ÿ œUŸœžœ3ŸœXŸœžœžœžœžœ&žœžœžœŸœžœžœžœžœ&žœžœJžœžœžœ;žœžœ˜Ķ J˜—…—Š