diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-15 14:29:16 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-15 14:29:16 +1300 |
| commit | 36e546c1c9a9bb8e778fb637c17f94390b4d23c2 (patch) | |
| tree | 8f633a9c7439d099039432da167a882c7dddc3a7 /spec/fltk-event.ads | |
| parent | 446989277ad276e9820e54ea1fb4ed550b93e998 (diff) | |
Reorganising Fl / FLTK, improving enum docs
Diffstat (limited to 'spec/fltk-event.ads')
| -rw-r--r-- | spec/fltk-event.ads | 8 |
1 files changed, 8 insertions, 0 deletions
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); |