Eskil

    if {!$quiet} {
        tk_messageBox -title "Eskil Print" -parent $top \
                -message "Printed $npages pages to $pdfFile" -type ok
    }
}

# Count the length of a line during a text dump
proc AccumulateMax {key value index} {
proc AccumulateMax {top key value index} {
    set index [lindex [split $index "."] 1]
    set len [expr {[string length $value] + $index - 1}]
    if {$len > 0} {
        lappend ::eskil(currentCharsPerLine) $len
        lappend ::eskil($top,currentCharsPerLine) $len
    }
}

# Count the longest line length in the current display
proc CountCharsPerLine {top} {
    set ::eskil(currentCharsPerLine) {}
    $::widgets($top,wDiff1) dump -text -command AccumulateMax 1.0 end
    $::widgets($top,wDiff2) dump -text -command AccumulateMax 1.0 end
    set ::eskil(currentCharsPerLine) \
            [lsort -integer $::eskil(currentCharsPerLine)]
    return [lindex $::eskil(currentCharsPerLine) end]
    set ::eskil($top,currentCharsPerLine) {}
    $::widgets($top,wDiff1) dump -text -command [list AccumulateMax $top] 1.0 end
    $::widgets($top,wDiff2) dump -text -command [list AccumulateMax $top] 1.0 end
    set ::eskil($top,currentCharsPerLine) \
            [lsort -integer $::eskil($top,currentCharsPerLine)]
    return [lindex $::eskil($top,currentCharsPerLine) end]
}

# In a sorted list of integers, figure out where val fits
# In 8.6 this could use lsearch -bisect
proc FindPercentile {l val} {
    set len [llength $l]
    # No elements, so all are covered in a way

# 80 chars, and longest line used are always included.
proc CharsPerLineOptions {top} {
    set values [list 80]
    set cpl [CountCharsPerLine $top]
    if {$cpl ne "" && $cpl != 0} {
        lappend values $cpl
    }
    # Include previous selection
    if {[string is digit -strict $::Pref(printCharsPerLine)]} {
        lappend values $::Pref(printCharsPerLine)
    }
    # Include 90% if reasonable
    set len [llength $::eskil(currentCharsPerLine)]
    set cpl [lindex $::eskil(currentCharsPerLine) [expr {9*$len/10}]]
    set len [llength $::eskil($top,currentCharsPerLine)]
    set cpl [lindex $::eskil($top,currentCharsPerLine) [expr {9*$len/10}]]
    if {$cpl ne "" && $cpl != 0} {
        lappend values $cpl
    }

    set values [lsort -unique -integer $values]
    set result {}
    foreach value $values {
        set p [FindPercentile $::eskil(currentCharsPerLine) $value]
        set p [FindPercentile $::eskil($top,currentCharsPerLine) $value]
        lappend result $value "$value ($p %)" \
                "$p % of the lines are within this line length"
    }
    return $result
}

proc BrowsePrintFileName {top entry} {

    } else {
        set cmd [list ttk::spinbox $w]
        lappend cmd -command [list $w selection clear] -state readonly
    }
    lappend cmd {*}$args
    {*}$cmd
}

proc PrintTracePrefs {W args} {
    set ::Pref(printColorChange) \
            [list $::TmpPref(chr) $::TmpPref(chg) $::TmpPref(chb)]
    set ::Pref(printColorNew1) \
            [list $::TmpPref(n1r) $::TmpPref(n1g) $::TmpPref(n1b)]
    set ::Pref(printColorNew2) \
            [list $::TmpPref(n2r) $::TmpPref(n2g) $::TmpPref(n2b)]

    if  {![winfo exists $W.cf.l1e]} return
    foreach w {1 2 3} p {ch n1 n2} {
        set r [expr {int(255*$::TmpPref(${p}r))}] 
        set g [expr {int(255*$::TmpPref(${p}g))}] 
        set b [expr {int(255*$::TmpPref(${p}b))}] 
        set col [format \#%02X%02X%02X $r $g $b]
        $W.cf.l${w}e configure -background $col
    }
}

# Create a print dialog for PDF.
proc doPrint {top {quiet 0}} {
    if {$quiet} {
        PrintDiffs $top 1
        return
    }

    set W $top.pr
    destroy .pr
    toplevel .pr -padx 3 -pady 3
    wm title .pr "Print diffs to PDF"
    destroy $W
    ttk::toplevel $W -padx 3 -pady 3
    wm title $W "Print diffs to PDF"

    # Layout
    # Layout settings
    ttk::labelframe $W.lfs -text "Settings" -padding 3

    ttk::label .pr.hsl -anchor w -text "Header Size"
    MySpinBox .pr.hss -textvariable ::Pref(printHeaderSize) \
    ttk::label $W.lfs.hsl -anchor w -text "Header Size"
    addBalloon $W.lfs.hsl "Font size for page header"
    MySpinBox $W.lfs.hss -textvariable ::Pref(printHeaderSize) \
            -from 5 -to 16 -width 3 -format %.0f

    ttk::label .pr.cll -anchor w -text "Chars per line"
    ttk::entryX .pr.cle -textvariable ::Pref(printCharsPerLine) -width 4
    ttk::frame .pr.clf
    ttk::label $W.lfs.cll -anchor w -text "Chars per line"
    addBalloon $W.lfs.cll "Font size is scaled to fit this"
    ttk::entryX $W.lfs.cle -textvariable ::Pref(printCharsPerLine) -width 4
    ttk::frame $W.lfs.clf
 
    set values [CharsPerLineOptions $top]
    foreach {value label balloon} $values {
        ttk::radiobutton .pr.clf.$value -variable ::Pref(printCharsPerLine) \
        ttk::radiobutton $W.lfs.clf.$value -variable ::Pref(printCharsPerLine) \
            -value $value -text $label
        addBalloon .pr.clf.$value $balloon
        pack .pr.clf.$value -side left -padx 3 -pady 3
        addBalloon $W.lfs.clf.$value $balloon
        pack $W.lfs.clf.$value -side left -padx 3 -pady 3
    }

    # Select paper size
    set paperlist [lsort -dictionary [pdf4tcl::getPaperSizeList]]
    ttk::label .pr.psl -anchor w -text "Paper Size"
    ttk::combobox .pr.psc -values $paperlist -textvariable ::Pref(printPaper) \
    ttk::label $W.lfs.psl -anchor w -text "Paper Size"
    ttk::combobox $W.lfs.psc -values $paperlist -textvariable ::Pref(printPaper) \
            -width 6 -state readonly

    grid $W.lfs.hsl $W.lfs.hss               -sticky we -padx 3 -pady 3
    grid $W.lfs.psl $W.lfs.psc               -sticky we -padx 3 -pady 3
    grid $W.lfs.cll $W.lfs.cle $W.lfs.clf -  -sticky we -padx 3 -pady 3
    grid columnconfigure $W.lfs 1 -weight 1
    
    # Color
    foreach {::TmpPref(chr) ::TmpPref(chg) ::TmpPref(chb)} \
            $::Pref(printColorChange) break
    foreach {::TmpPref(n1r) ::TmpPref(n1g) ::TmpPref(n1b)} \
            $::Pref(printColorNew1) break
    foreach {::TmpPref(n2r) ::TmpPref(n2g) ::TmpPref(n2b)} \
            $::Pref(printColorNew2) break
    trace add variable ::TmpPref write {
        set ::Pref(printColorChange) \
                [list $::TmpPref(chr) $::TmpPref(chg) $::TmpPref(chb)]
        set ::Pref(printColorNew1) \
                [list $::TmpPref(n1r) $::TmpPref(n1g) $::TmpPref(n1b)]
        set ::Pref(printColorNew2) \
                [list $::TmpPref(n2r) $::TmpPref(n2g) $::TmpPref(n2b)]
    list}

    ttk::labelframe .pr.cf -text "Color" -padding 3
    ttk::labelframe $W.cf -text "Background Color" -padding 3

    ttk::label .pr.cf.hr -text "Red"
    ttk::label .pr.cf.hg -text "Green"
    ttk::label .pr.cf.hb -text "Blue"
    ttk::label $W.cf.hr -text "Red"
    ttk::label $W.cf.hg -text "Green"
    ttk::label $W.cf.hb -text "Blue"

    ttk::label .pr.cf.l1 -text "Change"
    MySpinBox .pr.cf.s1r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(chr)
    MySpinBox .pr.cf.s1g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(chg)
    MySpinBox .pr.cf.s1b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
    ttk::label $W.cf.l1 -text "Change"
    MySpinBox $W.cf.s1r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(chr)
    MySpinBox $W.cf.s1g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(chg)
    MySpinBox $W.cf.s1b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(chb)
    ttk::label $W.cf.l1e -text "Example"
    addBalloon $W.cf.l1e "Screen approximation of print color"

    ttk::label $W.cf.l2 -text "Old"
    MySpinBox $W.cf.s2r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(n1r)
    MySpinBox $W.cf.s2g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(chb)

    ttk::label .pr.cf.l2 -text "Old"
    MySpinBox .pr.cf.s2r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n1r)
    MySpinBox .pr.cf.s2g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n1g)
    MySpinBox .pr.cf.s2b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n1b)
            -width 5 -textvariable ::TmpPref(n1g)
    MySpinBox $W.cf.s2b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(n1b)
    ttk::label $W.cf.l2e -text "Example"

    ttk::label .pr.cf.l3 -text "New"
    MySpinBox .pr.cf.s3r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n2r)
    MySpinBox .pr.cf.s3g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n2g)
    MySpinBox .pr.cf.s3b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 4 -textvariable ::TmpPref(n2b)
    ttk::label $W.cf.l3 -text "New"
    MySpinBox $W.cf.s3r -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(n2r)
    MySpinBox $W.cf.s3g -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(n2g)
    MySpinBox $W.cf.s3b -from 0.0 -to 1.0 -increment 0.1 -format %.1f \
            -width 5 -textvariable ::TmpPref(n2b)
    ttk::label $W.cf.l3e -text "Example"

    grid x         .pr.cf.hr  .pr.cf.hg  .pr.cf.hb  -pady 1
    grid .pr.cf.l1 .pr.cf.s1r .pr.cf.s1g .pr.cf.s1b -sticky w -padx 3 -pady 3
    grid .pr.cf.l2 .pr.cf.s2r .pr.cf.s2g .pr.cf.s2b -sticky w -padx 3 -pady 3
    grid .pr.cf.l3 .pr.cf.s3r .pr.cf.s3g .pr.cf.s3b -sticky w -padx 3 -pady 3
    grid x        $W.cf.hr  $W.cf.hg  $W.cf.hb  -pady 1
    grid $W.cf.l1 $W.cf.s1r $W.cf.s1g $W.cf.s1b $W.cf.l1e -sticky w -padx 3 -pady 3
    grid $W.cf.l2 $W.cf.s2r $W.cf.s2g $W.cf.s2b $W.cf.l2e -sticky w -padx 3 -pady 3
    grid $W.cf.l3 $W.cf.s3r $W.cf.s3g $W.cf.s3b $W.cf.l3e -sticky w -padx 3 -pady 3

    trace add variable ::TmpPref write [list PrintTracePrefs $W]
    PrintTracePrefs $W

    # File

    ttk::labelframe $W.lff -text "Output File" -padding 3
    ttk::label .pr.fnl -anchor w -text "File name"
    ttk::entryX .pr.fne -textvariable ::eskil($top,printFile) -width 30
    ttk::button .pr.fnb -text Browse \
            -command [list BrowsePrintFileName $top .pr.fne]
    ttk::entryX $W.lff.fne -textvariable ::eskil($top,printFile) -width 30
    ttk::button $W.lff.fnb -text "Browse" \
            -command [list BrowsePrintFileName $top $W.fne]
    grid $W.lff.fne $W.lff.fnb -sticky we -padx 3 -pady 3
    grid columnconfigure $W.lff 0 -weight 1

    if {$::eskil($top,printFile) eq ""} {
        set ::eskil($top,printFile) "~/eskil.pdf"
    }

    ttk::frame .pr.fb
    ttk::button .pr.b1 -text "Print to File" \
            -command "destroy .pr; update; PrintDiffs $top"
    ttk::button .pr.b2 -text "Cancel" -command {destroy .pr}
    pack .pr.b1 -in .pr.fb -side left  -padx 3 -pady 3 -ipadx 5
    pack .pr.b2 -in .pr.fb -side right -padx 3 -pady 3 -ipadx 5

    grid .pr.hsl .pr.hss         -sticky we -padx 3 -pady 3
    grid .pr.psl .pr.psc         -sticky we -padx 3 -pady 3
    grid .pr.cll .pr.cle .pr.clf -sticky we -padx 3 -pady 3
    ttk::frame $W.fb
    ttk::button $W.b1 -text "Print to File" \
            -command "destroy $W; update; PrintDiffs $top"
    ttk::button $W.b2 -text "Cancel" -command {destroy $W}
    pack $W.b1 -in $W.fb -side left  -padx {0 3} -pady 3 -ipadx 5
    pack $W.b2 -in $W.fb -side right -padx {3 0} -pady 3 -ipadx 5
    
    # Top Layout
    grid $W.lfs   -sticky we -padx 3 -pady 3
    grid $W.cf    -sticky we -padx 3 -pady 3
    grid $W.lff   -sticky we -padx 3 -pady 3
    grid .pr.cf  -       - -     -sticky w  -padx 3 -pady 3
    grid .pr.fnl .pr.fne - .pr.fnb -sticky we -padx 3 -pady 3
    grid $W.fb    -sticky swe -padx 3 -pady 3
    grid .pr.fb  -       - -       -sticky we -padx 3 -pady 3

    grid columnconfigure .pr 2 -weight 1
    grid columnconfigure $W 0 -weight 1
    grid rowconfigure $W $W.fb -weight 1
}