You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
131 lines
2.5 KiB
131 lines
2.5 KiB
# git-gui status bar mega-widget |
|
# Copyright (C) 2007 Shawn Pearce |
|
|
|
class status_bar { |
|
|
|
field w ; # our own window path |
|
field w_l ; # text widget we draw messages into |
|
field w_c ; # canvas we draw a progress bar into |
|
field c_pack ; # script to pack the canvas with |
|
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} { |
|
global use_ttk NS |
|
set w $path |
|
set w_l $w.l |
|
set w_c $w.c |
|
|
|
${NS}::frame $w |
|
if {!$use_ttk} { |
|
$w configure -borderwidth 1 -relief sunken |
|
} |
|
${NS}::label $w_l \ |
|
-textvariable @status \ |
|
-anchor w \ |
|
-justify left |
|
pack $w_l -side left |
|
set c_pack [cb _oneline_pack] |
|
|
|
bind $w <Destroy> [cb _delete %W] |
|
return $this |
|
} |
|
|
|
method _oneline_pack {} { |
|
$w_c conf -width 100 |
|
pack $w_c -side right |
|
} |
|
|
|
constructor two_line {path} { |
|
global NS |
|
set w $path |
|
set w_l $w.l |
|
set w_c $w.c |
|
|
|
${NS}::frame $w |
|
${NS}::label $w_l \ |
|
-textvariable @status \ |
|
-anchor w \ |
|
-justify left |
|
pack $w_l -anchor w -fill x |
|
set c_pack [list pack $w_c -fill x] |
|
|
|
bind $w <Destroy> [cb _delete %W] |
|
return $this |
|
} |
|
|
|
method start {msg uds} { |
|
if {[winfo exists $w_c]} { |
|
$w_c coords bar 0 0 0 20 |
|
} else { |
|
canvas $w_c \ |
|
-height [expr {int([winfo reqheight $w_l] * 0.6)}] \ |
|
-borderwidth 1 \ |
|
-relief groove \ |
|
-highlightt 0 |
|
$w_c create rectangle 0 0 0 20 -tags bar -fill navy |
|
eval $c_pack |
|
} |
|
|
|
set status $msg |
|
set prefix $msg |
|
set units $uds |
|
set meter {} |
|
} |
|
|
|
method update {have total} { |
|
set pdone 0 |
|
set cdone 0 |
|
if {$total > 0} { |
|
set pdone [expr {100 * $have / $total}] |
|
set cdone [expr {[winfo width $w_c] * $have / $total}] |
|
} |
|
|
|
set prec [string length [format %i $total]] |
|
set status [mc "%s ... %*i of %*i %s (%3i%%)" \ |
|
$prefix \ |
|
$prec $have \ |
|
$prec $total \ |
|
$units $pdone] |
|
$w_c coords bar 0 0 $cdone 20 |
|
} |
|
|
|
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] |
|
set p "\\((\\d+)/(\\d+)\\)" |
|
if {[regexp ":\\s*\\d+% $p\(?:, done.\\s*\n|\\s*\r)\$" $prior _j a b]} { |
|
update $this $a $b |
|
} elseif {[regexp "$p\\s+done\r\$" $prior _j a b]} { |
|
update $this $a $b |
|
} |
|
} |
|
|
|
method stop {{msg {}}} { |
|
destroy $w_c |
|
if {$msg ne {}} { |
|
set status $msg |
|
} |
|
} |
|
|
|
method show {msg {test {}}} { |
|
if {$test eq {} || $status eq $test} { |
|
set status $msg |
|
} |
|
} |
|
|
|
method _delete {current} { |
|
if {$current eq $w} { |
|
delete_this |
|
} |
|
} |
|
|
|
}
|
|
|