diff options
Diffstat (limited to 'body/fltk-asks.adb')
| -rw-r--r-- | body/fltk-asks.adb | 14 |
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) |