diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl
index 7f2b4e603d59588a8fbada60e14556e764b5de72..afd81707ceb08ccc106e76b082f892c824dfb828 100644 (file)
--- a/lib/choose_rev.tcl
+++ b/lib/choose_rev.tcl
set i 0
foreach spec $spec_head {
if {[lindex $spec 0] eq $current_branch} {
+ $w_list selection clear 0 end
$w_list selection set $i
break
}
}
}
+method bind_listbox {event script} {
+ bind $w_list $event $script
+}
+
method get_local_branch {} {
if {$revtype eq {head}} {
return [_expr $this]
$w_list insert end $txt
}
}
+ if {$cur_specs ne {}} {
+ $w_list selection clear 0 end
+ $w_list selection set 0
+ }
if {[$w_filter cget -state] ne $ste} {
$w_list configure -state $ste