diff --git a/3-mid/opengl/source/lean/shader/opengl-variable-uniform.adb b/3-mid/opengl/source/lean/shader/opengl-variable-uniform.adb
index 00de148..478b912 100644
--- a/3-mid/opengl/source/lean/shader/opengl-variable-uniform.adb
+++ b/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
    --
diff --git a/3-mid/opengl/source/lean/shader/opengl-variable-uniform.ads b/3-mid/opengl/source/lean/shader/opengl-variable-uniform.ads
index c471f9a..66ffb91 100644
--- a/3-mid/opengl/source/lean/shader/opengl-variable-uniform.ads
+++ b/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
    --