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

gel.sprite: Add default to 'is_Visible'.

Browse Source
This commit is contained in:
Rod Kay
2024-03-03 20:27:39 +11:00
parent 9ef4cc7026
commit 618a3d9517
2 changed files with 2 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -347,7 +347,7 @@ is
procedure is_Visible (Self : in out Item; Now : in Boolean) procedure is_Visible (Self : in out Item; Now : in Boolean := True)
is is
begin begin
Self.is_Visible := Now; Self.is_Visible := Now;

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

@@ -130,7 +130,7 @@ is
procedure mvp_Matrix_is (Self : in out Item; Now : in Matrix_4x4); procedure mvp_Matrix_is (Self : in out Item; Now : in Matrix_4x4);
function mvp_Matrix (Self : in Item) return Matrix_4x4; function mvp_Matrix (Self : in Item) return Matrix_4x4;
procedure is_Visible (Self : in out Item; Now : in Boolean); procedure is_Visible (Self : in out Item; Now : in Boolean := True);
function is_Visible (Self : in Item) return Boolean; function is_Visible (Self : in Item) return Boolean;
procedure key_Response_is (Self : in out Item; Now : in lace.Response.view); procedure key_Response_is (Self : in out Item; Now : in lace.Response.view);