Add initial prototype.

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

@@ -0,0 +1,31 @@
+with
+     openGL.surface_Profile,
+     openGL.Surface,
+     glx.Context;
+
+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;   Profile       : in surface_Profile.item'Class);
+
+   procedure make_Current (Self : in     Item;   read_Surface  : in Surface.item;
+                                                 write_Surface : in Surface.item);
+
+   function  glx_Context_debug (Self : in Item'Class) return glx.Context.item;     -- For debugging.
+
+
+
+private
+
+   type Item is tagged
+      record
+         glx_Context : aliased glx.Context.item;
+      end record;
+
+end openGL.Context;