mirrors/git
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

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

Browse Source 
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>
This commit is contained in:
Shawn O. Pearce
2007-07-08 21:34:28 -04:00
parent 84d3d7b84c
commit 827c71199d
2 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
lib/branch_checkout.tcl
View File

@ -30,6 +30,7 @@ constructor dialog {} {
pack $w.buttons -side bottom -fill x -pady 10 -padx 10 pack $w.buttons -side bottom -fill x -pady 10 -padx 10
set w_rev [::choose_rev::new $w.rev {Revision}] 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 pack $w.rev -anchor nw -fill both -expand 1 -pady 5 -padx 5
labelframe $w.options -text {Options} labelframe $w.options -text {Options}

4
lib/choose_rev.tcl
View File

@ -185,6 +185,10 @@ method focus_filter {} {
} }
} }
method bind_listbox {event script} {
bind $w_list $event $script
}
method get_local_branch {} { method get_local_branch {} {
if {$revtype eq {head}} { if {$revtype eq {head}} {
return [_expr $this] return [_expr $this]