DIRECTORYCD USING [ApplicationPtr, DrawRef, ObPtr],CDDirectory,CDEnvironment,CDConditions,CDProperties;CDEnvironmentImpl: CEDAR PROGRAM IMPORTS CDConditions, CDDirectory, CDPropertiesEXPORTS CDEnvironment =BEGINGetProp: PUBLIC PROC [environment: CD.DrawRef, prop: REF, skipInnerMost: NAT_0] RETURNS [REF] =BEGINIF environment.nestDepth>0 THEN {FOR c: INT _ environment.nestDepth-1, c-1 WHILE c>=0 DOap: CD.ApplicationPtr = environment.nesting.table[c];x: REF _ CDProperties.GetPropFromApplication[ap, prop];IF x#NIL THEN IF skipInnerMost=0 THEN RETURN [x] ELSE skipInnerMost _ skipInnerMost-1;IF ~InlinePropagates[ap.ob] THEN EXIT;ENDLOOP; };RETURN [NIL]END;GetIntProp: PUBLIC PROC[environment: CD.DrawRef, prop: REF, skipInnerMost: NAT_0, ifNotFound: INT_0] RETURNS [INT] =BEGINx: INT _ ifNotFound;WITH GetProp[environment: environment, prop: prop, skipInnerMost: skipInnerMost] SELECT FROMintP: REF INT => x _ intP^;ENDCASE => NULL;RETURN [x]END;Propagates: PUBLIC PROC [ob: CD.ObPtr] RETURNS [BOOL] =BEGINRETURN [InlinePropagates[ob]];END;InlinePropagates: PROC [ob: CD.ObPtr] RETURNS [BOOL] = INLINEBEGINRETURN [ob.p.reservedForCDEnvironment AND ( CDConditions.IsCondition[ob] ORCDProperties.GetPropFromObject[ob, $CDxPropagate]=$CDxPropagate)];END;AllowPropagation: PUBLIC PROC [ob: CD.ObPtr, propagates: BOOL] =BEGINIF ~ob.p.inDirectory THEN ERROR;CDProperties.PutPropOnObject[onto: ob, prop: $CDxPropagate, val: (IF propagates THEN $CDxPropagate ELSE NIL)];IF propagates THEN ob.p.reservedForCDEnvironment _ TRUE;CDDirectory.PropagateChange[ob, NIL];END;SomeChildPropagates: PUBLIC PROC [ob: CD.ObPtr] RETURNS [yes: BOOL_FALSE] =BEGINCheckAChild: CDDirectory.EnumerateObjectsProc = {IF me.p.inDirectory AND InlinePropagates[me] THEN yes _ TRUE};CDDirectory.EnumerateChildObjects[me: ob, p: CheckAChild, x: NIL];RETURN [yes]END;END.      CDEnvironmentImpl.mesa        (part of ChipNDale)Copyright c 1984, 1985 by Xerox Corporation.  All rights reserved.by Christian Jacobi, December 18, 1984 12:26:50 pm PST  last edited by Christian Jacobi, April 16, 1985 11:55:52 am PST-- Accessing the nesting environment of objects while drawing.-- Access propertylists of nesting applications while a draw process...-- Finds nested-most occurance of property prop.-- skipInnerMost: the "skipInnerMost" most nested occurences of the property are ignored.-- Returns NIL if prop is not found.-- Does not return properties from the environment of an object which does not propagate.-- it is good practice to use an impossible value for "ifNotFound"; defaulting is -- dangerous because it could hide bugs.-- propagates TRUE means GetProp (et al) will access properties of outer levels.-- propagates FALSE means GetProp (et al) will not access properties of outer levels.-- default if not called at all is FALSE-- Only allowed to objects with "inDirectory" TRUE ÊÅ  ˜ šœ1™1Jšœ
Ïmœ7™BJšœ8™8Jšœ?™?—J˜ šÏk	˜	Jšžœžœ"˜*Jšœ˜Jšœ˜Jšœ˜Jšœ˜J˜ —šÏbœžœžœ˜!Jšžœ(˜/Jšžœ˜—Jšž˜J˜ J™>J˜ šÏnœžœžœžœžœžœžœ˜_Jšœ#Ÿœ™GJ™0JšœY™YJšœ$™$J™YJšž˜šžœžœ˜!šžœžœ žœž˜7Jšœžœ/˜5Jšœžœ1˜7šžœžœžœ˜Jšžœžœžœžœ!˜H—Jšžœžœžœ˜&Jšžœ˜	—J˜—Jšžœžœ˜Jšžœ˜—J˜ š 
œžœžœžœžœžœžœžœ˜tJšœR™RJšœ(™(Jšž˜Jšœžœ˜šžœMžœž˜\Jšœžœžœ˜Jšžœžœ˜—Jšžœ˜
Jšžœ˜J˜ —š 
œžœžœžœžœžœ˜7Jšž˜Jšžœ˜Jšžœ˜—J˜ š œžœžœžœžœž˜=JšœP™PJšœU™UJšž˜šžœ˜šœžœ˜$Jšœž˜Jšœ?˜?J˜—Jšœ˜—Jšžœ˜—J˜ š
 œžœžœžœžœ˜@Jšœ(™(J™2Jšž˜Jšžœžœžœ˜ šœ˜Jšœ
˜
Jšœ˜Jš	œžœžœžœžœ˜0Jšœ˜—Jšžœžœ!žœ˜8Jšœ žœ˜%Jšžœ˜—J˜ š œžœžœžœžœžœ˜KJšž˜šŸœ&˜1Jšžœžœžœž˜<Jšœ˜—Jšœ=žœ˜BJšžœ˜Jšžœ˜J™ —šžœ˜J˜ —J˜ — …—    |  G  