545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
|
545
546
547
548
549
550
551
552
553
554
555
556
557
558
559
|
-
+
|
trace add variable ::TmpPref write [list PrintTracePrefs $W]
PrintTracePrefs $W
# File
ttk::labelframe $W.lff -text "Output File" -padding 3
ttk::entryX $W.lff.fne -textvariable ::eskil($top,printFile) -width 30
ttk::button $W.lff.fnb -text "Browse" \
-command [list BrowsePrintFileName $top $W.fne]
-command [list BrowsePrintFileName $top $W.lff.fne]
grid $W.lff.fne $W.lff.fnb -sticky we -padx 3 -pady 3
grid columnconfigure $W.lff 0 -weight 1
if {$::eskil($top,printFile) eq ""} {
set ::eskil($top,printFile) "~/eskil.pdf"
}
|