git-gui: New Git version check support routine
[gitweb.git] / lib / remote_branch_delete.tcl
index bc39581b86fdb9a9dc1d091c0d07b35a00c57ed9..d7e2b8db4549cf81c0fd82eadb8c3ea88fe6927f 100644 (file)
@@ -98,10 +98,10 @@ constructor dialog {} {
        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
@@ -131,7 +131,6 @@ constructor dialog {} {
        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
 }