From 3dafc66bc620994493b0da6429f580272eef3116 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Sat, 17 Mar 2018 17:42:53 +1100
Subject: Added FLTK.Widgets.Groups.Input_Choices

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

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

diff --git a/src/fltk-widgets-inputs.ads b/src/fltk-widgets-inputs.ads
index 9c80b81..2531cfa 100644
--- a/src/fltk-widgets-inputs.ads
+++ b/src/fltk-widgets-inputs.ads
@@ -11,6 +11,9 @@ package FLTK.Widgets.Inputs is
 
     type Input is new Widget with private;
 
+    type Input_Cursor (Data : access Input'Class) is limited null record
+        with Implicit_Dereference => Data;
+
 
 
 
-- 
cgit