226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
|
-
+
-
+
|
} elseif {$w2 > $w1} {
for {set t $w1} {$t < $w2} {incr t} {
lappend wraplines1 {}
}
}
}
PdfPrint $top $wraplength $maxlen $wraplines1 $wraplines2
PdfPrint $top $wraplength $maxlen $wraplines1 $wraplines2 $quiet
# Finished
normalCursor $top
}
proc PdfPrint {top cpl cpln wraplines1 wraplines2} {
proc PdfPrint {top cpl cpln wraplines1 wraplines2 {quiet 0}} {
if {$::eskil($top,printFile) != ""} {
set pdfFile $::eskil($top,printFile)
} else {
set pdfFile ~/eskil.pdf
}
|
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
|
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
|
+
-
+
+
|
for {set i 0} {$i < $linesPerPage && $i2 < $len2} {incr i ; incr i2} {
$pdf drawTextLine [lindex $wraplines2 $i2]
$pdf newLine
}
}
$pdf endPrint
if {!$quiet} {
tk_messageBox -title "Eskil Print" -parent $top \
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} {
set index [lindex [split $index "."] 1]
set len [expr {[string length $value] + $index - 1}]
if {$len > 0} {
|