From c1005ae98d1c07b7e9f14277f99dc1a6c7d42646 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 13 Jan 2025 12:52:51 +1300
Subject: Check_Browser Set_Checked now has a default

---
 src/fltk-widgets-groups-browsers-check.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-widgets-groups-browsers-check.adb')

diff --git a/src/fltk-widgets-groups-browsers-check.adb b/src/fltk-widgets-groups-browsers-check.adb
index b377a25..81ba06b 100644
--- a/src/fltk-widgets-groups-browsers-check.adb
+++ b/src/fltk-widgets-groups-browsers-check.adb
@@ -357,7 +357,7 @@ package body FLTK.Widgets.Groups.Browsers.Check is
     procedure Set_Checked
            (This  : in out Check_Browser;
             Index : in     Positive;
-            State : in     Boolean) is
+            State : in     Boolean := True) is
     begin
         fl_check_browser_set_checked
            (This.Void_Ptr,
-- 
cgit