diff --git a/lib/transport.tcl b/lib/transport.tcl
index e8ebc6eda090faed16c80ba748d21c0c53f9f2a4..3a22bd40d4df6f18204afc154cef82d5e3d52f58 100644 (file)
--- a/lib/transport.tcl
+++ b/lib/transport.tcl
[list radio_selector push_urltype remote]
proc do_push_anywhere {} {
- global all_heads all_remotes current_branch
+ global all_remotes current_branch
global push_urltype push_remote push_url push_thin push_tags
set w .push_setup
-width 70 \
-selectmode extended \
-yscrollcommand [list $w.source.sby set]
- foreach h $all_heads {
+ foreach h [load_all_heads] {
$w.source.l insert end $h
if {$h eq $current_branch} {
$w.source.l select set end