Copyright © 1985 by Xerox Corporation. All rights reserved.

by Ch. Jacobi, May 22, 1985 3:35:49 pm PDT

last edited by Ch. Jacobi, June 11, 1985 9:45:33 am PDT

CD, Rope;

BEGIN

OPEN CD;

--Object class implementors business

--ObjectClass

QuickDrawMe: PROC [inst: Instance, pos: Position, orient: Orientation, pr: REF DrawInformation];

DrawMe: PROC [inst: Instance, pos: Position, orient: Orientation, pr: REF DrawInformation];

ShowMeSelected: PROC [inst: Instance, pos: Position, orient: Orientation, pr: REF DrawInformation];

HitInside: PROC [ob: Object, hitRect: Rect] RETURNS [BOOL];

InterestRect: PROC [ob: Object] RETURNS [Rect];

OldInsideRect: PROC [ob: Object] RETURNS [Rect];

InternalWrite: PROC [me: Object];

InternalRead: PROC [] RETURNS [Object];

Describe: PROC [me: Object] RETURNS [Rope.ROPE];

DescribeInstance: PROC [ap: Instance] RETURNS [Rope.ROPE];

Origin: PROC [ob: Object] RETURNS [Position];

--DrawProcs

DrawChild: PROC [inst: Instance, pos: Position, orient: Orientation, pr: REF DrawInformation];

DrawRect: PROC [r: Rect, l: Layer, pr: DrawRef];

DrawOutLine: PROC [r: Rect, pr: DrawRef];

DrawComment: PROC [r: Rect, comment: Rope.ROPE, pr: DrawRef];

DrawContext: PROC [pr: DrawRef, proc: DrawContextLayerProc, ob: Object, pos: Position, orient: Orientation, layer: Layer];

SetGround: PROC [pr: DrawRef, pushedOut: BOOL];

END.