Reorganising Fl / FLTK, improving enum docs

1 files changed, 24 insertions, 0 deletions

diff --git a/body/fltk-event.adb b/body/fltk-event.adb
index 8c3db1f..2c96792 100644
--- a/body/fltk-event.adb
+++ b/body/fltk-event.adb
@@ -92,6 +92,16 @@ package body FLTK.Event is
     pragma Import (C, fl_event_set_focus, "fl_event_set_focus");
     pragma Inline (fl_event_set_focus);
 
+    function fl_event_get_visible_focus
+        return Interfaces.C.int;
+    pragma Import (C, fl_event_get_visible_focus, "fl_event_get_visible_focus");
+    pragma Inline (fl_event_get_visible_focus);
+
+    procedure fl_event_set_visible_focus
+           (T : in Interfaces.C.int);
+    pragma Import (C, fl_event_set_visible_focus, "fl_event_set_visible_focus");
+    pragma Inline (fl_event_set_visible_focus);
+
 
 
 
@@ -477,6 +487,20 @@ package body FLTK.Event is
     end Set_Focus;
 
 
+    function Has_Visible_Focus
+        return Boolean is
+    begin
+        return fl_event_get_visible_focus /= 0;
+    end Has_Visible_Focus;
+
+
+    procedure Set_Visible_Focus
+           (To : in Boolean) is
+    begin
+        fl_event_set_visible_focus (Boolean'Pos (To));
+    end Set_Visible_Focus;
+
+
 
 
     --  Multikey  --