From ee967448bae4733aec70ba128062bc3357a2f0df Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Thu, 6 Feb 2025 21:55:19 +1300
Subject: Widget deletion inside callbacks is now safe

---
 body/fltk.adb | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'body/fltk.adb')

diff --git a/body/fltk.adb b/body/fltk.adb
index 4dfdf8f..aaef1fd 100644
--- a/body/fltk.adb
+++ b/body/fltk.adb
@@ -98,7 +98,7 @@ package body FLTK is
 
     function fl_wait2
            (S : in Interfaces.C.double)
-        return Interfaces.C.int;
+        return Interfaces.C.double;
     pragma Import (C, fl_wait2, "fl_wait2");
     pragma Inline (fl_wait2);
 
@@ -449,9 +449,9 @@ package body FLTK is
 
     function Wait
            (Seconds : in Long_Float)
-        return Integer is
+        return Long_Float is
     begin
-        return Integer (fl_wait2 (Interfaces.C.double (Seconds)));
+        return Long_Float (fl_wait2 (Interfaces.C.double (Seconds)));
     end Wait;
 
 
-- 
cgit