diff options
| author | Kevin Walzer <kw@codebykevin.com> | 2021-07-20 10:36:50 (GMT) |
|---|---|---|
| committer | Kevin Walzer <kw@codebykevin.com> | 2021-07-20 10:36:50 (GMT) |
| commit | 2e87f18ef883abce7e7511773e50a95dc50b0889 (patch) | |
| tree | e10c3b0262eaf58eb001ae53b821c5bc3b405b3b /library/print.tcl | |
| parent | f7eff98cc0929a9f6021a05da7153a912dedbc9d (diff) | |
| parent | 2663ec07e3687fa6a29ecda78ef1cfe984eddd75 (diff) | |
| download | tk-2e87f18ef883abce7e7511773e50a95dc50b0889.zip tk-2e87f18ef883abce7e7511773e50a95dc50b0889.tar.gz tk-2e87f18ef883abce7e7511773e50a95dc50b0889.tar.bz2 | |
Merge in tk_print-ensemble-rewrite
Diffstat (limited to 'library/print.tcl')
| -rw-r--r-- | library/print.tcl | 7 |
1 files changed, 2 insertions, 5 deletions
diff --git a/library/print.tcl b/library/print.tcl index 35ea4d1..02aed73 100644 --- a/library/print.tcl +++ b/library/print.tcl @@ -63,14 +63,10 @@ namespace eval ::tk::print { #First, we select the printer. _selectprinter - if {$printer_name eq ""} { - #they pressed cancel - return - } - #Next, set values. Some are taken from the printer, #some are sane defaults. + if {[info exists printer_name] && $printer_name ne ""} { set printargs(hDC) $printer_name set printargs(pw) $paper_width set printargs(pl) $paper_height @@ -82,6 +78,7 @@ namespace eval ::tk::print { set printargs(resy) $dpi_y set printargs(copies) $copies set printargs(resolution) [list $dpi_x $dpi_y] + } } # _print_data |