From 0063e92bed1747e5755e42fe22bd25cc3cd72be8 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 23 May 2017 10:51:36 +1000
Subject: Fixed off-by-one bug in Group widget Remove procedure

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

(limited to 'src')

diff --git a/src/fltk-widgets-groups.adb b/src/fltk-widgets-groups.adb
index e580323..97391da 100644
--- a/src/fltk-widgets-groups.adb
+++ b/src/fltk-widgets-groups.adb
@@ -207,7 +207,7 @@ package body FLTK.Widgets.Groups is
            (This  : in out Group;
             Place : in     Index) is
     begin
-        fl_group_remove2 (This.Void_Ptr, Interfaces.C.int (Place));
+        fl_group_remove2 (This.Void_Ptr, Interfaces.C.int (Place - 1));
     end Remove;
 
 
-- 
cgit