Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*> UNSAFE INTERFACEXScrnCrsr ; IMPORT ScrnCursor, TrestleComm, X, XScreenType, XScrnPxmp; REVEAL XScreenType.T <: T; TYPE T_Pub = XScrnPxmp.T OBJECT END; T <: T_Pub; PROCEDURE NullCursor(dpy: X.DisplayStar; w: X.Drawable): X.Cursor RAISES {TrestleComm.Failure}; PROCEDURE NewOracle (scrn: XScreenType.T): ScrnCursor.Oracle RAISES {TrestleComm.Failure}; END XScrnCrsr.