diff options
| -rw-r--r-- | lib/branch_checkout.tcl | 1 | ||||
| -rw-r--r-- | lib/choose_rev.tcl | 4 |
2 files changed, 5 insertions, 0 deletions
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] |