235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
# Finished
normalCursor $top
}
proc PdfPrint {top cpl cpln wraplines1 wraplines2} {
if {$::diff($top,printFile) != ""} {
set pdfFile $::diff($top,printFile)
} else {
set pdfFile ~/eskil.pdf
}
if {![regexp {^(.*)( \(.*?\))$} $::diff($top,leftLabel) -> lfile lrest]} {
set lfile $::diff($top,leftLabel)
set lrest ""
}
set lfile [file tail $lfile]$lrest
if {![regexp {^(.*)( \(.*?\))$} $::diff($top,rightLabel) -> rfile rrest]} {
set rfile $::diff($top,rightLabel)
set rrest ""
}
set rfile [file tail $rfile]$rrest
set pdf [eskilprint %AUTO% -file $pdfFile -cpl $cpl -cpln $cpln \
-headleft $lfile -headright $rfile -headsize 10]
set linesPerPage [$pdf getNLines]
|
|
|
|
|
|
|
|
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
|
# Finished
normalCursor $top
}
proc PdfPrint {top cpl cpln wraplines1 wraplines2} {
if {$::eskil($top,printFile) != ""} {
set pdfFile $::eskil($top,printFile)
} else {
set pdfFile ~/eskil.pdf
}
if {![regexp {^(.*)( \(.*?\))$} $::eskil($top,leftLabel) -> lfile lrest]} {
set lfile $::eskil($top,leftLabel)
set lrest ""
}
set lfile [file tail $lfile]$lrest
if {![regexp {^(.*)( \(.*?\))$} $::eskil($top,rightLabel) -> rfile rrest]} {
set rfile $::eskil($top,rightLabel)
set rrest ""
}
set rfile [file tail $rfile]$rrest
set pdf [eskilprint %AUTO% -file $pdfFile -cpl $cpl -cpln $cpln \
-headleft $lfile -headright $rfile -headsize 10]
set linesPerPage [$pdf getNLines]
|
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
|
$pdf endPrint
}
# 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 > $::diff(currentCharsPerLine)} {
set ::diff(currentCharsPerLine) $len
}
}
# Count the longest line length in the current display
proc CountCharsPerLine {top} {
set ::diff(currentCharsPerLine) 0
$::widgets($top,wDiff1) dump -text -command AccumulateMax 1.0 end
$::widgets($top,wDiff2) dump -text -command AccumulateMax 1.0 end
return $::diff(currentCharsPerLine)
}
proc BrowsePrintFileName {top entry} {
set prev $::diff($top,printFile)
set dir [file dirname $prev]
set apa [tk_getSaveFile -initialdir $dir -initialfile [file tail $prev] \
-parent [winfo toplevel $entry] -title "PDF file"]
if {$apa ne ""} {
set ::diff($top,printFile) $apa
$entry xview end
}
}
# Create a print dialog for PDF.
proc doPrint {top {quiet 0}} {
if {$quiet} {
|
|
|
|
|
|
|
|
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
|
$pdf endPrint
}
# 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 > $::eskil(currentCharsPerLine)} {
set ::eskil(currentCharsPerLine) $len
}
}
# Count the longest line length in the current display
proc CountCharsPerLine {top} {
set ::eskil(currentCharsPerLine) 0
$::widgets($top,wDiff1) dump -text -command AccumulateMax 1.0 end
$::widgets($top,wDiff2) dump -text -command AccumulateMax 1.0 end
return $::eskil(currentCharsPerLine)
}
proc BrowsePrintFileName {top entry} {
set prev $::eskil($top,printFile)
set dir [file dirname $prev]
set apa [tk_getSaveFile -initialdir $dir -initialfile [file tail $prev] \
-parent [winfo toplevel $entry] -title "PDF file"]
if {$apa ne ""} {
set ::eskil($top,printFile) $apa
$entry xview end
}
}
# Create a print dialog for PDF.
proc doPrint {top {quiet 0}} {
if {$quiet} {
|
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
|
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
# File
ttk::label .pr.fnl -anchor w -text "File name"
ttk::entryX .pr.fne -textvariable ::diff($top,printFile) -width 30
ttk::button .pr.fnb -text Browse \
-command [list BrowsePrintFileName $top .pr.fne]
if {$::diff($top,printFile) eq ""} {
set ::diff($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
|
|
|
|
|
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
|
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
# File
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]
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
|