button $w.heads.footer.rescan \
-text {Rescan} \
-command [cb _rescan]
- pack $w.heads.footer.status -side left -fill x -expand 1
+ pack $w.heads.footer.status -side left -fill x
pack $w.heads.footer.rescan -side right
- pack $w.heads.footer -side bottom -fill x -expand 1
+ pack $w.heads.footer -side bottom -fill x
pack $w.heads.sby -side right -fill y
pack $w.heads.l -side left -fill both -expand 1
pack $w.heads -fill both -expand 1 -pady 5 -padx 5
bind $w <$M1B-Key-R> [cb _rescan]
bind $w <Key-Return> [cb _delete]
bind $w <Key-Escape> [list destroy $w]
- bind $w.header <Destroy> [list delete_this $this]
return $w
}
set full_list [list]
set head_cache($cache) [list]
set full_cache($cache) [list]
- set active_ls [open "| [list git ls-remote $uri]" r]
+ set active_ls [git_read ls-remote $uri]
fconfigure $active_ls \
-blocking 0 \
-translation lf \