opengl.geometry: Change mode of the 'Self' parameter in 'enable_Texture' to 'in out'.

This commit is contained in:
Rod Kay
2023-05-05 03:50:30 +10:00
parent 84283a72ea
commit ba8a471557
4 changed files with 6 additions and 4 deletions

View File

@@ -192,7 +192,7 @@ is
overriding
procedure enable_Texture (Self : in Item)
procedure enable_Texture (Self : in out Item)
is
use GL,
GL.Binding,

View File

@@ -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;

View File

@@ -258,7 +258,7 @@ is
overriding
procedure enable_Texture (Self : in Item)
procedure enable_Texture (Self : in out Item)
is
begin
null;

View File

@@ -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;