From 1cd469c68a7455351fef4b61d47e4a53c463ee9f Mon Sep 17 00:00:00 2001
From: Sergey Kalinin <svk@nuk-svk.ru>
Date: Wed, 8 Apr 2026 12:36:56 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=B8=D0=BB=20?=
 =?UTF-8?q?=D0=B2=D1=8B=D0=B1=D0=BE=D1=80=20=D0=B8=20=D0=B2=D1=81=D1=82?=
 =?UTF-8?q?=D0=B0=D0=B2=D0=BA=D1=83=20=D1=86=D0=B2=D0=B5=D1=82=D0=B0=20?=
 =?UTF-8?q?=D0=B2=20=D0=B2=D0=B8=D0=B4=D0=B5=20=D0=BA=D0=BE=D0=B4=D0=B0=20?=
 =?UTF-8?q?#nnnnnn?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/msgs/en.msg   | 3 ++-
 lib/msgs/ru.msg   | 2 ++
 lib/procedure.tcl | 9 +++++++++
 3 files changed, 13 insertions(+), 1 deletion(-)

diff --git a/lib/msgs/en.msg b/lib/msgs/en.msg
index 31a6a59..ee3a7c6 100644
--- a/lib/msgs/en.msg
+++ b/lib/msgs/en.msg
@@ -18,6 +18,7 @@
 ::msgcat::mcset en "Braces foreground"
 ::msgcat::mcset en "Cancel"
 ::msgcat::mcset en "Can't found file:"
+::msgcat::mcset en "Choose color"
 ::msgcat::mcset en "Close"
 ::msgcat::mcset en "Close all"
 ::msgcat::mcset en "Close Project Manager?"
@@ -85,6 +86,7 @@
 ::msgcat::mcset en "Indent foreground"
 ::msgcat::mcset en "Indent background"
 ::msgcat::mcset en "Interface language"
+::msgcat::mcset en "Insert color code"
 ::msgcat::mcset en "Insert image"
 ::msgcat::mcset en "Install Tcl/Tk Project Manager"
 ::msgcat::mcset en "Input file name"
@@ -204,4 +206,3 @@
 ::msgcat::mcset en "SCREAMING-KEBAB-CASE"
 ::msgcat::mcset en "Train-Case"
 ::msgcat::mcset en "space separated"
-
diff --git a/lib/msgs/ru.msg b/lib/msgs/ru.msg
index 5cbce8c..761150a 100644
--- a/lib/msgs/ru.msg
+++ b/lib/msgs/ru.msg
@@ -24,6 +24,7 @@
 ::msgcat::mcset ru "Cancel" "Отмена"
 ::msgcat::mcset ru "Can't found file:" "Не найден файл:"
 ::msgcat::mcset ru "Char" "Символ"
+::msgcat::mcset ru "Choose color" "Выбор цвета"
 ::msgcat::mcset ru "Close" "Закрыть"
 ::msgcat::mcset ru "Close all" "Закрыть все"
 ::msgcat::mcset ru "Close file" "Закрыть файл"
@@ -111,6 +112,7 @@
 ::msgcat::mcset ru "Init repository" "Создать репозиторий"
 ::msgcat::mcset ru "Insert" "Вставка"
 ::msgcat::mcset ru "In" "В"
+::msgcat::mcset ru "Insert color code" "Вставить код цвета"
 ::msgcat::mcset ru "Insert image" "Вставить изображение"
 ::msgcat::mcset ru "Interface language" "Язык интерфейса"
 ::msgcat::mcset ru "Interpetator" "Интерпретатор"
diff --git a/lib/procedure.tcl b/lib/procedure.tcl
index 1e7eb45..8f526af 100644
--- 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"
+    }
+}