From 04b80586bb52e02c0d081215d14ef7356b1f5af8 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Fri, 23 Mar 2018 02:28:25 +1100
Subject: Completed Input widgets, Dialog routines

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

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

diff --git a/src/fltk-widgets-boxes.ads b/src/fltk-widgets-boxes.ads
index 99962ba..ef551b5 100644
--- a/src/fltk-widgets-boxes.ads
+++ b/src/fltk-widgets-boxes.ads
@@ -5,6 +5,9 @@ package FLTK.Widgets.Boxes is
 
     type Box is new Widget with private;
 
+    type Box_Cursor (Data : access Box'Class) is limited null record
+        with Implicit_Dereference => Data;
+
 
 
 
-- 
cgit