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