Eskil

2019-11-10
 More combinations allowed in edit mode. Including copy block of selected text.

2019-11-10
 Code cleanup to adhere a bit to some consistent standard.

2019-08-28
 Allow multiple pairs of files on the command line to open multiple windows.

2019-07-05
 Ctrl-E to enable Edit Mode.
 Do not ask about overwriting in Edit Mode. Hidden preference to turn it on.
 Added -subst command line, to acces PreProcess Subst function.

<title>Changes</title>

Upcoming changes (not yet released):

  *  TBW
  *  Added -subst command line, to access PreProcess Subst function.
  *  Better SVN commit, handling added directories.
  *  Ctrl-E to enable Edit Mode.
  *  Allow copying selected lines in Edit Mode.
  *  Allow deleting any line in Edit Mode.

Changes in v2.8.4 (2019-02-06):

  *  Commit dialog includes a selection of files, for partial commit.
  *  Better support for multiple files and directories with -review.
  *  Added save-reload option in edit mode.
  *  Bug-fix with deleted files in GIT directory diff.

# Called by popup menus over row numbers to add commands for editing.
# Returns 1 if nothing was added.
proc editMenu {mW top side changeIndex x y} {

    if { ! [mayEdit $top $side]} {return 1}



    set other [expr {$side == 1 ? 2 : 1}]
    set editOther [mayEdit $top $other]
 
    set dW $::widgets($top,wDiff$side)
    set lW $::widgets($top,wLine$side)
    set oW $::widgets($top,wLine$other)

    set changed 1
    
    if {$changeIndex eq "_"} {
        # The popup is on unchanged line numbers
        set changed 0
        # Get the row that was clicked
        set index [$lW index @$x,$y]
        set row [lindex [split $index "."] 0]
        # Range is that row
        set range  [list $row.0 $row.end]
        set rangeo [list $row.0 $row.end]
    } elseif {$changeIndex eq ""} {
        # The popup is on selected text.
        # Get the row that was clicked
        set index [$dW index @$x,$y]
        set row [lindex [split $index "."] 0]
        # Figure out the rows involved in the selection.
        set range [$dW tag ranges sel]
        set from [lindex $range 0]
        set to   [lindex $range 1]
        lassign [split $from "."] froml fromi
        lassign [split $to   "."] tol   toi
        if {$toi == 0} {incr tol -1}
        set range  [list $froml.0 $tol.end]
        set rangeo [list $froml.0 $tol.end]
    } else {



        # The popup is on a change block in line numbers
        # Get the row that was clicked


        set index [$lW index @$x,$y]
        set row [lindex [split $index "."] 0]
        # Get ranges for the change block
        set range  [$lW tag ranges hl$changeIndex]
        set rangeo [$oW tag ranges hl$changeIndex]
    }

    set line  [regexp -inline {\d+} [$lW get $row.0 $row.end]]
    set lineo [regexp -inline {\d+} [$oW get $row.0 $row.end]]

    # Row copy
    if {$lineo ne ""} {
        $mW add command -label "Copy Row from other side" \
                -command [list copyRow $top $other $row]
    }
    $mW add command -label "Delete Row" \
            -command [list deleteBlock $top $side $row]
    if {$line ne "" && $editOther && $changed} {
        $mW add command -label "Copy Row to other side" \
                -command [list copyRow $top $side $row]
    }

    if {$changed} {
        # Get the lines involved in the block
        lassign [getLinesFromRange $lW $range ] from  to  froml  tol
        lassign [getLinesFromRange $oW $rangeo] fromo too fromlo tolo

        # More than one line in the block?
        set thisSize 0
        set otherSize 0
        if {$froml ne "" && $tol ne ""} {
            set thisSize [expr {$tol - $froml + 1}]

        cloneDiff $top [concat $::eskil($top,separatelines1) \
                               $::eskil($top,separatelines2)]
        unset ::eskil($top,separate1)
        unset ::eskil($top,separate2)
    }
}

# No changeIndex means that the popup is over selected text rather than
# line numbers.
proc hlPopup {top side changeIndex X Y x y} {
    if {[info exists ::eskil($top,nopopup)] && $::eskil($top,nopopup)} return
    destroy .lpm
    menu .lpm

    if { ! [editMenu .lpm $top $side $changeIndex $x $y]} {
        .lpm add separator

proc rowPopup {W X Y x y} {
    set top [winfo toplevel $W]
    if {[info exists ::eskil($top,nopopup)] && $::eskil($top,nopopup)} return
    destroy .lpm
    menu .lpm

    regexp {(\d+)\D*$} $W -> side
    set tmp1 [editMenu  .lpm $top $side "_" $x $y]
    if { ! $tmp1} {.lpm add separator}
    set tmp2 [alignMenu .lpm $top $side $x $y]
    if {$tmp1 && $tmp2} {
        # Nothing in the menu
        return
    }
    if { ! $tmp1 && $tmp2} {.lpm delete last}