From ba8a4715575c10248285245a86af118fe50135c8 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 5 May 2023 03:50:30 +1000 Subject: [PATCH] opengl.geometry: Change mode of the 'Self' parameter in 'enable_Texture' to 'in out'. --- .../source/lean/geometry/opengl-geometry-colored_textured.adb | 2 +- .../source/lean/geometry/opengl-geometry-colored_textured.ads | 3 ++- .../lean/geometry/opengl-geometry-lit_colored_skinned.adb | 2 +- .../lean/geometry/opengl-geometry-lit_colored_skinned.ads | 3 ++- 4 files changed, 6 insertions(+), 4 deletions(-) diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb index 290f00f..9ff00af 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.adb @@ -192,7 +192,7 @@ is overriding - procedure enable_Texture (Self : in Item) + procedure enable_Texture (Self : in out Item) is use GL, GL.Binding, diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads index 0dc7612..f30c804 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-colored_textured.ads @@ -41,7 +41,8 @@ private null; end record; + overriding - procedure enable_Texture (Self : in Item); + procedure enable_Texture (Self : in out Item); end openGL.Geometry.colored_textured; diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb index 3c2686b..d2424a6 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.adb @@ -258,7 +258,7 @@ is overriding - procedure enable_Texture (Self : in Item) + procedure enable_Texture (Self : in out Item) is begin null; diff --git a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads index 0ac573c..67b4a4e 100644 --- a/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads +++ b/3-mid/opengl/source/lean/geometry/opengl-geometry-lit_colored_skinned.ads @@ -51,7 +51,8 @@ private type Item is new Geometry.item with null record; + overriding - procedure enable_Texture (Self : in Item); + procedure enable_Texture (Self : in out Item); end openGL.Geometry.lit_colored_skinned;