CDStretchyExtras.mesa (part of ChipNDale)
Copyright © 1984, 1985 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 3:57:21 am PDT
CDStretchyExtras: CEDAR DEFINITIONS =
BEGIN
Hack to implement the stretchy move command.
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.