From 78d17cb25bb0ae7e535d79b2997690765dc6c810 Mon Sep 17 00:00:00 2001
From: svkalinin <svkalinin@samsonpost.ru>
Date: Wed, 19 Oct 2022 15:40:39 +0300
Subject: [PATCH] Fix

---
 lib/git.tcl | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/lib/git.tcl b/lib/git.tcl
index 9f0e140..5e74459 100644
--- a/lib/git.tcl
+++ b/lib/git.tcl
@@ -200,6 +200,9 @@ namespace eval Git {
     proc DialogUpdate {w} {
         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
         foreach { word } [Git::Status] {
             # puts $word
             if [regexp -nocase -- {([\w\s])([\s\w?]+)\s../(.+?)} $word match v1 v2 fileName] {