514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
|
514
515
516
517
518
519
520
521
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
543
544
545
546
|
-
+
-
+
|
wm title .pr "Print diffs to PDF"
ttk::label .pr.hsl -anchor w -text "Header Size"
spinbox .pr.hss -textvariable ::Pref(printHeaderSize) \
-from 5 -to 16 -width 3
ttk::label .pr.cll -anchor w -text "Chars per line"
ttk::entry .pr.cle -textvariable ::Pref(printCharsPerLine) -width 4
ttk::entryX .pr.cle -textvariable ::Pref(printCharsPerLine) -width 4
ttk::frame .pr.clf
set values [list 80 [CountCharsPerLine $top]]
if {[string is digit -strict $::Pref(printCharsPerLine)]} {
lappend values $::Pref(printCharsPerLine)
}
set values [lsort -unique -integer $values]
foreach value $values {
ttk::radiobutton .pr.clf.$value -variable ::Pref(printCharsPerLine) \
-value $value -text $value
pack .pr.clf.$value -side left -padx 3 -pady 3
}
# FIXA: Select paper size
#set paperlist [lsort -dictionary [pdf4tcl::getPaperSizeList]]
#set Pref(printPaper) a4
ttk::label .pr.fnl -anchor w -text "File name"
ttk::entry .pr.fne -textvariable ::diff($top,printFile) -width 30
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"
}
|