From f3638a598d55629bf130c648416ca75f5edae1f1 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 14 May 2017 13:33:27 +1000
Subject: Cleaned up Draw/Handle code on Ada side

---
 src/fltk-widgets.ads | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'src/fltk-widgets.ads')

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index f724507..439b72d 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -152,6 +152,17 @@ private
         end record;
 
 
+    --  the user data portion should always be a reference back to the Ada binding
+    procedure Callback_Hook
+           (W, U : in System.Address);
+    pragma Convention (C, Callback_Hook);
+
+
+    procedure Draw_Hook
+           (U : in System.Address);
+    pragma Convention (C, Draw_Hook);
+
+
     function Handle_Hook
            (U : in System.Address;
             E : in Interfaces.C.int)
-- 
cgit