MODULE X_PEX_Base EXPORTS X_PEX_Base, X_PEX_BaseProxy;

IMPORT GraphicsBase;

REVEAL
  T = Public BRANDED OBJECT
  OVERRIDES
    init := Init;
  END;

PROCEDURE Init (<*UNUSED*> self      : T;
                <*UNUSED*> title     : TEXT;
                <*UNUSED*> x, y, w, h: INTEGER): T
    RAISES {GraphicsBase.Failure} =
  BEGIN
    RAISE GraphicsBase.Failure;
  END Init;

PROCEDURE Available () : BOOLEAN =
  BEGIN
    RETURN FALSE;
  END Available;

BEGIN
END X_PEX_Base.