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 /body/fltk-static.adb | |
| parent | 446989277ad276e9820e54ea1fb4ed550b93e998 (diff) | |
Reorganising Fl / FLTK, improving enum docs
Diffstat (limited to 'body/fltk-static.adb')
| -rw-r--r-- | body/fltk-static.adb | 33 |
1 files changed, 0 insertions, 33 deletions
diff --git a/body/fltk-static.adb b/body/fltk-static.adb index 59a3aa2..bd64a9e 100644 --- a/body/fltk-static.adb +++ b/body/fltk-static.adb @@ -310,21 +310,6 @@ package body FLTK.Static is - -- Input Focus -- - - function fl_static_get_visible_focus - return Interfaces.C.int; - pragma Import (C, fl_static_get_visible_focus, "fl_static_get_visible_focus"); - pragma Inline (fl_static_get_visible_focus); - - procedure fl_static_set_visible_focus - (T : in Interfaces.C.int); - pragma Import (C, fl_static_set_visible_focus, "fl_static_set_visible_focus"); - pragma Inline (fl_static_set_visible_focus); - - - - -- Windows -- procedure fl_static_default_atclose @@ -951,24 +936,6 @@ package body FLTK.Static is - -- Input Focus -- - - function Has_Visible_Focus - return Boolean is - begin - return fl_static_get_visible_focus /= 0; - end Has_Visible_Focus; - - - procedure Set_Visible_Focus - (To : in Boolean) is - begin - fl_static_set_visible_focus (Boolean'Pos (To)); - end Set_Visible_Focus; - - - - -- Windows -- procedure Default_Window_Close |