Eskil

            set rightLines {}
            set state none
        }
        if {$newName ne ""} {
            # If fname is set, a file that had no contents has passed.
            # It could be a binary file or some other that the diffing source
            # could not handle.
            # Display the name to see that it is involved.
            if {$fname ne ""} {
                foreach side {1 2} {
                    emptyLine $top $side
                    insertLine $top $side "" $divider patch
                    insertLine $top $side "" $fname   patch
                    insertLine $top $side "" $divider patch
                }

# 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

    wm deiconify $top.balloon
}

proc unzoomRow {W} {
    set top [winfo toplevel $W]
    destroy $top.balloon
}

# Helper for fillWindowX
proc FillWindowX {W widthName newXName} {
    upvar 1 $widthName width $newXName newX
    set x [winfo rootx $W]
    set widths [::psballoon::FigureOutScreenWidths $W]
    set nScreen [expr {[llength $widths] / 2}]
    if {$nScreen <= 1} {
	set width [winfo screenwidth $W]
        set newX 0
	return
    }
    if {$nScreen == 2} {
        set minX [lindex $widths 0]
        set maxX [lindex $widths end]
        set width [expr {$maxX - $minX}]
	set newX $minX
	return
    }
    set widthList {}
    set i -1
    foreach {minX maxX} $widths {
        incr i
        lappend widthList [expr {$maxX - $minX}]
        if {$minX <= $x && $x < $maxX} {
            set screenI $i
        }
    }
    if {$screenI == 0} {
        set minX [lindex $widths 0]
        set maxX [lindex $widths 3]
        set width [expr {$maxX - $minX}]
        set newX $minX
        return
    }
    if {$screenI >= $nScreen-1} {
        set minX [lindex $widths end-3]
        set maxX [lindex $widths end]
        set width [expr {$maxX - $minX}]
        set newX $minX
        return
    }
    set widthL [expr {[lindex $widthList $screenI] + [lindex $widthList $screenI-1]}]
    set widthR [expr {[lindex $widthList $screenI] + [lindex $widthList $screenI+1]}]
    if {$widthL >= $widthR} {
        incr screenI -1
    }
    set minX [lindex $widths [* $screenI 2]]
    set maxX [lindex $widths [expr {$screenI * 2 + 3}]]
    set width [expr {$maxX - $minX}]
    set newX $minX
}

# Maximize window in X direction, trying to fill two screens
proc fillWindowX {W} {
    FillWindowX $W width newX
    set newY [winfo rooty $W]
    set height [winfo height $W]
    puts "$W [wm geometry $W]"
    puts "$W X $newX Y $newY W $width H $height"
    wm geometry $W ${width}x$height+$newX+$newY
}

# Reconfigure font
proc chFont {} {
    font configure myfont -size $::Pref(fontsize) -family $::Pref(fontfamily)
}

# Change color settings

        -command {set ::eskil(filter) {^Date}}
    $dMenu add separator
    $dMenu add command -label "Reread Source" -underline 0 \
        -command {EskilRereadSource}
        $dMenu add separator
    $dMenu add command -label "Normal Cursor" \
        -command [list normalCursor $top]
    $dMenu add command -label "Fill X" \
        -command [list fillWindowX $top]
    $dMenu add separator
    # Runtime disable of C version of DiffUtil
    $dMenu add command -label "Tcl DiffUtil" -command DisableDiffUtilC
    $dMenu add command -label "Evalstats" -command {evalstats}
    $dMenu add command -label "_stats" -command {parray _stats}
}