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

@@ -21,6 +21,11 @@ is
    procedure destroy (Self : in out Item);
 
 
+
+   function gl_Variable (Self : in Item) return GL.GLint;
+
+
+
    -----------
    --  Actuals
    --