Добавил выбор и вставку цвета в виде кода #nnnnnn

2026-04-08 12:36:56 +03:00
parent 807bbfa595
commit 1cd469c68a
3 changed files with 13 additions and 1 deletions
--- a/lib/procedure.tcl
+++ b/lib/procedure.tcl
@@ -1232,4 +1232,13 @@ proc DebugPuts {msg} {
    }
 }

+proc ChooseColor {} {
+    global nbEditor
+    
+    set txt "[$nbEditor select].frmText.t"

+    set color [tk_chooseColor -initialcolor white -title  [::msgcat::mc "Choose color"] -parent .]
+    if {$color ne "" && [winfo exists $txt] == 1} {
+        $txt insert insert "$color"
+    }
+}