comparison contrib/hgk @ 18801:c84cc0f3364a

hgk: drop committer field from the UI

Remove Committer field, it doesn't make sense in Hg.

18800:a624210e4866

    set findtype Exact
    set findtypemenu [ttk::optionMenu .ctop.top.bar.findtype \
			  findtype Exact IgnCase Regexp]
    set findloc "All fields"
    ttk::optionMenu .ctop.top.bar.findloc findloc "All fields" Headline \
	Comments Author Committer Files Pickaxe
    pack .ctop.top.bar.findloc -side right
    pack .ctop.top.bar.findtype -side right
    # for making sure type==Exact whenever loc==Pickaxe
    trace add variable findloc write findlocchange

	set oldsel -1
    } else {
	set oldsel $selectedline
    }
    set didsel 0
    set fldtypes {Headline Author Date Committer CDate Comment}
    for {set l 0} {$l < $numcommits} {incr l} {
	set id $lineid($l)
	set info $commitinfo($id)
	set doesmatch 0
	foreach f $info ty $fldtypes {

    $ctext insert end "Revision: [lindex $info 6]\n"
    if {[llength [lindex $info 7]] > 0} {
        $ctext insert end "Branch: [lindex $info 7]\n"
    }
    $ctext insert end "Author: [lindex $info 1]  [lindex $info 2]\n"
    $ctext insert end "Committer: [lindex $info 3]  [lindex $info 4]\n"
    if {[info exists idbookmarks($id)]} {
	$ctext insert end "Bookmarks:"
	foreach bookmark $idbookmarks($id) {
	    $ctext insert end " $bookmark"
	}

18801:c84cc0f3364a

    set findtype Exact
    set findtypemenu [ttk::optionMenu .ctop.top.bar.findtype \
			  findtype Exact IgnCase Regexp]
    set findloc "All fields"
    ttk::optionMenu .ctop.top.bar.findloc findloc "All fields" Headline \
	Comments Author Files Pickaxe
    pack .ctop.top.bar.findloc -side right
    pack .ctop.top.bar.findtype -side right
    # for making sure type==Exact whenever loc==Pickaxe
    trace add variable findloc write findlocchange

	set oldsel -1
    } else {
	set oldsel $selectedline
    }
    set didsel 0
    set fldtypes {Headline Author Date CDate Comment}
    for {set l 0} {$l < $numcommits} {incr l} {
	set id $lineid($l)
	set info $commitinfo($id)
	set doesmatch 0
	foreach f $info ty $fldtypes {

    $ctext insert end "Revision: [lindex $info 6]\n"
    if {[llength [lindex $info 7]] > 0} {
        $ctext insert end "Branch: [lindex $info 7]\n"
    }
    $ctext insert end "Author: [lindex $info 1]  [lindex $info 2]\n"
    if {[info exists idbookmarks($id)]} {
	$ctext insert end "Bookmarks:"
	foreach bookmark $idbookmarks($id) {
	    $ctext insert end " $bookmark"
	}