From 618a3d9517c9d845f3f5721633af93a13ff00ec3 Mon Sep 17 00:00:00 2001 From: Rod Kay Date: Sun, 3 Mar 2024 20:27:39 +1100 Subject: [PATCH] gel.sprite: Add default to 'is_Visible'. --- 4-high/gel/source/gel-sprite.adb | 2 +- 4-high/gel/source/gel-sprite.ads | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/4-high/gel/source/gel-sprite.adb b/4-high/gel/source/gel-sprite.adb index 4361f39..e8118a3 100644 --- a/4-high/gel/source/gel-sprite.adb +++ b/4-high/gel/source/gel-sprite.adb @@ -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 begin Self.is_Visible := Now; diff --git a/4-high/gel/source/gel-sprite.ads b/4-high/gel/source/gel-sprite.ads index 3bf66ee..cf5b575 100644 --- a/4-high/gel/source/gel-sprite.ads +++ b/4-high/gel/source/gel-sprite.ads @@ -130,7 +130,7 @@ is procedure mvp_Matrix_is (Self : in out Item; Now : in 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; procedure key_Response_is (Self : in out Item; Now : in lace.Response.view);