Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> UNSAFE INTERFACEXPaint ; IMPORT XClientF, TrestleOnX, XScreenType, X, PaintPrivate; REVEAL TrestleOnX.Display = XClientF.T_Abs BRANDED OBJECT END; TYPE T <: TrestleOnX.Display; (* T supplies the painting and capturing methods *) PROCEDURE ForceCapturePM (st : XScreenType.T; dpy: X.DisplayStar; pm : PaintPrivate.Pixmap) RAISES {X.Error}; END XPaint.