git-gui: Default selection to first matching ref

[git.git] / lib / branch_rename.tcl

diff --git a/lib/branch_rename.tcl b/lib/branch_rename.tcl
index 54c72b980c1d097a937f77bf0172bab64a223eda..1cadc31d207c49eca39bdfaa2e1c19e790d323e5 100644 (file)
--- a/lib/branch_rename.tcl
+++ b/lib/branch_rename.tcl
@@ -8,7 +8,7 @@ field oldname
 field newname
 
 constructor dialog {} {
-       global all_heads current_branch
+       global current_branch
 
        make_toplevel top w
        wm title $top "[appname] ([reponame]): Rename Branch"
@@ -34,7 +34,7 @@ constructor dialog {} {
 
        frame $w.rename
        label $w.rename.oldname_l -text {Branch:}
-       eval tk_optionMenu $w.rename.oldname_m @oldname $all_heads
+       eval tk_optionMenu $w.rename.oldname_m @oldname [load_all_heads]
 
        label $w.rename.newname_l -text {New Name:}
        entry $w.rename.newname_t \
@@ -60,12 +60,11 @@ constructor dialog {} {
                $w.rename.newname_t icursor end
                focus $w.rename.newname_t
        "
-       bind $w.header <Destroy> [list delete_this $this]
        tkwait window $w
 }
 
 method _rename {} {
-       global all_heads current_branch
+       global current_branch
 
        if {$oldname eq {}} {
                tk_messageBox \
@@ -119,14 +118,6 @@ method _rename {} {
                return
        }
 
-       set oldidx [lsearch -exact -sorted $all_heads $oldname]
-       if {$oldidx >= 0} {
-               set all_heads [lreplace $all_heads $oldidx $oldidx]
-       }
-       lappend all_heads $newname
-       set all_heads [lsort $all_heads]
-       populate_branch_menu
-
        if {$current_branch eq $oldname} {
                set current_branch $newname
        }