diff options
| author | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-03 14:38:29 +1300 |
|---|---|---|
| committer | Jedidiah Barber <contact@jedbarber.id.au> | 2025-02-03 14:38:29 +1300 |
| commit | 2bc98da4d5b964de2d0d5e40927aa777704f2f29 (patch) | |
| tree | 95b47d4e1462e96945a9b9c40e247e361144fa57 /spec/fltk-asks.ads | |
| parent | e2e976c7f4716034673e5939fa9f60797bf401fd (diff) | |
More test programs added: button, buttons, clock, color_chooser, cursor, curve, hello
Diffstat (limited to 'spec/fltk-asks.ads')
| -rw-r--r-- | spec/fltk-asks.ads | 7 |
1 files changed, 6 insertions, 1 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); |