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
}
}
+method bind_listbox {event script} {
+ bind $w_list $event $script
+}
+
method get_local_branch {} {
if {$revtype eq {head}} {
return [_expr $this]