CDDefaultProcs.mesa (part of ChipNDale)
Copyright © 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
DIRECTORY
CD, Rope, TokenIO;
CDDefaultProcs: CEDAR DEFINITIONS =
BEGIN OPEN CD;
class implementors default procedure
--ObjectClass
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𡤀] RETURNS [Rope.ROPE];
--DrawProcs
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];
--Fancy DrawProcs
ConvertContextsToDeviceRects:
PROC [pr:
CD.DrawRef, dDrawRect:
CD.DrawRectProc, dOrigin:
CD.Position←[0, 0], scale:
REAL𡤁];
--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
END.