diff --git a/lib/git.tcl b/lib/git.tcl index d98e756..6dfc3e3 100644 --- a/lib/git.tcl +++ b/lib/git.tcl @@ -198,7 +198,11 @@ namespace eval Git { } proc ListBoxPress {w} { - set fileName [$w.body.lBox get [$w.body.lBox curselection]] + if {[$w.body.lBox curselection] ne ""} { + set fileName [$w.body.lBox get [$w.body.lBox curselection]] + } else { + return + } # puts $values $w.body.t delete 1.0 end set i 0 @@ -380,7 +384,7 @@ namespace eval Git { catch { $fr.body.lBox activate 0 ; $fr.body.lBox selection set 0 0 } bind $fr.body.lBox "Git::CommitAdd $fr" - bind $fr.body.lBox "catch {Git::CommitAdd $fr}" + bind $fr.body.lBox "catch {Git::CommitAdd $fr}; break" bind $fr.body.lBox "Git::ListBoxPress $fr" bind $fr.body.lBox "Git::Key %K $fr" diff --git a/projman.tcl b/projman.tcl index 80acb65..41ec77e 100755 --- a/projman.tcl +++ b/projman.tcl @@ -10,7 +10,7 @@ exec wish "$0" -- "$@" ###################################################### # Version: 2.0.0 # Release: alpha -# Build: 20102022095949 +# Build: 20102022100319 ###################################################### # определим текущую версию, релиз и т.д.