Handle method added for Boxes, Buttons, Widgets

1 files changed, 16 insertions, 0 deletions

diff --git a/src/fltk-widgets.ads b/src/fltk-widgets.ads
index 56bad0a..f724507 100644
--- a/src/fltk-widgets.ads
+++ b/src/fltk-widgets.ads
@@ -6,6 +6,7 @@ limited with FLTK.Widgets.Groups;
 private with System;
 private with System.Address_To_Access_Conversions;
 private with Ada.Unchecked_Conversion;
+private with Interfaces.C;
 
 
 package FLTK.Widgets is
@@ -22,6 +23,8 @@ package FLTK.Widgets is
     Normal_Size : constant Font_Size := 14;
     type Color is new Natural;
 
+    type Event_Outcome is (Not_Handled, Handled);
+
 
     function Create
            (X, Y, W, H : in Integer;
@@ -133,6 +136,12 @@ package FLTK.Widgets is
            (This : in out Widget) is null;
 
 
+    function Handle
+           (This  : in out Widget;
+            Event : in     Event_Kind)
+        return Event_Outcome;
+
+
 private
 
 
@@ -143,6 +152,13 @@ private
         end record;
 
 
+    function Handle_Hook
+           (U : in System.Address;
+            E : in Interfaces.C.int)
+        return Interfaces.C.int;
+    pragma Convention (C, Handle_Hook);
+
+
     overriding procedure Finalize
            (This : in out Widget);