Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> UNSAFE INTERFACENTScrnCrsr ; IMPORT NTScreenType, NTScrnPxmp, ScrnCursor, TrestleComm, WinDef; REVEAL NTScreenType.T <: T; TYPE T_Pub = NTScrnPxmp.T OBJECT END; T <: T_Pub; PROCEDURE NullCursor(): WinDef.HCURSOR RAISES {TrestleComm.Failure}; PROCEDURE NewOracle (scrn: NTScreenType.T): ScrnCursor.Oracle RAISES {TrestleComm.Failure}; END NTScrnCrsr.