Add initial prototype.

3-mid/opengl/source/platform/osmesa/opengl-context.ads

@@ -0,0 +1,41 @@
+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;