Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
Created on Tue Jan 17 16:04:49 PST 1995 by najork
* The following procedures are not yet implemented: * List * Match * Lookup
UNSAFE INTERFACEWinScrnFont ; IMPORT PaintPrivate, ScrnFont, TrestleComm, WinDef, WinScreenType; PROCEDURE NewOracle (st: WinScreenType.T; depthOne: BOOLEAN): ScrnFont.Oracle RAISES {TrestleComm.Failure};
Create a ScrnFont.Oracle suitable for use with a screen typest. IfdepthOneis TRUE, then the oracle will be suitable for a 1-bit font for painting on screens of typest. See the description ofbitsin ScreenType.i3It is not clear to me if the
depthOnestuff is just an X artifact, or something independent of the window system. From glancing over the code, it seems that Oracles which are generated withdepthOne: being false simply dispatch all messages to another Oracle (attached tost.bits) which was created withdepthOnebeing true.depthOne' field.For now, I ignore the
PROCEDURE FromFont (font: PaintPrivate.Font): WinDef.HFONT; END WinScrnFont.