<<>> <> <> <> <> <<>> DIRECTORY Xl; XlGContextOps: CEDAR DEFINITIONS ~ BEGIN OPEN Xl; <<>> ContextValueKey: TYPE = MACHINE DEPENDENT { function, planeMask, foreground, background, lineWidth, lineStyle, capStyle, joinStyle, fillStyle, fillRule, tile, stipple, tileStippleXOrigin, tileStippleYOrigin, font, subwindowMode, graphicsExposures, clipXOrigin, clipYOrigin, clipMask, dashOffset, dashes, arcMode, unused23, unused24, unused25, unused26, unused27, unused28, unused29, unused30, unused31(31)}; GCValueMask: TYPE = PACKED ARRAY ContextValueKey OF BOOL; GCID: PROC [gc: GContext, flush: BOOL ¬ TRUE] RETURNS [id: ID]; <> <> <> SetGContext: PROC [gc: GContext, key: ContextValueKey, value: CARD32]; <> <> FlushGContext: PROC [gc: GContext, drawable: Drawable ¬ nullDrawable, details: Details ¬ NIL]; <> <> << >> InvalidateGC: PROC [gc: GContext, value: ContextValueKey]; <> <> InvalidateGCMask: PROC [gc: GContext, mask: GCValueMask ¬ ALL[TRUE]]; <> <> ValidateGC: PROC [gc: GContext, value: ContextValueKey]; <> <> <<>> ValidateGCMask: PROC [gc: GContext, mask: GCValueMask ¬ ALL[FALSE]]; <> <> CopyGC: PROC [c: Connection, srcGCID, destGCID: ID, mask: GCValueMask ¬ ALL[FALSE], details: Details ¬ NIL]; <> <> <<>> END.