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

2025-04-04 21:30:39 +11:00
parent 8322451898
commit 1612ddf208
2 changed files with 3 additions and 3 deletions
--- a/4-high/gel/source/gel-sprite.adb
+++ b/4-high/gel/source/gel-sprite.adb
@@ -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;