If we have specifications listed in our revision picker mega-widget
then we should default the selection within that widget to the first
ref available. This way the user does not need to use the spacebar
to activate the selection of a ref within the box; instead they can
navigate up/down with the arrow keys and be done with it.
Signed-off-by: Shawn O. Pearce <spearce@spearce.org>
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
}
$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