ui/src/xvbt/XNoSharedMem.m3


Copyright (C) 1994, Digital Equipment Corp.

UNSAFE MODULE XNoSharedMem EXPORTS XSharedMem;

IMPORT Completion, Picture, TrestleComm, VBT, X, XClient, XClientExt,
       XClientF, XPicture, XScreenType;
New() exported by XSharedFree

-- 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.

interface Picture is in: