Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*>
UNSAFE INTERFACE XGC;
IMPORT X, XScreenType, PaintPrivate, Point, TrestleComm, VBT, XScrnPntOp;
REVEAL XScreenType.T <: T;
TYPE
T_Pub = XScrnPntOp.T OBJECT END;
T <: T_Pub;
TYPE
XMode = {UseCopyPlane, UseCopyArea, UseFillRect, UseImageString,
UseDrawString};
PROCEDURE ResolveTintGC (dpy: X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolveTextureGC ( dpy: X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp;
pm : PaintPrivate.Pixmap;
READONLY del: Point.T ): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolveFillGC ( dpy : X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp;
pm : PaintPrivate.Pixmap;
READONLY del : Point.T;
wind: VBT.WindingCondition ): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolveStrokeGC ( dpy : X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp;
pm : PaintPrivate.Pixmap;
READONLY del : Point.T;
width: CARDINAL;
end : VBT.EndStyle;
join : VBT.JoinStyle ): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolvePixmapGC ( dpy : X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp;
pm : PaintPrivate.Pixmap;
READONLY delta: Point.T;
VAR (*OUT*) mode : XMode;
VAR (*OUT*) src : X.Pixmap ): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolveScrollGC (dpy: X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp): X.GC
RAISES {TrestleComm.Failure};
PROCEDURE ResolveTextGC ( dpy : X.DisplayStar;
w : X.Window;
st : XScreenType.T;
op : PaintPrivate.PaintOp;
clipped: BOOLEAN;
fnt : PaintPrivate.Font;
VAR (*OUT*) mode : XMode ): X.GC
RAISES {TrestleComm.Failure};
END XGC.