From 47dc4ac9eccd2e808b4c4d8e9e2be3702e1a6444 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 27 Jan 2025 11:51:38 +1300
Subject: Added Fl_Table

---
 body/fltk-widgets-groups.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'body/fltk-widgets-groups.adb')

diff --git a/body/fltk-widgets-groups.adb b/body/fltk-widgets-groups.adb
index e7c8780..3b2e287 100644
--- a/body/fltk-widgets-groups.adb
+++ b/body/fltk-widgets-groups.adb
@@ -388,8 +388,8 @@ package body FLTK.Widgets.Groups is
 
 
     function Find
-           (This : in     Group;
-            Item : in out Widget'Class)
+           (This : in Group;
+            Item : in Widget'Class)
         return Extended_Index
     is
         Result : Interfaces.C.int := fl_group_find (This.Void_Ptr, Item.Void_Ptr);
-- 
cgit