From 48f31d9f71523aa9cc027c16e5c8cd48ff1e792a 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

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

(limited to 'src/fltk_binding/fltk-callbacks.adb')

diff --git a/src/fltk_binding/fltk-callbacks.adb b/src/fltk_binding/fltk-callbacks.adb
index 717888d..193509b 100644
--- a/src/fltk_binding/fltk-callbacks.adb
+++ b/src/fltk_binding/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