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] = BEGIN match: BOOL _ FALSE; refP: REF = CDProperties.GetProp[me.class.properties, furtherKey]; IF refP#NIL THEN WITH refP SELECT FROM mp: REF MatchProc => match _ mp^[me, r, layer, prim, horz]; ENDCASE => NULL; RETURN [match] END; HasMatchProc: PUBLIC PROC [me: CD.Object] RETURNS [BOOL] = BEGIN RETURN [CDProperties.GetProp[me.class.properties, furtherKey]#NIL]; END; furtherKey: ATOM = $StretchyExtras; InstallMatch: PUBLIC PROC [type: REF CD.ObjectClass, match: MatchProc] = BEGIN CDProperties.PutProp[type, furtherKey, NEW[MatchProc_match]]; END; [] _ CDProperties.RegisterProperty[furtherKey]; END. RCDStretchyExtrasImpl.mesa (part of ChipNDale) Copyright c 1984 by Xerox Corporation. All rights reserved. by Christian Jacobi, October 22, 1984 10:04:35 am PDT last edited by Christian Jacobi, September 19, 1985 8:41:52 pm PDT --PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL]; Êß˜codešœ4™4Kšœ Ïmœ1™