ui/src/nt/NTScrnCrsr.i3


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

UNSAFE INTERFACE NTScrnCrsr;

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.