nichkara/lace
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files

4
4-high/gel/source/gel-sprite.adb
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 is
begin begin
Self.Visual.Model_is (Now); Self.Visual.Model_is (Now);
end Model_is; end graphics_Model_is;

2
4-high/gel/source/gel-sprite.ads
View File

@@ -112,7 +112,7 @@ is
function Visual (Self : access Item) return openGL.Visual.view; function Visual (Self : access Item) return openGL.Visual.view;
function graphics_Model (Self : in Item) return openGL.Model.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 owns_Graphics (Self : in Item) return Boolean;
function physics_Model (Self : in Item) return access physics.Model.item'Class; function physics_Model (Self : in Item) return access physics.Model.item'Class;