From e950ad5383185a285de315196162bca7e30c0b2f Mon Sep 17 00:00:00 2001
From: Rod Kay <rodakay5@gmail.com>
Date: Fri, 19 Sep 2025 11:29:27 +1000
Subject: [PATCH] opengl.texture_set: Add default to 'Which' parameter in
 'Texture_is' and 'Texture' subprograms.

---
 .../opengl/source/lean/opengl-texture_set.adb | 46 +++++++++----------
 1 file changed, 23 insertions(+), 23 deletions(-)

diff --git a/3-mid/opengl/source/lean/opengl-texture_set.adb b/3-mid/opengl/source/lean/opengl-texture_set.adb
index d40145f..e35b675 100644
--- a/3-mid/opengl/source/lean/opengl-texture_set.adb
+++ b/3-mid/opengl/source/lean/opengl-texture_set.adb
@@ -88,7 +88,7 @@ is
    --- Item
    --
 
-   procedure Texture_is (in_Set : in out Item;   Which : texture_ID;   Now : in openGL.Texture.Object)
+   procedure Texture_is (in_Set : in out Item;   Which : texture_ID := 1;   Now : in openGL.Texture.Object)
    is
    begin
       in_Set.Textures (Which).Object := Now;
@@ -105,7 +105,7 @@ is
 
 
 
-   function Texture (in_Set : in  Item;   Which : texture_ID) return openGL.Texture.Object
+   function Texture (in_Set : in  Item;   Which : texture_ID := 1) return openGL.Texture.Object
    is
    begin
       return in_Set.Textures (Which).Object;
@@ -114,27 +114,27 @@ is
 
 
 
-   function Texture (in_Set : in Item) return openGL.Texture.Object
-   is
-   begin
-      return in_Set.Textures (1).Object;
-   end Texture;
-
-
-
-
-   procedure Texture_is (in_Set : in out Item;   Now : in openGL.Texture.Object)
-   is
-   begin
-      in_Set.Textures (1).Object := Now;
-      in_Set.is_Transparent      :=    in_Set.is_Transparent
-                                    or Now .is_Transparent;
-
-      if in_Set.Count = 0
-      then
-         in_Set.Count := 1;
-      end if;
-   end Texture_is;
+   --  function Texture (in_Set : in Item) return openGL.Texture.Object
+   --  is
+   --  begin
+   --     return in_Set.Textures (1).Object;
+   --  end Texture;
+   --
+   --
+   --
+   --
+   --  procedure Texture_is (in_Set : in out Item;   Now : in openGL.Texture.Object)
+   --  is
+   --  begin
+   --     in_Set.Textures (1).Object := Now;
+   --     in_Set.is_Transparent      :=    in_Set.is_Transparent
+   --                                   or Now .is_Transparent;
+   --
+   --     if in_Set.Count = 0
+   --     then
+   --        in_Set.Count := 1;
+   --     end if;
+   --  end Texture_is;