ui/src/xvbt/XScrnFont.i3


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

UNSAFE INTERFACE XScrnFont;

IMPORT ScrnFont, XScreenType, TrestleComm;

PROCEDURE NewOracle (scrn: XScreenType.T; depthOne := FALSE): ScrnFont.Oracle
  RAISES {TrestleComm.Failure};
create a ScrnFont.Oracle suitable for use with an XScreenType.T. if depthOne is TRUE then the oracle will be suitable for a 1-bit font for painting on screens of type XScreenType.T. See the description of bits in ScreenType.i3

END XScrnFont.