DIRECTORY CD, Rope, TokenIO; CDDefaultProcs: CEDAR DEFINITIONS = BEGIN QuickDrawMe: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; DrawMe: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; ShowMeSelected: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; ShowMeSelectedWithExpand: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; HitInside: PROC [ob: CD.Object, hitRect: CD.Rect] RETURNS [BOOL]; InterestRect: PROC [ob: CD.Object] RETURNS [CD.Rect]; InterestRectWithExpand: PROC [ob: CD.Object] RETURNS [CD.Rect]; BadInternalRead: PROC [h: TokenIO.Handle, key: ATOM] RETURNS [CD.Object]; Describe: PROC [ob: CD.Object, readOnlyInstProps: CD.PropList_NIL, verbosity: NAT_0] RETURNS [Rope.ROPE]; DrawChild: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; IgnoreChild: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; DrawChildSel: PROC [pr: CD.DrawRef, ob: CD.Object, trans: CD.Transformation_[], readOnlyInstProps: CD.PropList_NIL]; DrawRect: PROC [pr: CD.DrawRef, r: CD.Rect, l: CD.Layer]; IgnoreRect: PROC [pr: CD.DrawRef, r: CD.Rect, l: CD.Layer]; ContextOutLine: PROC [pr: CD.DrawRef, r: CD.Rect, l: CD.Layer]; DrawComment: PROC [pr: CD.DrawRef, r: CD.Rect, comment: Rope.ROPE]; DrawContext: PROC [pr: CD.DrawRef, proc: CD.DrawContextLayerProc, ob: CD.Object, trans: CD.Transformation, layer: CD.Layer]; IgnoreGround: PROC [pr: CD.DrawRef, pushedOut: BOOL]; IgnorePriority: PROC [pr: CD.DrawRef]; ConvertContextsToDeviceRects: PROC [pr: CD.DrawRef, dDrawRect: CD.DrawRectProc, dOrigin: CD.Position_[0, 0], scale: REAL_1]; END. ÒCDDefaultProcs.mesa (part of ChipNDale) Copyright c 1985, 1987 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, May 22, 1985 3:35:49 pm PDT Last edited by: Christian Jacobi, January 6, 1987 11:48:33 am PST Handy procedures for class implementors --ObjectClass --DrawProcs --Fancy DrawProcs --Overwrites DrawContext with a procedure scan converting in device coordinates --pr: device description... must not have a deviceContext --dDrawRect: call back procedure returns rectangles in [only partly clipped] device space --dOrigin: origin for device in cd coordinates: the point at dOrigin will be translated -- to [0, 0] in device coordinates --scale: device number _ cd number * scale Ê)˜codešœ(™(Kšœ Ïmœ7™BKšœ5Ïk™8Kšœ>ž™A—K˜šž ˜ Kšžœ˜—K˜KšÏnœžœž œ˜$Kšžœ˜K˜Kšœ'™'K˜K™KšÏc ™ K˜KšŸ œžœžœžœžœ'žœ žœ˜sKšŸœžœžœžœžœ'žœ žœ˜nKšŸœžœžœžœžœ'žœ žœ˜vKšŸœžœžœžœžœ'žœ žœ˜€Kš Ÿ œžœžœžœžœžœ˜AKš Ÿ œžœžœ žœžœ˜5Kš Ÿœžœžœ žœžœ˜?Kš Ÿœžœžœžœžœ ˜IKšŸœžœžœžœ žœ žœžœžœ˜iK˜K™Kš  ™ K˜KšŸ œžœžœžœžœ'žœ žœ˜qKšŸ œžœžœžœžœ'žœ žœ˜sKšŸ œžœžœžœžœ'žœ žœ˜tKš Ÿœžœžœ žœ žœ˜9Kš Ÿ œžœžœ žœ žœ˜;Kš Ÿœžœžœ žœ žœ˜?Kš Ÿ œžœžœ žœžœ˜CKšŸ œžœžœžœžœžœžœ˜|KšŸ œžœžœžœ˜5KšŸœžœžœ ˜&K˜K™Kš ™K˜š Ÿœžœžœžœžœžœ˜|Kš P™PKš 9™9Kš Y™YKš X™XKš "™"Kš *™*K™—Kšžœ˜K˜—…—N I