DIRECTORY CD; CDStretchyBackdoor: CEDAR DEFINITIONS = BEGIN MatchProc: TYPE = PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL_FALSE]; MakeSimilarProc: TYPE = PROC [me: CD.Object, ir: CD.Rect] RETURNS [CD.Object_NIL]; HasMatchProc: PROC [ob: CD.Object] RETURNS [BOOL]; Match: PROC [me: CD.Object, r: CD.Rect, layer: CD.Layer, prim: BOOL, horz: BOOL] RETURNS [BOOL]; MakeSimilar: PROC [me: CD.Object, ir: CD.Rect] RETURNS [CD.Object_NIL]; InstallMatchProc: PROC [type: CD.ObjectClass, match: MatchProc]; InstallMakeSimilarProc: PROC [type: CD.ObjectClass, makeSimilar: MakeSimilarProc]; END. ÆCDStretchyBackdoor.mesa (part of ChipNDale) Copyright c 1984, 1986 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, October 22, 1984 10:04:35 am PDT Last edited by: Christian Jacobi, October 31, 1986 10:09:46 am PST Hack to implement stretch and stretchy move commands. --Returns whether a MatchProc has been registered --calls MatchProc --Returns similar object, or NIL if failed or no MakeSimilarProc registered ÊŠ˜codešœ2™2Kšœ Ïmœ7™BKšœ>™>K™B—K™šÏk ˜ Kšžœ˜—K˜KšÏnœžœž œ˜'Kšž˜K˜Kšœ5™5K˜Kšœ žœžœžœ žœžœžœžœžœžœžœ˜qKšœžœžœžœ žœžœžœžœ˜RK˜š Ÿ œžœžœ žœžœ˜2Kšœ1™1—K˜šŸœžœžœ žœžœžœžœžœžœ˜`Kšœ™K˜—šŸ žœžœ žœžœžœžœŸ˜GKšœK™K—K˜K˜KšŸœžœžœ ˜@KšŸœžœžœ,˜RK˜Kšžœ˜K˜K˜—…—‚Ò