Artifact e2332df8e8b926616f40a238cee4009b2fd27ed30cd598aea19f552f937b1b0b:

Attachment "fix.diff" to ticket [4f9a4205f0] added by anonymous 2024-08-20 08:41:09. (unpublished)

---

--- color.tcl	2024-08-20 18:34:46.812388287 +1000
+++ color-fixed.tcl	2024-08-20 18:34:42.932603659 +1000
@@ -555,15 +555,16 @@
 
 proc SelectColor::_set_hue_sat {hue sat} {
     variable _widget
+    variable _hsv
 
+    set _hsv [lreplace $_hsv 0 1 $hue $sat]
     set x [expr {$hue*200-9}]
     set y [expr {(1-$sat)*200-9}]
     $_widget(chs) coords target $x $y
     _draw_values $hue $sat
+    # _set_rgb [eval [list format "\#%04x%04x%04x"] [eval [list hsvToRgb] $_hsv]]
 }
 
-
-
 proc SelectColor::_select_value {x y} {
     variable _widget
     variable _hsv