git-gui: Keep the UI responsive while counting objects in clone

diff --git a/lib/status_bar.tcl b/lib/status_bar.tcl
index 0e2ac07a5e7a752ce80060379e683a66ecb98fdc..769ef81c4bfd153e55ae4cfcacbaaa6ac2c4ffd5 100644 (file)
--- a/lib/status_bar.tcl
+++ b/lib/status_bar.tcl
@@ -9,6 +9,7 @@ field w_c       ; # canvas we draw a progress bar into
 field status  {}; # single line of text we show
 field prefix  {}; # text we format into status
 field units   {}; # unit of progress
+field meter   {}; # current core git progress meter (if active)
 
 constructor new {path} {
        set w $path
@@ -45,6 +46,7 @@ method start {msg uds} {
        set status $msg
        set prefix $msg
        set units  $uds
+       set meter  {}
 }
 
 method update {have total} {
@@ -53,14 +55,30 @@ method update {have total} {
                set pdone [expr {100 * $have / $total}]
        }
 
-       set status [format "%s ... %i of %i %s (%2i%%)" \
+       set status [mc "%s ... %i of %i %s (%2i%%)" \
                $prefix $have $total $units $pdone]
        $w_c coords bar 0 0 $pdone 20
 }
 
-method stop {msg} {
+method update_meter {buf} {
+       append meter $buf
+       set r [string last "\r" $meter]
+       if {$r == -1} {
+               return
+       }
+
+       set prior [string range $meter 0 $r]
+       set meter [string range $meter [expr {$r + 1}] end]
+       if {[regexp "\\((\\d+)/(\\d+)\\)\\s+done\r\$" $prior _j a b]} {
+               update $this $a $b
+       }
+}
+
+method stop {{msg {}}} {
        destroy $w_c
-       set status $msg
+       if {$msg ne {}} {
+               set status $msg
+       }
 }
 
 method show {msg {test {}}} {