diff options
| -rw-r--r-- | lib/choose_rev.tcl | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/lib/choose_rev.tcl b/lib/choose_rev.tcl index 7f2b4e603d..1aab56f5cc 100644 --- a/lib/choose_rev.tcl +++ b/lib/choose_rev.tcl @@ -133,6 +133,7 @@ constructor new {path {title {}}} { 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 } @@ -312,6 +313,10 @@ method _rebuild {pat} { $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 |