ui/src/xvbt/XExtensions.m3


Copyright (C) 1994, Digital Equipment Corp.

UNSAFE MODULE XExtensions;

IMPORT TrestleComm, XClient, XScreenType, XSharedMem;

PROCEDURE InitXClient (xclient: XClient.T) RAISES {TrestleComm.Failure} =
  BEGIN
    XSharedMem.InitXClient(xclient);
  END InitXClient;

PROCEDURE InitXScreenType (st: XScreenType.T) =
  BEGIN
    IF XSharedMem.UsesExtension(st) THEN
      XSharedMem.InitXScreenType(st);
    END;
  END InitXScreenType;

BEGIN
END XExtensions.