Eskil

Check-in [1ff1004692]
Login

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Add .pdf to print file by default
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 1ff10046920b1924093d4362d840cb78afc0ddfa
User & Date: peter 2013-02-18 22:08:37.263
Context
2013-08-21
22:41
Include afm font for PDF printing. Do not allow edit in text widget after startup. [51ad7323ff] check-in: d848c432b3 user: peter tags: trunk
2013-02-18
22:08
Add .pdf to print file by default check-in: 1ff1004692 user: peter tags: trunk
2013-01-03
21:23
Adapted syntax check to updated Nagelfar check-in: 1f36e60465 user: peter tags: trunk
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/print.tcl.
︙︙
374
375
376
377
378
379
380
381





382
383
384
385
386
387
388
389
390
391


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
    }
}

# Fix to give spinbox nicer appearance
proc MySpinBox {w args} {
    # Handle if ttk::spinbox is not there since it was introduced later
    if {[info commands ttk::spinbox] eq ""} {
        set cmd [list tk::spinbox $w]








|
>
>
>
>
>
|
|
<








374
375
376
377
378
379
380
381
382
383
384
385
386
387
388

389
390
391
392
393
394
395


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 eq ""} return
    # Auto-add .pdf
    if {[file extension $apa] eq ""} {
        append apa .pdf
    }

    set ::eskil($top,printFile) $apa
    $entry xview end

}

# Fix to give spinbox nicer appearance
proc MySpinBox {w args} {
    # Handle if ttk::spinbox is not there since it was introduced later
    if {[info commands ttk::spinbox] eq ""} {
        set cmd [list tk::spinbox $w]
︙︙