From: Shawn O. Pearce <spearce@spearce.org>
Date: Mon, 9 Jul 2007 01:34:28 +0000 (-0400)
Subject: git-gui: Allow double-click in checkout dialog to start checkout
X-Git-Tag: v1.5.3-rc1~16^2~16
X-Git-Url: http://git.osdn.net/view?a=commitdiff_plain;h=827c71199da9b762e0758fe96302d0c8b7a04bb9;p=git-core%2Fgit.git

git-gui: Allow double-click in checkout dialog to start checkout

If the user double clicks a branch in the checkout dialog then they
probably want to start the checkout process on that branch.  I found
myself doing this without realizing it, and of course it did nothing
as there was no action bound to the listbox's Double-Button-1 event
handler.  Since I did it without thinking, others will probably also
try, and expect the same behavior.

Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
---

diff --git a/lib/branch_checkout.tcl b/lib/branch_checkout.tcl
index 62230efe4..72c45b455 100644
--- a/lib/branch_checkout.tcl
+++ b/lib/branch_checkout.tcl
@@ -30,6 +30,7 @@ constructor dialog {} {
 	pack $w.buttons -side bottom -fill x -pady 10 -padx 10
 
 	set w_rev [::choose_rev::new $w.rev {Revision}]
+	$w_rev bind_listbox <Double-Button-1> [cb _checkout]
 	pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
 
 	labelframe $w.options -text {Options}
diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl
index 1aab56f5c..afd81707c 100644
--- a/lib/choose_rev.tcl
+++ b/lib/choose_rev.tcl
@@ -185,6 +185,10 @@ method focus_filter {} {
 	}
 }
 
+method bind_listbox {event script}  {
+	bind $w_list $event $script
+}
+
 method get_local_branch {} {
 	if {$revtype eq {head}} {
 		return [_expr $this]