ui/src/xvbt/XPaint.i3


Copyright (C) 1994, Digital Equipment Corp.
 by Steve Glassman, Mark Manasse and Greg Nelson 
<*PRAGMA LL*>

UNSAFE INTERFACE XPaint;

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.