From a9879738b7d452ca867ab3e1d820f66ec2217163 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Thu, 20 Oct 2022 10:02:47 +0300
Subject: [PATCH] New build

---
 CHANGELOG   |  5 ++++-
 lib/git.tcl | 11 ++++++-----
 projman.tcl |  2 +-
 3 files changed, 11 insertions(+), 7 deletions(-)

diff --git a/CHANGELOG b/CHANGELOG
index da44899..aa59def 100644
--- a/CHANGELOG
+++ b/CHANGELOG
@@ -114,4 +114,7 @@
     - Added procedure for the horizontal split a text window
     - Fixed untitled file saved
     - Fixed Alt+R (delete row), now will are deleted row with a "\n\r" symbols
-
+    
+20/10/200
+    - Added Git support: add and commit changes, show git log, show each commit...
+    
diff --git a/lib/git.tcl b/lib/git.tcl
index 5793395..d98e756 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -150,9 +150,9 @@ namespace eval Git {
         # }
         puts $cmd
         catch $cmd pipe
-        puts $pipe
+        # puts $pipe
         foreach line [split $pipe "\n"] {
-            puts "$line"
+            # puts "$line"
             lappend res $line
         }
         return $res
@@ -175,7 +175,7 @@ namespace eval Git {
 
         puts $cmd
         catch $cmd pipe
-        puts $pipe
+        # puts $pipe
         set i 0
         foreach line [split $pipe "\n"] {
             if {$i == 0} {
@@ -186,7 +186,7 @@ namespace eval Git {
                 $w.body.tCommit inser end "Date: [lindex $str 3]\n"
                 $w.body.tCommit inser end "Description: [string trimright [lindex $str 4] "\""]\n"
             } else {
-                puts "$line"
+                # puts "$line"
                 $w.body.t inser end "$line\n"
             }
             incr i
@@ -380,11 +380,12 @@ 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> "Git::CommitAdd $fr"
+        bind $fr.body.lBox <Double-Button-1> "catch {Git::CommitAdd $fr}"
         bind $fr.body.lBox <Button-1><ButtonRelease-1> "Git::ListBoxPress $fr"
         bind $fr.body.lBox <KeyRelease> "Git::Key %K $fr"
 
         bind $fr.body.lLog <Double-Button-1> "Git::Show $fr"
+        bind $fr.body.lLog <Return> "Git::Show $fr"
         
         focus -force $fr.body.lBox
         catch {
diff --git a/projman.tcl b/projman.tcl
index c680bcb..80acb65 100755
--- a/projman.tcl
+++ b/projman.tcl
@@ -10,7 +10,7 @@ exec wish "$0" -- "$@"
 ######################################################
 # Version: 2.0.0
 # Release: alpha
-# Build: 19102022155228
+# Build: 20102022095949
 ######################################################
 
 # определим текущую версию, релиз и т.д.