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

1 files changed, 14 insertions, 0 deletions

diff --git a/body/fltk-asks.adb b/body/fltk-asks.adb
index d6eb8ee..2b27940 100644
--- a/body/fltk-asks.adb
+++ b/body/fltk-asks.adb
@@ -140,6 +140,12 @@ package body FLTK.Asks is
     pragma Import (C, fl_ask_color_chooser2, "fl_ask_color_chooser2");
     pragma Inline (fl_ask_color_chooser2);
 
+    function fl_ask_show_colormap
+           (H : in Interfaces.C.unsigned)
+        return Interfaces.C.unsigned;
+    pragma Import (C, fl_ask_show_colormap, "fl_ask_show_colormap");
+    pragma Inline (fl_ask_show_colormap);
+
     function fl_ask_dir_chooser
            (M, D : in Interfaces.C.char_array;
             R    : in Interfaces.C.int)
@@ -554,6 +560,14 @@ package body FLTK.Asks is
     end Color_Chooser;
 
 
+    function Show_Colormap
+           (Old_Hue : in Color)
+        return Color is
+    begin
+        return Color (fl_ask_show_colormap (Interfaces.C.unsigned (Old_Hue)));
+    end Show_Colormap;
+
+
     function Dir_Chooser
            (Message, Default : in String;
             Relative         : in Boolean := False)