<> <> <> <> <<>> DIRECTORY CD; CDStretchyExtras: CEDAR DEFINITIONS = BEGIN <> MatchProc: TYPE = PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL]; Match: PROC[me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL]; HasMatchProc: PROC [me: CD.Object] RETURNS [BOOL]; InstallMatch: PROC [type: REF CD.ObjectClass, match: MatchProc]; END.