1. Forum
  2. Usenet
  3. COMP.LANG.TCL

  • tk print from 8.7 for 8.6

    From greg@21:1/5 to All on Sun Sep 10 11:43:09 2023
    Two files print-8.6erw.tcl and print-test.tcl.
    tried to see if it also works with 8.6


    #print-8.6erw.tcl
    package require gdi
    package require printer
    #Tcl Extensions by Michael Schwarz
    #http://wiki.tcl-lang.org/page/TkPrint
    package require struct::list

    namespace eval ::tk::print {
    proc _opendoc {} {
    printer job start
    }

    proc _openpage {} {
    printer page start
    }

    proc _closedoc {} {
    printer job end
    }

    proc _closepage {} {
    printer page end
    }

    proc _gdi {args} {
    gdi {*}$args
    #tailcall gdi {*}$args
    }

    proc _selectprinter {} {
    # variable printargs
    variable printer_name
    variable paper_width
    variable paper_height
    variable dpi_x
    variable dpi_y
    variable copies
    set hDc [printer dialog select]
    set attr [struct::list flatten [printer attr -hDc $hDc]]
    # set printer_name [dict get $attr device]
    # set printargs(printer_name) [dict get $attr device]
    set printer_name [lindex $hDc 0]
    set paper_width [lindex [dict get $attr "page dimensions"] 0]
    set paper_height [lindex [dict get $attr "page dimensions"] 1]
    set dpi_x [lindex [dict get $attr "pixels per inch"] 0]
    set dpi_y [lindex [dict get $attr "pixels per inch"] 1]
    set copies [dict get $attr copies]
    }

    #print-test.tcl
    package require Tk
    #tk 8.7
    #https://core.tcl-lang.org/tips/doc/trunk/tip/604.md #https://core.tcl-lang.org/tk/file?name=library/print.tcl&ci=tip

    source print.tcl
    source print-8.6erw.tcl

    text .t
    button .btn -text print -command {tk print .t}
    .t insert end "hello World"
    pack .t .btn

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From greg@21:1/5 to All on Sun Sep 10 21:49:20 2023
    #print-8.6erw.tcl
    #0.2
    if {[tk windowingsystem] eq "win32"} {
    if {[info tclversion] eq "8.6"} {
    package require gdi
    package require printer
    #Tcl Extensions by Michael Schwarz
    #http://wiki.tcl-lang.org/page/TkPrint
    package require struct::list

    namespace eval ::tk::print {

    proc _openprinter {args} {
    printer open args
    }

    proc _closeprinter {} {
    printer close
    }

    proc _opendoc {} {
    printer job start
    }

    proc _closedoc {} {
    printer job end
    }

    proc _openpage {} {
    printer page start
    }

    proc _closepage {} {
    printer page end
    }

    proc _gdi {args} {
    gdi {*}$args
    #tailcall gdi {*}$args
    }

    proc _selectprinter {} {
    # variable printargs
    variable printer_name
    variable paper_width
    variable paper_height
    variable dpi_x
    variable dpi_y
    variable copies
    set hDc [printer dialog select]
    set attr [struct::list flatten [printer attr -hDc $hDc]]
    # set printer_name [dict get $attr device]
    # set printargs(printer_name) [dict get $attr device]
    set printer_name [lindex $hDc 0]
    set paper_width [lindex [dict get $attr "page dimensions"] 0]
    set paper_height [lindex [dict get $attr "page dimensions"] 1]
    set dpi_x [lindex [dict get $attr "pixels per inch"] 0]
    set dpi_y [lindex [dict get $attr "pixels per inch"] 1]
    set copies [dict get $attr copies]
    }

    }
    }
    }

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Kevin Walzer@21:1/5 to greg on Tue Sep 12 22:28:06 2023
    On 9/11/23 12:49 AM, greg wrote:
    #print-8.6erw.tcl
    #0.2
    if {[tk windowingsystem] eq "win32"} {
    if {[info tclversion] eq "8.6"} {
    package require gdi
    package require printer
    #Tcl Extensions by Michael Schwarz
    #http://wiki.tcl-lang.org/page/TkPrint
    package require struct::list

    Yes, the "tk print" code for Windows was based on these libraries by
    Michael Schwartz, so the original libraries should work just fine on 8.6.

    --Kevin

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From greg@21:1/5 to Kevin Walzer on Wed Sep 13 11:29:10 2023
    Kevin Walzer schrieb am Mittwoch, 13. September 2023 um 04:28:12 UTC+2:
    On 9/11/23 12:49 AM, greg wrote:
    #print-8.6erw.tcl
    #0.2
    if {[tk windowingsystem] eq "win32"} {
    if {[info tclversion] eq "8.6"} {
    package require gdi
    package require printer
    #Tcl Extensions by Michael Schwarz
    #http://wiki.tcl-lang.org/page/TkPrint
    package require struct::list
    Yes, the "tk print" code for Windows was based on these libraries by
    Michael Schwartz, so the original libraries should work just fine on 8.6.

    --Kevin
    tk print for tk 8.7 is a great thing.
    Also helped me understand printer/gdi better.
    I really like the solution in print.tcl for linux print.
    Searched for something like this for a long time.

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)