From: Heiko Voigt <hvoigt@hvoigt.net>
Date: Sun, 6 Feb 2011 17:04:27 +0000 (+0100)
Subject: git-gui: scroll down to default selection for push dialog
X-Git-Url: http://rtime.felk.cvut.cz/gitweb/sojka/git-gui.git/commitdiff_plain/fb027e148a1e256e12ecfcfac090f4f06f8d4c58

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>
---

diff --git a/lib/transport.tcl b/lib/transport.tcl
index 321f595..3067058 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