summary refs log tree commit
diff options
context:
space:
mode:
authorShawn O. Pearce <spearce@spearce.org>2007-10-20 20:42:01 -0400
committerShawn O. Pearce <spearce@spearce.org>2007-10-20 20:42:01 -0400
commitbbbadf6e58f72ac6bf739d2a1109cbd872eb1083 (patch)
treeb25613572b846ffd5f1f274b42ad4ac582659892
parentbea6878be2fb73e50407f93f2bcd71b961510c19 (diff)
Git progress bars from tools like git-push and git-fetch use CR
to skip back to the start of the current line and redraw it with
an updated progress.  We were doing this in our Tk widget but had
failed to skip the CR, which Tk doesn't draw well.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
-rw-r--r--lib/console.tcl2
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/console.tcl b/lib/console.tcl
index 6f718fbac3..b038a78358 100644
--- a/lib/console.tcl
+++ b/lib/console.tcl
@@ -122,7 +122,7 @@ method _read {fd after} {
                         } else {
                                 $w.m.t delete $console_cr end
                                 $w.m.t insert end "\n"
-                                $w.m.t insert end [string range $buf $c $cr]
+                                $w.m.t insert end [string range $buf $c [expr {$cr - 1}]]
                                 set c $cr
                                 incr c
                         }