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