(* Copyright (C) 1992, Digital Equipment Corporation *) (* All rights reserved. *) (* See the file COPYRIGHT for a full description. *) (* *) (* by Steve Glassman, Mark Manasse and Greg Nelson *) (* Last modified on Fri Oct 30 17:30:13 PST 1992 by msm *) (* modified on Mon Feb 24 13:59:46 PST 1992 by muller *) <*PRAGMA LL*> UNSAFE INTERFACE XPaint; IMPORT XClientF, TrestleOnX; REVEAL TrestleOnX.Display = XClientF.T_Abs BRANDED OBJECT END; TYPE T <: TrestleOnX.Display; (* T supplies the painting and capturing methods *) END XPaint.