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

---
 spec/fltk-screen.ads | 37 +++++++++++++++++++++++++++++++++++++
 1 file changed, 37 insertions(+)

(limited to 'spec/fltk-screen.ads')

diff --git a/spec/fltk-screen.ads b/spec/fltk-screen.ads
index ccfd224..38db9aa 100644
--- a/spec/fltk-screen.ads
+++ b/spec/fltk-screen.ads
@@ -7,11 +7,23 @@
 package FLTK.Screen is
 
 
+    type Visual_Mode is (RGB, RGB_24bit, Double_Buffer, Double_RGB, Double_RGB_24bit);
+
+
+
+
     --  Environment  --
 
     procedure Set_Display_String
            (Value : in String);
 
+    procedure Set_Visual_Mode
+           (Value : in Visual_Mode);
+
+    function Set_Visual_Mode
+           (Value : in Visual_Mode)
+        return Boolean;
+
 
 
 
@@ -87,10 +99,30 @@ package FLTK.Screen is
             PX, PY, PW, PH : in     Integer);
 
 
+
+
+    --  Drawing  --
+
+    function Is_Damaged
+        return Boolean;
+
+    procedure Set_Damaged
+           (To : in Boolean);
+
+    procedure Flush;
+
+    procedure Redraw;
+
+
 private
 
 
+    pragma Import (C, Flush, "fl_screen_flush");
+    pragma Import (C, Redraw, "fl_screen_redraw");
+
+
     pragma Inline (Set_Display_String);
+    pragma Inline (Set_Visual_Mode);
 
     pragma Inline (Get_X);
     pragma Inline (Get_Y);
@@ -104,6 +136,11 @@ private
     pragma Inline (Work_Area);
     pragma Inline (Bounding_Rect);
 
+    pragma Inline (Is_Damaged);
+    pragma Inline (Set_Damaged);
+    pragma Inline (Flush);
+    pragma Inline (Redraw);
+
 
 end FLTK.Screen;
 
-- 
cgit