From 36e546c1c9a9bb8e778fb637c17f94390b4d23c2 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Sat, 15 Feb 2025 14:29:16 +1300 Subject: Reorganising Fl / FLTK, improving enum docs --- spec/fltk-event.ads | 8 ++++++++ 1 file changed, 8 insertions(+) (limited to 'spec/fltk-event.ads') diff --git a/spec/fltk-event.ads b/spec/fltk-event.ads index e512432..483f317 100644 --- a/spec/fltk-event.ads +++ b/spec/fltk-event.ads @@ -79,6 +79,12 @@ package FLTK.Event is procedure Set_Focus (To : in FLTK.Widgets.Widget'Class); + function Has_Visible_Focus + return Boolean; + + procedure Set_Visible_Focus + (To : in Boolean); + @@ -236,6 +242,8 @@ private pragma Inline (Set_Below_Mouse); pragma Inline (Get_Focus); pragma Inline (Set_Focus); + pragma Inline (Has_Visible_Focus); + pragma Inline (Set_Visible_Focus); pragma Inline (Compose); pragma Inline (Compose_Reset); -- cgit