opengl.variable.uniform: Add a 'gl_Variable' function.

3-mid/opengl/source/lean/shader/opengl-variable-uniform.adb

@@ -45,6 +45,16 @@ is
    end destroy;
 
 
+
+   function gl_Variable (Self : in Item) return GL.GLint
+   is
+   begin
+      return Self.gl_Variable;
+   end gl_Variable;
+
+
+
+
    -----------
    --  Actuals
    --

3-mid/opengl/source/lean/shader/opengl-variable-uniform.ads

@@ -8,7 +8,7 @@ package openGL.Variable.uniform
 --  Models a uniform variable for shaders.
 --
 is
-   type Item  is abstract new Variable.item with private;
+   type Item is abstract new Variable.item with private;
 
 
    ---------
@@ -21,6 +21,11 @@ is
    procedure destroy (Self : in out Item);
 
 
+
+   function gl_Variable (Self : in Item) return GL.GLint;
+
+
+
    -----------
    --  Actuals
    --