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

Добавлен вывод сообщений об ошибке в диалоге

Browse Source
This commit is contained in:
svkalinin
2022-11-18 13:09:02 +03:00
parent 39683d7439
commit 35874492b0
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
lib/git.tcl
View File

@@ -110,6 +110,7 @@ namespace eval Git {
} }
catch $cmd pipe catch $cmd pipe
if [regexp -nocase -- {^fatal:} $pipe match] { if [regexp -nocase -- {^fatal:} $pipe match] {
ShowMessage "Command: '$cmd' error" $pipe
return return
} }
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
@@ -133,6 +134,7 @@ namespace eval Git {
catch $cmd pipe catch $cmd pipe
puts $cmd puts $cmd
if [regexp -nocase -- {^fatal:} $pipe match] { if [regexp -nocase -- {^fatal:} $pipe match] {
ShowMessage "Command: '$cmd' error" $pipe
return return
} }
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
@@ -154,6 +156,7 @@ namespace eval Git {
catch $cmd pipe catch $cmd pipe
puts $cmd puts $cmd
if [regexp -nocase -- {^fatal:} $pipe match] { if [regexp -nocase -- {^fatal:} $pipe match] {
ShowMessage "Command: '$cmd' error" $pipe
return return
} }
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {
@@ -191,6 +194,7 @@ namespace eval Git {
catch $cmd pipe catch $cmd pipe
puts $pipe puts $pipe
if [regexp -nocase -- {^fatal:} $pipe match] { if [regexp -nocase -- {^fatal:} $pipe match] {
ShowMessage "Command: '$cmd' error" $pipe
return return
} }
foreach line [split $pipe "\n"] { foreach line [split $pipe "\n"] {