-- File: NutViewerPrivateImpl.mesa-- Contents: Access to nutList-- Created by: Rick & Willie-Sue on July 8, 1982-- Last edited by:--   Rick Cattell on July 5, 1983 5:00 pm--   Willie-Sue on January 21, 1983 8:56 am--   Jim Donahue, March 22, 1983 12:17 pmDIRECTORY  Atom USING [GetPName],  DB,  Nut,  NutViewer,  Rope,  ViewerClasses USING[Viewer],  ViewerOps,  VirtualDesktops USING[EnumerateViewers];NutViewerPrivateImpl: CEDAR MONITOR	IMPORTS DB, Rope, ViewerOps, VirtualDesktops, Atom	EXPORTS NutViewer =BEGIN OPEN Nut;Viewer: TYPE = ViewerClasses.Viewer;tiptoe: PUBLIC BOOLEAN _ FALSE; -- TRUE when want as few db accesses as possible-- * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * *FindViewer: PUBLIC ENTRY PROC	[ type: Nut.NutType, domain: DB.Domain, eName: Rope.ROPE, seg: DB.Segment]	RETURNS[Viewer] =  BEGIN  entity: ROPE = Rope.Cat[ Atom.GetPName[seg], "!", DB.NameOf[domain], "!", eName ];  FOR nL: LIST OF Viewer _ GetNutList[], nL.rest UNTIL nL=NIL DO     typeProp: REF ANY = ViewerOps.FetchProp[ nL.first, $NutType ];     nutType: Nut.NutType = IF typeProp = NIL THEN displayer      						ELSE NARROW[typeProp, REF Nut.NutType]^;     IF nutType # type THEN LOOP;     IF  NOT Rope.Equal[entity, NARROW[ ViewerOps.FetchProp[nL.first, $Entity]]] THEN LOOP;     IF nL.first.destroyed THEN LOOP;     RETURN[nL.first];     ENDLOOP;  RETURN[NIL];  END;FindSpawned: PUBLIC ENTRY PROC[v: Viewer] RETURNS[Viewer] =  BEGIN  IF v = NIL THEN RETURN[NIL];  { spawn: Viewer = NARROW[ ViewerOps.FetchProp[ v, $LastSpawned ], Viewer ];    IF spawn = NIL OR spawn.destroyed THEN RETURN[ NIL ];    IF ViewerOps.FetchProp[spawn, $Frozen] = NIL THEN RETURN[ spawn ];    RETURN[ NIL ] }  END;SetSpawned: PUBLIC ENTRY PROC[parent, spawned: Viewer] =  BEGIN  IF parent = NIL THEN RETURN;  ViewerOps.AddProp[ parent, $LastSpawned, spawned ];  IF spawned # NIL THEN ViewerOps.AddProp[ spawned, $WhoSpawnedMe, parent ];  END;  GetNutList: INTERNAL PROC RETURNS[nL: LIST OF Viewer] =  BEGIN   enum: ViewerOps.EnumProc =    { name: ROPE = NARROW[ViewerOps.FetchProp[v, $Entity]];       IF name # NIL THEN nL_ CONS[v, nL];       RETURN[TRUE] };	VirtualDesktops.EnumerateViewers[enum];  END;END.     Э╩▄  Ш JЪ▄╧cЖЬ╧k	ЬЮЬ?ЮЬ)ЮЬ+ЮЬЮЬЮЬ-ЮЬЮЬЮЬЮЬ"ЮЬЮЬЮЬЭ1ЬЭKЬ╧n
ЬЮЬЮЬЮЬ6ЮЬЮЬЮЬЮЬIЮЬЮЬЮЬ ЮЬЮЬЮЬЮЬЮЬJЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ+ЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЯЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬ8ЮЬ	ЮЬЮЬЮЬЮЬЮЬЮЬ'ЮЬЮЬЮЬЮЬЮЬЮЬЯ
ЬЮЬЮЬЮЬЮЬЮЬ
ЮЬЮЬЮЬ:ЮЬЮЬЮЬ8ЮЬЯ
ЬЮЬЮЬЮЬЮЬЮЬЮЬ+ЮЬЮЬ*ЮЬЮЬЮЬЮЬЮЬЮЬ0ЮЬЮЬШшЧ ЕЧ    ъ  
╠  