anim3D/src/no-x-opengl/X_OpenGL_Base.m3


Copyright (C) 1994, Digital Equipment Corp.
Digital Internal Use Only
                                                                           
       Created on Tue Jul 11 22:37:39 PDT 1995 by najork                   

MODULE X_OpenGL_Base EXPORTS X_OpenGL_Base, X_OpenGL_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_OpenGL_Base.