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 62230efe430f93f7bbdc051cb3687e39b93283c9..72c45b45541749699460de1122c711888b389403 100644 (file)
--- 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 1aab56f5cc18de72d43af88b475c8c85d0f0dcb8..afd81707ceb08ccc106e76b082f892c824dfb828 100644 (file)
--- 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]