ImagerBackdoorPrivate.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
Mik Lamming, August 1, 1986 1:52:41 pm PDT
DIRECTORY
Imager USING [Context],
ImagerBackdoor USING [Clipper, Visibility],
ImagerPath USING [PathProc],
Vector2 USING [VEC];
ImagerBackdoorPrivate: CEDAR DEFINITIONS
~ BEGIN
Clipper: TYPE ~ ImagerBackdoor.Clipper;
Context: TYPE ~ Imager.Context;
PathProc: TYPE ~ ImagerPath.PathProc;
VEC: TYPE ~ Vector2.VEC;
Visibility: TYPE ~ ImagerBackdoor.Visibility;
Class: TYPE ~ REF ClassRep;
ClassRep: TYPE ~ RECORD [
type: ATOM ←,
ViewReset: PROC [context: Context] ←,
ViewTranslateI: PROC [context: Context, x, y: INTEGER] ←,
ViewClip: PROC [context: Context, path: PathProc, parity: BOOL, exclude: BOOL] ←,
ViewClipRectangleI: PROC [context: Context, x, y, w, h: INTEGER, exclude: BOOL] ←,
ViewFromClient: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
ClientFromView: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
DeviceFromView: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
ViewFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
DeviceFromClient: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
ClientFromDevice: PROC [context: Context, p: VEC] RETURNS [VEC] ←,
MoveViewRectangle: PROC [context: Context, width, height, fromX, fromY, toX, toY: INTEGER] ←,
TestViewRectangle: PROC [context: Context, x, y, w, h: INTEGER] RETURNS [Visibility] ←
];
END.