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
|