From 2bc98da4d5b964de2d0d5e40927aa777704f2f29 Mon Sep 17 00:00:00 2001 From: Jedidiah Barber Date: Mon, 3 Feb 2025 14:38:29 +1300 Subject: More test programs added: button, buttons, clock, color_chooser, cursor, curve, hello --- spec/fltk-asks.ads | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'spec/fltk-asks.ads') 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); -- cgit