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
. IfdepthOne
is TRUE, then the oracle will be suitable for a 1-bit font for painting on screens of typest
. See the description ofbits
in ScreenType.i3It is not clear to me if the
depthOne
stuff 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 to
st.bits) which was created with
depthOnebeing true.
depthOne' field.For now, I ignore the
PROCEDURE FromFont (font: PaintPrivate.Font): WinDef.HFONT; END WinScrnFont.