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-menus.ads | 4 ++++
 1 file changed, 4 insertions(+)

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

diff --git a/src/fltk-widgets-menus.ads b/src/fltk-widgets-menus.ads
index c33b947..a9f957f 100644
--- a/src/fltk-widgets-menus.ads
+++ b/src/fltk-widgets-menus.ads
@@ -87,6 +87,10 @@ private
     type Menu is new Widget with null record;
 
 
+    procedure Item_Hook (M, U : in System.Address);
+    pragma Convention (C, Item_Hook);
+
+
     overriding procedure Finalize
            (This : in out Menu);
 
-- 
cgit