Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> UNSAFE INTERFACEXScrnPntOp ; IMPORT ScrnPaintOp, XScreenType, XScrnCrsr; REVEAL XScreenType.T <: T; TYPE T_Pub = XScrnCrsr.T OBJECT END; T <: T_Pub; PROCEDURE NewOracle(st: XScreenType.T): ScrnPaintOp.Oracle; END XScrnPntOp.