Eskil

Check-in [8bab80a0d2]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Make ps print runnable
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 8bab80a0d2093cb76359fa7b334292669f6c0ac4
User & Date: peter 2007-04-02 06:08:09.000
Context
2007-04-02
06:11
Corrected a bug that made highlight of changes get misaligned. Initialise nonewline and autoclose earlier to make sure they work. check-in: 2b2e19adcb user: peter tags: trunk
06:08
Make ps print runnable check-in: 8bab80a0d2 user: peter tags: trunk
2007-03-01
04:01
Fixed a bug in dirdiff filters. check-in: 742917b080 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/print.tcl.
︙︙
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141

        set tmpFile2 [file nativename $::diff($top,printFile)]
    } else {
        set tmpFile2 [file nativename ~/eskil.ps]
    }

    set lines1 {}
    set lines2 {}
    if {[info exists ::Pref(printCharsPerLine)]} {
        set wraplength $::Pref(printCharsPerLine)
    } elseif {$::Pref(wideLines)} {
        set wraplength 100
        set linesPerPage 74
    } else {
        set wraplength 85
        set linesPerPage 66








|








127
128
129
130
131
132
133
134
135
136
137
138
139
140
141

        set tmpFile2 [file nativename $::diff($top,printFile)]
    } else {
        set tmpFile2 [file nativename ~/eskil.ps]
    }

    set lines1 {}
    set lines2 {}
    if {$pdfprint && [info exists ::Pref(printCharsPerLine)]} {
        set wraplength $::Pref(printCharsPerLine)
    } elseif {$::Pref(wideLines)} {
        set wraplength 100
        set linesPerPage 74
    } else {
        set wraplength 85
        set linesPerPage 66
︙︙