From d5fd3906e62969fce7fec7f2fccdc5a7436cbdbc Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Tue, 18 Feb 2025 12:54:42 +1300
Subject: Filled holes in FLTK, FLTK.Events, FLTK.Screen, tweaked Fl_Shortcut
 implementation

---
 body/fltk-screen.adb | 81 ++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)

(limited to 'body/fltk-screen.adb')

diff --git a/body/fltk-screen.adb b/body/fltk-screen.adb
index 89f7413..6b8118e 100644
--- a/body/fltk-screen.adb
+++ b/body/fltk-screen.adb
@@ -16,6 +16,25 @@ use type
 package body FLTK.Screen is
 
 
+    ------------------------
+    --  Constants From C  --
+    ------------------------
+
+    fl_enum_mode_rgb : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_rgb, "fl_enum_mode_rgb");
+
+    fl_enum_mode_rgb8 : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_rgb8, "fl_enum_mode_rgb8");
+
+    fl_enum_mode_double : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_double, "fl_enum_mode_double");
+
+    fl_enum_mode_index : constant Interfaces.C.int;
+    pragma Import (C, fl_enum_mode_index, "fl_enum_mode_index");
+
+
+
+
     ------------------------
     --  Functions From C  --
     ------------------------
@@ -27,6 +46,12 @@ package body FLTK.Screen is
     pragma Import (C, fl_screen_display, "fl_screen_display");
     pragma Inline (fl_screen_display);
 
+    function fl_screen_visual
+           (F : in Interfaces.C.int)
+        return Interfaces.C.int;
+    pragma Import (C, fl_screen_visual, "fl_screen_visual");
+    pragma Inline (fl_screen_visual);
+
 
 
 
@@ -133,6 +158,21 @@ package body FLTK.Screen is
 
 
 
+    --  Drawing  --
+
+    function fl_screen_get_damage
+        return Interfaces.C.int;
+    pragma Import (C, fl_screen_get_damage, "fl_screen_get_damage");
+    pragma Inline (fl_screen_get_damage);
+
+    procedure fl_screen_set_damage
+           (V : in Interfaces.C.int);
+    pragma Import (C, fl_screen_set_damage, "fl_screen_set_damage");
+    pragma Inline (fl_screen_set_damage);
+
+
+
+
     -----------------------
     --  API Subprograms  --
     -----------------------
@@ -146,6 +186,29 @@ package body FLTK.Screen is
     end Set_Display_String;
 
 
+    procedure Set_Visual_Mode
+           (Value : in Visual_Mode)
+    is
+        Ignore : Boolean := Set_Visual_Mode (Value);
+    begin
+        null;
+    end Set_Visual_Mode;
+
+
+    function Set_Visual_Mode
+           (Value : in Visual_Mode)
+        return Boolean is
+    begin
+        return fl_screen_visual
+           ((case Value is
+            when RGB              => fl_enum_mode_rgb,
+            when RGB_24bit        => fl_enum_mode_rgb8,
+            when Double_Buffer    => fl_enum_mode_double + fl_enum_mode_index,
+            when Double_RGB       => fl_enum_mode_double + fl_enum_mode_rgb,
+            when Double_RGB_24bit => fl_enum_mode_double + fl_enum_mode_rgb8)) /= 0;
+    end Set_Visual_Mode;
+
+
 
 
     --  Basic Dimensions  --
@@ -318,6 +381,24 @@ package body FLTK.Screen is
     end Bounding_Rect;
 
 
+
+
+    --  Drawing  --
+
+    function Is_Damaged
+        return Boolean is
+    begin
+        return fl_screen_get_damage /= 0;
+    end Is_Damaged;
+
+
+    procedure Set_Damaged
+           (To : in Boolean) is
+    begin
+        fl_screen_set_damage (Boolean'Pos (To));
+    end Set_Damaged;
+
+
 end FLTK.Screen;
 
 
-- 
cgit