DIRECTORYCD, Rope, TokenIO;CDDefaultProcs: CEDAR DEFINITIONS = BEGIN OPEN CD; QuickDrawMe: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];DrawMe: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];ShowMeSelected: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];ShowMeSelectedWithExpand: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];HitInside: PROC [ob: Object, hitRect: Rect] RETURNS [BOOL];InterestRect: PROC [ob: Object] RETURNS [Rect];InterestRectWithExpand: PROC [ob: Object] RETURNS [Rect];InternalRead: PROC [h: TokenIO.Handle, key: ATOM] RETURNS [Object];Describe: PROC [ob: Object, readOnlyInstProps: PropList_NIL, verbosity: NAT_0] RETURNS [Rope.ROPE];DrawChild: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];DrawChildSel: PROC [pr: REF DrawInformation, ob: CD.Object, trans: Transformation_[], readOnlyInstProps: PropList_NIL];DrawRect: PROC [pr: DrawRef, r: Rect, l: Layer];IgnoreOutLine: PROC [pr: DrawRef, r: Rect, l: Layer];ContextOutLine: PROC [pr: DrawRef, r: Rect, l: Layer];DrawComment: PROC [pr: DrawRef, r: Rect, comment: Rope.ROPE];DrawContext: PROC [pr: DrawRef, proc: DrawContextLayerProc, ob: Object, trans: Transformation, layer: Layer];IgnoreGround: PROC [pr: DrawRef, pushedOut: BOOL];IgnorePriority: PROC [pr: 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, 1986 by Xerox Corporation.  All rights reserved.Created by Ch. Jacobi, May 22, 1985 3:35:49 pm PDTLast edited by: Christian Jacobi, December 4, 1986 4:51:14 pm PSTclass implementors default procedure--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Êa  ˜ codešœ(™(Kšœ
Ïmœ7™BKšœ2™2K™A—K˜ šÏk	˜	Kšžœ˜—K˜ KšÏnœžœžœ˜$Kšž
œžœ˜K˜ Kšœ$™$K˜ Kšœ™K˜ Kš
Ÿœžœžœžœ?žœ˜vKš
Ÿœžœžœžœ?žœ˜qKš
Ÿœžœžœžœ?žœ˜yKš
Ÿœžœžœžœ?žœ˜ƒKšŸ	œžœžœžœ˜;KšŸœžœžœ˜/KšŸœžœžœ˜9KšŸœžœžœžœ
˜CKšŸœžœ*žœžœžœžœ˜cK˜ Kšœ™K˜ Kš
Ÿ	œžœžœžœ?žœ˜tKš
Ÿœžœžœžœ?žœ˜wKšŸœžœ"˜0KšŸœžœ"˜5KšŸœžœ"˜6KšŸœžœ&žœ˜=KšŸœžœ\˜mKšŸœžœžœ˜2KšŸœžœ˜#K˜ K™ Kšœ™K˜ šŸœžœžœžœžœžœ˜|KšœP™PKšœ9™9KšœY™YKšœX™XKšœ"™"Kšœ*™*K™ —Kšžœ˜K˜ — …—    ¤  Ë  