gel.demo: Use 'gel_sdl'.

3-mid/opengl/source/lean/geometry/opengl-geometry-texturing.adb

@@ -4,6 +4,8 @@ with
      GL.Binding,
      ada.Strings.fixed;
 
+with ada.Text_IO;
+
 
 package body openGL.Geometry.texturing
 is
@@ -185,6 +187,8 @@ is
       procedure enable_Textures (Self : in out Item)
       is
       begin
+         ada.Text_IO.put_Line (Self.Model'Image);
+
          texturing.enable (for_Model   => Self.Model.all'Access,
                            Uniforms    => texture_Uniforms,
                            texture_Set => Self.texture_Set);