gel.sprite: Rename 'Model_is' to 'graphics_Model_is'.
This commit is contained in:
@@ -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;
|
||||
|
||||
|
||||
|
||||
|
||||
@@ -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;
|
||||
|
||||
Reference in New Issue
Block a user