From 2bc98da4d5b964de2d0d5e40927aa777704f2f29 Mon Sep 17 00:00:00 2001
From: Jedidiah Barber <contact@jedbarber.id.au>
Date: Mon, 3 Feb 2025 14:38:29 +1300
Subject: More test programs added: button, buttons, clock, color_chooser,
 cursor, curve, hello

---
 body/fltk-asks.adb | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'body/fltk-asks.adb')

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)
-- 
cgit