diff --git a/lib/menu.tcl b/lib/menu.tcl
index e837fb6..1e88465 100644
--- a/lib/menu.tcl
+++ b/lib/menu.tcl
@@ -86,6 +86,8 @@ proc GetEditMenu {m} {
     $m add separator
     $m add command -label [::msgcat::mc "Insert image"] -accelerator "Ctrl+I"\
         -command ImageBase64Encode
+    $m add command -label [::msgcat::mc "Insert color code"]\
+        -command ChooseColor
     $m add separator
     $m add command -label [::msgcat::mc "Settings"] -command Settings
 }
@@ -190,4 +192,3 @@ proc GetConvertIdentCaseMenu {m} {
 }
 # 2026 Vadim Ushakov <wandrien.dev@gmail.com>
 # ============================================================
-