From 617353265e4dc4e0280b565f2cd9e7749ce52bfd Mon Sep 17 00:00:00 2001 From: Jed Barber Date: Tue, 17 Apr 2018 16:00:26 +1000 Subject: 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 76bd3f9..603d480 100644 --- a/src/fltk-widgets-groups-input_choices.adb +++ b/src/fltk-widgets-groups-input_choices.adb @@ -198,7 +198,7 @@ package body FLTK.Widgets.Groups.Input_Choices is function Input (This : in out Input_Choice) - return INP.Input_Cursor is + return INP.Input_Reference is begin return (Data => This.My_Input); end Input; -- cgit