summaryrefslogtreecommitdiff
path: root/src/fltk_binding/fltk-callbacks.adb
diff options
context:
space:
mode:
Diffstat (limited to 'src/fltk_binding/fltk-callbacks.adb')
-rw-r--r--src/fltk_binding/fltk-callbacks.adb4
1 files changed, 2 insertions, 2 deletions
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;