Исправлена ошибка при клике на списке с файлами

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 <Return> "Git::CommitAdd $fr"
-        bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}"
+        bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}; break"
         bind $fr.body.lBox <Button-1><ButtonRelease-1> "Git::ListBoxPress $fr"
         bind $fr.body.lBox <KeyRelease> "Git::Key %K $fr"
 

projman.tcl

@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 20102022095949
+# Build: 20102022100319
 ######################################################
 
 # определим текущую версию, релиз и т.д.