From cb8ade55fb2f85951e53706de277261b726ecad7 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 11 Nov 2016 10:53:05 +1100
Subject: Simplified widget callbacks

---
 fltk-widgets-menus.ads | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

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

diff --git a/fltk-widgets-menus.ads b/fltk-widgets-menus.ads
index acb59bd..27b9d4a 100644
--- a/fltk-widgets-menus.ads
+++ b/fltk-widgets-menus.ads
@@ -57,7 +57,7 @@ package FLTK.Widgets.Menus is
     procedure Add
            (This     : in out Menu;
             Text     : in     String;
-            Action   : access Widget_Callback'Class := null;
+            Action   : in     Widget_Callback := null;
             Shortcut : in     Shortcut_Key := No_Key;
             Flags    : in     Menu_Flag := Flag_Normal);
 
-- 
cgit