<<>> <> <> <> <<>> <> <> <<>> DIRECTORY ViewersWorldRefType; ViewersWorldInstance: CEDAR DEFINITIONS = BEGIN Ref: TYPE = ViewersWorldRefType.Ref; SetNotifyProc: TYPE = PROC [viewersWorld: Ref]; GetWorld: PROC [] RETURNS [viewersWorld: Ref]; <<>> CallWhenSet: PROC[ proc: SetNotifyProc ]; END.