comparison contrib/hgk @ 5394:0ad0e97345eb

hgk: add context menu visual diff action
* * *

5393:c2ad1890fc53

    global canv canv2 canv3 linespc charspc ctext cflist textfont
    global findtype findtypemenu findloc findstring fstring geometry
    global entries sha1entry sha1string sha1but
    global maincursor textcursor curtextcursor
    global rowctxmenu gaudydiff mergemax

    menu .bar
    .bar add cascade -label "File" -menu .bar.file
    menu .bar.file
    .bar.file add command -label "Reread references" -command rereadrefs

    $rowctxmenu add command -label "Diff selected -> this" \
	-command {diffvssel 1}
    $rowctxmenu add command -label "Make patch" -command mkpatch
    $rowctxmenu add command -label "Create tag" -command mktag
    $rowctxmenu add command -label "Write commit to file" -command writecommit
}

# when we make a key binding for the toplevel, make sure
# it doesn't get triggered when that key is pressed in the
# find string entry widget.

    }
    return [format "%.3f" [expr {([clock click -milliseconds] - $startmstime) / 1000.0}]]
}

proc rowmenu {x y id} {
    global rowctxmenu idline selectedline rowmenuid

    if {![info exists selectedline] || $idline($id) eq $selectedline} {
	set state disabled
    } else {
	set state normal
    }
    $rowctxmenu entryconfigure 0 -state $state
    $rowctxmenu entryconfigure 1 -state $state
    $rowctxmenu entryconfigure 2 -state $state
    set rowmenuid $id
    tk_popup $rowctxmenu $x $y
}

proc diffvssel {dirn} {

	    redrawtags $id
	}
    }
}

proc showtag {tag isnew} {
    global ctext cflist tagcontents tagids linknum

    if {$isnew} {
	addtohistory [list showtag $tag 0]

set stopped 0
set redisplaying 0
set stuffsaved 0
set patchnum 0
setcoords
makewindow
readrefs
set hgroot [exec $env(HG) root]
wm title . "hgk $hgroot"

5394:0ad0e97345eb

    global canv canv2 canv3 linespc charspc ctext cflist textfont
    global findtype findtypemenu findloc findstring fstring geometry
    global entries sha1entry sha1string sha1but
    global maincursor textcursor curtextcursor
    global rowctxmenu gaudydiff mergemax
    global hgvdiff

    menu .bar
    .bar add cascade -label "File" -menu .bar.file
    menu .bar.file
    .bar.file add command -label "Reread references" -command rereadrefs

    $rowctxmenu add command -label "Diff selected -> this" \
	-command {diffvssel 1}
    $rowctxmenu add command -label "Make patch" -command mkpatch
    $rowctxmenu add command -label "Create tag" -command mktag
    $rowctxmenu add command -label "Write commit to file" -command writecommit
    if { $hgvdiff ne "" } {
	$rowctxmenu add command -label "Visual diff with parent" \
	    -command {vdiff 1}
	$rowctxmenu add command -label "Visual diff with selected" \
	    -command {vdiff 0}
    }
}

# when we make a key binding for the toplevel, make sure
# it doesn't get triggered when that key is pressed in the
# find string entry widget.

    }
    return [format "%.3f" [expr {([clock click -milliseconds] - $startmstime) / 1000.0}]]
}

proc rowmenu {x y id} {
    global rowctxmenu idline selectedline rowmenuid hgvdiff

    if {![info exists selectedline] || $idline($id) eq $selectedline} {
	set state disabled
    } else {
	set state normal
    }
    $rowctxmenu entryconfigure 0 -state $state
    $rowctxmenu entryconfigure 1 -state $state
    $rowctxmenu entryconfigure 2 -state $state
    if { $hgvdiff ne "" } {
	$rowctxmenu entryconfigure 6 -state $state
    }
    set rowmenuid $id
    tk_popup $rowctxmenu $x $y
}

proc diffvssel {dirn} {

	    redrawtags $id
	}
    }
}

proc vdiff {withparent} {
    global env rowmenuid selectedline lineid

    if {![info exists rowmenuid]} return
    set curid $rowmenuid

    if {$withparent} {
	set parents [exec $env(HG) --config ui.report_untrusted=false parents --rev $curid --template "{node}\n"]
	set firstparent [lindex [split $parents "\n"] 0]
	set otherid $firstparent
    } else {
	if {![info exists selectedline]} return
	set otherid $lineid($selectedline)
    }
    set range "$otherid:$curid"
    if {[catch {exec $env(HG) --config ui.report_untrusted=false vdiff -r $range} err]} {
        # Ignore errors, this is just visualization
    }
}

proc showtag {tag isnew} {
    global ctext cflist tagcontents tagids linknum

    if {$isnew} {
	addtohistory [list showtag $tag 0]

set stopped 0
set redisplaying 0
set stuffsaved 0
set patchnum 0

array set config [getconfig]
set hgvdiff $config(vdiff)
setcoords
makewindow
readrefs
set hgroot [exec $env(HG) root]
wm title . "hgk $hgroot"