gel.sprite: Rename 'Model_is' to 'graphics_Model_is'.

This commit is contained in:
Rod Kay
2025-04-04 21:30:39 +11:00
parent 8322451898
commit 1612ddf208
2 changed files with 3 additions and 3 deletions

View File

@@ -395,11 +395,11 @@ is
procedure Model_is (Self : in out Item; Now : in openGL.Model.view)
procedure graphics_Model_is (Self : in out Item; Now : in openGL.Model.view)
is
begin
Self.Visual.Model_is (Now);
end Model_is;
end graphics_Model_is;

View File

@@ -112,7 +112,7 @@ is
function Visual (Self : access Item) return openGL.Visual.view;
function graphics_Model (Self : in Item) return openGL.Model.view;
procedure Model_is (Self : in out Item; Now : in openGL.Model.view);
procedure graphics_Model_is (Self : in out Item; Now : in openGL.Model.view);
function owns_Graphics (Self : in Item) return Boolean;
function physics_Model (Self : in Item) return access physics.Model.item'Class;