From 39683d74397377f8703ea79352011931e674dc8b Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Fri, 18 Nov 2022 13:03:48 +0300
Subject: [PATCH] =?UTF-8?q?=D0=94=D0=BE=D0=B1=D0=B0=D0=B2=D0=BB=D0=B5?=
 =?UTF-8?q?=D0=BD=D0=BE=20=D0=BE=D0=B1=D0=BD=D0=BE=D0=B2=D0=BB=D0=B5=D0=BD?=
 =?UTF-8?q?=D0=B8=D1=8F=20=D1=81=D0=BF=D0=B8=D1=81=D0=BA=D0=B0=20=D1=84?=
 =?UTF-8?q?=D0=B0=D0=B9=D0=BB=D0=BE=D0=B2=20=D0=B2=20=D0=B4=D0=B5=D1=80?=
 =?UTF-8?q?=D0=B5=D0=B2=D0=B5?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 lib/files.tcl | 3 +++
 lib/git.tcl   | 3 +++
 2 files changed, 6 insertions(+)

diff --git a/lib/files.tcl b/lib/files.tcl
index a40f6eb..0a20776 100644
--- a/lib/files.tcl
+++ b/lib/files.tcl
@@ -289,6 +289,9 @@ namespace eval FileOper {
         }
         set parent [Tree::InsertItem $tree $parent $directory "directory" [file tail $directory]]
         $tree selection set $parent
+        foreach i [$tree children $parent] {
+            $tree delete $i
+        }
         # if {[ $tree  item $parent -open] eq "false"} {
             # $tree  item $parent -open true
         # } else {
diff --git a/lib/git.tcl b/lib/git.tcl
index 9f2af56..5e87062 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -72,6 +72,7 @@ namespace eval Git {
         puts $cmd
         puts $pipe
         if [regexp -nocase -- {^error:} $pipe match] {
+            ShowMessage "Command: '$cmd' error" $pipe
             return 
         }
         foreach line [split $pipe "\n"] {
@@ -80,6 +81,8 @@ namespace eval Git {
         # cd $d
         
         .frmStatus.lblGit configure -text "[::msgcat::mc "Branch"]: [Git::Branches current]"
+        FileOper::ReadFolder $activeProject
+        
         if [info exists res] {
             return $res
         }