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;
PROCEDURE InitXClient (<*UNUSED*>v: XClient.T) RAISES {TrestleComm.Failure} =
BEGIN
(* SKIP *)
END InitXClient;
PROCEDURE InitXScreenType (<* UNUSED *> st: XScreenType.T) =
BEGIN
(* SKIP *)
END InitXScreenType;
PROCEDURE UsesExtension (<* UNUSED *> st: VBT.ScreenType): BOOLEAN =
BEGIN
RETURN FALSE;
END UsesExtension;
PROCEDURE EventBase (v: XClient.T): X.Int =
BEGIN
RETURN v.shmEventBase;
END EventBase;
PROCEDURE PictureUsesExt (
<* UNUSED *> st: VBT.ScreenType;
<* UNUSED *> picture: Picture.T)
: BOOLEAN =
BEGIN
RETURN FALSE;
END PictureUsesExt;
PROCEDURE MakeCompletion (<*UNUSED*> im: T): Completion.T =
BEGIN
RETURN NIL;
END MakeCompletion;
REVEAL
T = XPicture.T BRANDED "XSharedMem.Picture" OBJECT
END;
BEGIN
END XNoSharedMem.