Copyright (C) 1994, Digital Equipment Corp.
UNSAFE MODULE; IMPORT TrestleComm, XClient, XScreenType, XSharedMem; PROCEDURE XExtensions InitXClient (xclient: XClient.T) RAISES {TrestleComm.Failure} = BEGIN XSharedMem.InitXClient(xclient); END InitXClient; PROCEDUREInitXScreenType (st: XScreenType.T) = BEGIN IF XSharedMem.UsesExtension(st) THEN XSharedMem.InitXScreenType(st); END; END InitXScreenType; BEGIN END XExtensions.