Copyright (C) 1994, Digital Equipment Corp. UNSAFE MODULENew() exported by XSharedFreeXNoSharedMem EXPORTSXSharedMem ; IMPORT Completion, Picture, TrestleComm, VBT, X, XClient, XClientExt, XClientF, XPicture, XScreenType;
-- XClient and XScreenType stuff --
REVEAL XClient_T = XClientF.T_Rel BRANDED OBJECT shmEventBase := -1; (* GetEventBase returns -1 on error, so use it to signify no extension *) END; PROCEDUREInitXClient (<*UNUSED*>v: XClient.T) RAISES {TrestleComm.Failure} = BEGIN (* SKIP *) END InitXClient; PROCEDUREInitXScreenType (<* UNUSED *> st: XScreenType.T) = BEGIN (* SKIP *) END InitXScreenType; PROCEDUREUsesExtension (<* UNUSED *> st: VBT.ScreenType): BOOLEAN = BEGIN RETURN FALSE; END UsesExtension; PROCEDUREEventBase (v: XClient.T): X.Int = BEGIN RETURN v.shmEventBase; END EventBase; PROCEDUREPictureUsesExt ( <* UNUSED *> st: VBT.ScreenType; <* UNUSED *> picture: Picture.T) : BOOLEAN = BEGIN RETURN FALSE; END PictureUsesExt; PROCEDUREMakeCompletion (<*UNUSED*> im: T): Completion.T = BEGIN RETURN NIL; END MakeCompletion; REVEAL T = XPicture.T BRANDED "XSharedMem.Picture" OBJECT END; BEGIN END XNoSharedMem.