Copyright (C) 1994, Digital Equipment Corp.
by Steve Glassman, Mark Manasse and Greg Nelson
<*PRAGMA LL*>
UNSAFE INTERFACE XScrnCmap;
IMPORT ScrnColorMap, TrestleComm, X, XScreenType;
PROCEDURE NewOracle (scrn: XScreenType.T; READONLY vinfo: X.XVisualInfo):
ScrnColorMap.Oracle RAISES {TrestleComm.Failure};
create a ScrnColorMap.Oracle suitable for use with an XScreenType.T
PROCEDURE ColorMapID(cm: ScrnColorMap.T): X.Colormap;
Return the XID for cm, or X.None if the screentype of cm
is not of type T. LL arbitrary.
END XScrnCmap.