diff options
Diffstat (limited to 'src/fltk-widgets-groups-color_choosers.adb')
| -rw-r--r-- | src/fltk-widgets-groups-color_choosers.adb | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/src/fltk-widgets-groups-color_choosers.adb b/src/fltk-widgets-groups-color_choosers.adb index c47533a..dabcf00 100644 --- a/src/fltk-widgets-groups-color_choosers.adb +++ b/src/fltk-widgets-groups-color_choosers.adb @@ -240,6 +240,13 @@ package body FLTK.Widgets.Groups.Color_Choosers is end Color_Was_Changed; + procedure Clear_Changed + (This : in out Color_Chooser) is + begin + This.Was_Changed := False; + end Clear_Changed; + + function Get_Mode |