ui/src/xvbt/XScrnCrsr.i3


 Copyright (C) 1992, Digital Equipment Corporation 
 All rights reserved. 
 See the file COPYRIGHT for a full description. 
 
 by Steve Glassman, Mark Manasse and Greg Nelson 
 Last modified on Fri Nov  6 19:55:50 PST 1992 by msm    
      modified on Mon Feb 24 13:59:53 PST 1992 by muller 
<*PRAGMA LL*>

UNSAFE INTERFACE XScrnCrsr;

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.