From 09d9f2f6fc83af3bdc76717941eb13b77b2b1613 Mon Sep 17 00:00:00 2001
From: Jed Barber <jjbarber@y7mail.com>
Date: Tue, 20 Mar 2018 01:41:49 +1100
Subject: Moved several Widgets from the Partially list to the Done list

---
 src/fltk-widgets-groups-color_choosers.adb | 7 +++++++
 1 file changed, 7 insertions(+)

(limited to 'src/fltk-widgets-groups-color_choosers.adb')

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