More test programs added: button, buttons, clock, color_chooser, cursor, curve, hello

2 files changed, 19 insertions, 5 deletions

diff --git a/spec/fltk-asks.ads b/spec/fltk-asks.ads
index fc6e150..f0d58f8 100644
--- a/spec/fltk-asks.ads
+++ b/spec/fltk-asks.ads
@@ -30,7 +30,7 @@ package FLTK.Asks is
 
     type RGB_Float is new Long_Float range 0.0 .. 1.0;
 
-    type RGB_Int is mod 256;
+    subtype RGB_Int is Color_Component;
 
     type File_Chooser_Callback is access procedure
            (Item : in String);
@@ -131,6 +131,10 @@ package FLTK.Asks is
                 FLTK.Widgets.Groups.Color_Choosers.RGB)
         return Confirm_Result;
 
+    function Show_Colormap
+           (Old_Hue : in Color)
+        return Color;
+
     function Dir_Chooser
            (Message, Default : in String;
             Relative         : in Boolean := False)
@@ -195,6 +199,7 @@ private
     pragma Inline (Password);
 
     pragma Inline (Color_Chooser);
+    pragma Inline (Show_Colormap);
     pragma Inline (Dir_Chooser);
     pragma Inline (File_Chooser);
     pragma Inline (Set_File_Chooser_Callback);
diff --git a/spec/fltk.ads b/spec/fltk.ads
index 6e5ef0f..f341ac2 100644
--- a/spec/fltk.ads
+++ b/spec/fltk.ads
@@ -48,6 +48,10 @@ package FLTK is
            (R, G, B : in Color_Component)
         return Color;
 
+    function Contrast
+           (Fore, Back : in Color)
+        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#;
@@ -61,6 +65,9 @@ package FLTK is
     Inactive_Color    : constant Color := 8;
     Selection_Color   : constant Color := 15;
 
+    --  X allocation area
+    Free_Color : constant Color := 16;
+
     --  Standard boxtype colors
     Grey0_Color      : constant Color := 32;
     Dark3_Color      : constant Color := 39;
@@ -145,7 +152,8 @@ package FLTK is
         SW_Mouse,
         W_Mouse,
         NW_Mouse,
-        None_Mouse);
+        None_Mouse)
+    with Default_Value => Default_Mouse;
 
 
 
@@ -620,23 +628,23 @@ private
 
 
 
+    pragma Inline (RGB_Color);
+    pragma Inline (Contrast);
+
     pragma Inline (ABI_Check);
     pragma Inline (ABI_Version);
     pragma Inline (API_Version);
     pragma Inline (Version);
 
-
     pragma Inline (Awake);
     pragma Inline (Lock);
     pragma Inline (Unlock);
 
-
     pragma Inline (Is_Damaged);
     pragma Inline (Set_Damaged);
     pragma Inline (Flush);
     pragma Inline (Redraw);
 
-
     pragma Inline (Check);
     pragma Inline (Ready);
     pragma Inline (Wait);
@@ -645,3 +653,4 @@ private
 
 end FLTK;
 
+