gel.sprite: Add default to 'is_Visible'.

2024-03-03 20:27:39 +11:00
parent 9ef4cc7026
commit 618a3d9517
2 changed files with 2 additions and 2 deletions
--- 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;