Исправление обновления диалога

lib/git.tcl

@@ -201,8 +201,9 @@ namespace eval Git {
         global activeProject
         # Git repo status
         $w.body.t delete 1.0 end
-        $w.body.lCommit delete 1.0 end
-        $w.body.lBox delete 1.0 end
+        $w.body.tCommit delete 1.0 end
+        $w.body.lCommit delete 0 end
+        $w.body.lBox delete 0 end
         foreach { word } [Git::Status] {
             # puts $word
             if [regexp -nocase -- {([\w\s])([\s\w?]+)\s../(.+?)} $word match v1 v2 fileName] {