<> <> <> <> <> <<>> DIRECTORY CD, CDProperties, CDStretchyExtras; CDStretchyExtrasImpl: CEDAR PROGRAM IMPORTS CDProperties EXPORTS CDStretchyExtras = BEGIN MatchProc: TYPE = CDStretchyExtras.MatchProc; Match: PUBLIC PROC[me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL _ FALSE] = { WITH CDProperties.GetProp[me.class.properties, furtherKey] SELECT FROM mp: REF MatchProc => RETURN [ mp^[me, r, layer, prim, horz] ]; ENDCASE => NULL; }; HasMatchProc: PUBLIC PROC [me: CD.Object] RETURNS [BOOL] = { RETURN [CDProperties.GetProp[me.class.properties, furtherKey]#NIL]; }; furtherKey: ATOM = $StretchyExtras; InstallMatch: PUBLIC PROC [type: CD.ObjectClass, match: MatchProc] = { CDProperties.PutProp[type, furtherKey, NEW[MatchProc_match]]; }; [] _ CDProperties.RegisterProperty[furtherKey]; END.