Merge git-gui 0.14.0
This commit is contained in:
@ -251,7 +251,7 @@ method _write_url {args} { set urltype url }
|
||||
method _write_check_head {args} { set checktype head }
|
||||
|
||||
method _write_head_list {args} {
|
||||
global current_branch
|
||||
global current_branch _last_merged_branch
|
||||
|
||||
$head_m delete 0 end
|
||||
foreach abr $head_list {
|
||||
@ -267,6 +267,13 @@ method _write_head_list {args} {
|
||||
set check_head $current_branch
|
||||
}
|
||||
}
|
||||
set lmb [lsearch -exact -sorted $head_list $_last_merged_branch]
|
||||
if {$lmb >= 0} {
|
||||
$w.heads.l conf -state normal
|
||||
$w.heads.l select set $lmb
|
||||
$w.heads.l yview $lmb
|
||||
$w.heads.l conf -state disabled
|
||||
}
|
||||
}
|
||||
|
||||
method _write_urltype {args} {
|
||||
|
||||
Reference in New Issue
Block a user