From dac7e747e5c61d78deffdccc986d202e9f0d63bb Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 6 Sep 2016 00:12:05 +1000
Subject: Getting things back into a compilable order

---
 fltk-callbacks.adb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'fltk-callbacks.adb')

diff --git a/fltk-callbacks.adb b/fltk-callbacks.adb
index 717888d..193509b 100644
--- a/fltk-callbacks.adb
+++ b/fltk-callbacks.adb
@@ -4,10 +4,10 @@ package body FLTK.Callbacks is
 
 
     function Create
-           (Call : in access procedure)
+           (Call : access procedure)
         return Callback is
     begin
-        return null record;
+        return This : Callback;
     end Create;
 
 
-- 
cgit