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] {