From ca9cca53a19145216cb0e00462db239e1194696d Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sun, 29 Apr 2018 00:39:36 +1000
Subject: FLTK.Event done, a whole bunch more polishing

---
 src/fltk-widgets-groups-input_choices.adb | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src/fltk-widgets-groups-input_choices.adb')

diff --git a/src/fltk-widgets-groups-input_choices.adb b/src/fltk-widgets-groups-input_choices.adb
index 603d480..afda09f 100644
--- a/src/fltk-widgets-groups-input_choices.adb
+++ b/src/fltk-widgets-groups-input_choices.adb
@@ -206,7 +206,7 @@ package body FLTK.Widgets.Groups.Input_Choices is
 
     function Menu_Button
            (This : in out Input_Choice)
-        return MB.Menu_Button_Cursor is
+        return MB.Menu_Button_Reference is
     begin
         return (Data => This.My_Menu_Button);
     end Menu_Button;
-- 
cgit