svk/projman
1
0
Fork 0
Code Issues 1 Pull Requests Actions Packages Projects Releases 1 Wiki Activity

Исправление ошибки с запуском внешних программ.

Browse Source
This commit is contained in:
svk
2026-01-27 16:16:53 +03:00
parent 807131eee2
commit 4b09b1e97d
1 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
lib/tools.tcl
View File

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