From fb027e148a1e256e12ecfcfac090f4f06f8d4c58 Mon Sep 17 00:00:00 2001
From: Heiko Voigt <hvoigt@hvoigt.net>
Date: Sun, 6 Feb 2011 18:04:27 +0100
Subject: [PATCH] git-gui: scroll down to default selection for push dialog

If the list of remote/local branches is very long its inconvenient
to scroll down and find the selected branch. This patch makes the
widget automatically scroll down so its shown on the top.

Signed-off-by: Heiko Voigt <hvoigt@hvoigt.net>
Signed-off-by: Pat Thoyts <patthoyts@users.sourceforge.net>
---
 lib/transport.tcl | 1 +
 1 file changed, 1 insertion(+)

diff --git a/lib/transport.tcl b/lib/transport.tcl
index 321f595d63..3067058857 100644
--- a/lib/transport.tcl
+++ b/lib/transport.tcl
@@ -123,6 +123,7 @@ proc do_push_anywhere {} {
 		$w.source.l insert end $h
 		if {$h eq $current_branch} {
 			$w.source.l select set end
+			$w.source.l yview end
 		}
 	}
 	pack $w.source.l -side left -fill both -expand 1