From 446989277ad276e9820e54ea1fb4ed550b93e998 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 10 Feb 2025 22:50:09 +1300
Subject: Filled holes in Enumerations and FLTK (Screen) APIs

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

(limited to 'spec/fltk.ads')

diff --git a/spec/fltk.ads b/spec/fltk.ads
index db75720..24e68fe 100644
--- a/spec/fltk.ads
+++ b/spec/fltk.ads
@@ -46,14 +46,53 @@ package FLTK is
     type Color_Component is mod 256;
     type Color_Component_Array is array (Positive range <>) of aliased Color_Component;
 
+    subtype Blend is Float range 0.0 .. 1.0;
+
+    function RGB_Color
+           (Light : in Greyscale)
+        return Color;
+
+    function RGB_Color
+           (Light : in Color_Component)
+        return Color;
+
     function RGB_Color
            (R, G, B : in Color_Component)
         return Color;
 
+    function Color_Cube
+           (R, G, B : in Color_Component)
+        return Color;
+
+    function Grey_Ramp
+           (Light : in Greyscale)
+        return Color;
+
+    function Grey_Ramp
+           (Light : in Color_Component)
+        return Color;
+
+    function Darker
+           (Tone : in Color)
+        return Color;
+
+    function Lighter
+           (Tone : in Color)
+        return Color;
+
     function Contrast
            (Fore, Back : in Color)
         return Color;
 
+    function Inactive
+           (Tone : in Color)
+        return Color;
+
+    function Color_Average
+           (Tone1, Tone2 : in Color;
+            Weight       : in Blend := 0.5)
+        return Color;
+
     --  Examples of RGB colors without the above function
     --  The lowest byte has to be 00 for the color to be RGB
     RGB_Red_Color   : constant Color := 16#ff000000#;
@@ -282,6 +321,18 @@ package FLTK is
         Gleam_Round_Down_Box,
         Free_Box);
 
+    function Filled
+           (Box : in Box_Kind)
+        return Box_Kind;
+
+    function Frame
+           (Box : in Box_Kind)
+        return Box_Kind;
+
+    function Down
+           (Box : in Box_Kind)
+        return Box_Kind;
+
 
 
 
@@ -662,7 +713,14 @@ private
 
 
     pragma Inline (RGB_Color);
+    pragma Inline (Color_Cube);
+    pragma Inline (Contrast);
+    pragma Inline (Grey_Ramp);
+    pragma Inline (Darker);
+    pragma Inline (Lighter);
     pragma Inline (Contrast);
+    pragma Inline (Inactive);
+    pragma Inline (Color_Average);
 
     pragma Inline (ABI_Check);
     pragma Inline (ABI_Version);
-- 
cgit