Добавлено обновления списка файлов в дереве

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 {

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
         }