From 4b09b1e97dc5c68800623a4127e58c7accf08b3f Mon Sep 17 00:00:00 2001
From: svk <svk@nuk-svk.ru>
Date: Tue, 27 Jan 2026 16:16:53 +0300
Subject: [PATCH] =?UTF-8?q?=D0=98=D1=81=D0=BF=D1=80=D0=B0=D0=B2=D0=BB?=
 =?UTF-8?q?=D0=B5=D0=BD=D0=B8=D0=B5=20=D0=BE=D1=88=D0=B8=D0=B1=D0=BA=D0=B8?=
 =?UTF-8?q?=20=D1=81=20=D0=B7=D0=B0=D0=BF=D1=83=D1=81=D0=BA=D0=BE=D0=BC=20?=
 =?UTF-8?q?=D0=B2=D0=BD=D0=B5=D1=88=D0=BD=D0=B8=D1=85=20=D0=BF=D1=80=D0=BE?=
 =?UTF-8?q?=D0=B3=D1=80=D0=B0=D0=BC=D0=BC.?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/tools.tcl | 9 +++++++--
 1 file changed, 7 insertions(+), 2 deletions(-)

diff --git a/lib/tools.tcl b/lib/tools.tcl
index f20e5c0..3c165df 100644
--- a/lib/tools.tcl
+++ b/lib/tools.tcl
@@ -136,7 +136,7 @@ proc Tools::CommandPathSettings {command} {
     DebugPuts [catch {exec {*}$cmd} toolsPath]
     DebugPuts "executor_path $toolsPath"
     if {[catch {exec {*}$cmd} toolsPath]} {
-        DebugPuts "Программа $command не найдена в системе"
+        DebugPuts "Tools::CommandPathSettings: Программа $command не найдена в системе"
         return ""
     }
     set fullPath [string trim $toolsPath]
@@ -165,7 +165,12 @@ proc Tools::Execute {toolName} {
         set fullPathToExec [Tools::CommandPathSettings "$cmd"]
         set fullCommand [lreplace [split $command " "] 0 0 $fullPathToExec]
     }
-    DebugPuts "Tools::Execute: $fullPathToExec, $fullCommand"
+    if {$fullPathToExec eq ""} {
+        DebugPuts "Tools::Execute: $command not found"
+        return
+    } else {
+        DebugPuts "Tools::Execute: $fullPathToExec, $fullCommand"
+    }
     # 2. Определять выделен ли текст в открытом редакторе
     # 5. Заменяем %s на выделенный в редакторе текст 
     set selectedText [Editor::SelectionGet]