ui/src/xvbt/XExtensions.m3


 Copyright (C) 1993, Digital Equipment Corporation         
 All rights reserved.                                      
 See the file COPYRIGHT for a full description.            
                                                           
 Last modified on Tue Jan 31 09:05:15 PST 1995 by kalsow   
      modified on Tue Nov 23 14:59:28 PST 1993 by steveg   

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.