with
     openGL.Display,
     openGL.surface_Profile,
     openGL.Surface,

     OSMesa_C;
--       Glx.GLXContext;


package openGL.Context
--
--  Models an openGL (GLX) context.
--
is

   type Item is tagged private;
   type View is access all Item'Class;


   procedure define       (Self : in out Item;   the_Display         : access openGL.Display        .item'Class;
                                                 the_surface_Profile : in     openGL.surface_Profile.item'Class);


   procedure make_Current (Self : in Item;   read_Surface  : in openGL.Surface.item;
                                             write_Surface : in openGL.Surface.item);


--     function glx_Context_debug (Self : in Item'Class) return GLX.GLXContext.item;     -- For debug.



private

   type Item is tagged
      record
--           glx_Context : aliased GLX.GLXContext.item;
         Context :        OSMesa_C.OSMesaContext;
         Display : access openGL.Display.item'Class;
      end record;

end openGL.Context;