From 1612ddf208efccb3659f2f8cd42fc798bc282636 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Fri, 4 Apr 2025 21:30:39 +1100 Subject: [PATCH] gel.sprite: Rename 'Model_is' to 'graphics_Model_is'. --- 4-high/gel/source/gel-sprite.adb | 4 ++-- 4-high/gel/source/gel-sprite.ads | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb index e8118a3..07547cd 100644 --- 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; diff --git a/4-high/gel/source/gel-sprite.ads b/4-high/gel/source/gel-sprite.ads index 02787f3..f7d06ca 100644 --- a/4-high/gel/source/gel-sprite.ads +++ b/4-high/gel/source/gel-sprite.ads @@ -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;