opengl.geometry: Change mode of the 'Self' parameter in 'enable_Texture' to 'in out'.
This commit is contained in:
@@ -192,7 +192,7 @@ is
|
||||
|
||||
|
||||
overriding
|
||||
procedure enable_Texture (Self : in Item)
|
||||
procedure enable_Texture (Self : in out Item)
|
||||
is
|
||||
use GL,
|
||||
GL.Binding,
|
||||
|
||||
@@ -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;
|
||||
|
||||
@@ -258,7 +258,7 @@ is
|
||||
|
||||
|
||||
overriding
|
||||
procedure enable_Texture (Self : in Item)
|
||||
procedure enable_Texture (Self : in out Item)
|
||||
is
|
||||
begin
|
||||
null;
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user