From 827c71199da9b762e0758fe96302d0c8b7a04bb9 Mon Sep 17 00:00:00 2001 From: "Shawn O. Pearce" Date: Sun, 8 Jul 2007 21:34:28 -0400 Subject: [PATCH] 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 --- lib/branch_checkout.tcl | 1 + lib/choose_rev.tcl | 4 ++++ 2 files changed, 5 insertions(+) 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 [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] -- 2.30.2