From e70e81e7f08105474a01858b38a7e27d028a1972 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Thu, 3 Aug 2017 20:08:23 +1000
Subject: Added the first of event handling functions, to figure out what key
 was pressed

---
 src/fltk.ads | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/fltk.ads')

diff --git a/src/fltk.ads b/src/fltk.ads
index d07435e..8a6a933 100644
--- a/src/fltk.ads
+++ b/src/fltk.ads
@@ -144,6 +144,10 @@ package FLTK is
             Free_Font);
 
 
+    type Font_Size is new Natural;
+    Normal_Size : constant Font_Size := 14;
+
+
     type Label_Kind is
            (Normal_Label,
             No_Label,
@@ -185,6 +189,9 @@ package FLTK is
             Fullscreen);
 
 
+    type Event_Outcome is (Not_Handled, Handled);
+
+
 private
 
 
-- 
cgit