diff options
| author | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-20 08:00:28 (GMT) |
|---|---|---|
| committer | jan.nijtmans <nijtmans@users.sourceforge.net> | 2021-07-20 08:00:28 (GMT) |
| commit | 01df63a089f721d2c8f657456204bb361adf97a8 (patch) | |
| tree | 1092e58f9c29d1e2342187a9a69073f51433932b /library/print.tcl | |
| parent | 39058b45d900d028f4285df26b7e021f16b6993f (diff) | |
| download | tk-01df63a089f721d2c8f657456204bb361adf97a8.zip tk-01df63a089f721d2c8f657456204bb361adf97a8.tar.gz tk-01df63a089f721d2c8f657456204bb361adf97a8.tar.bz2 | |
printer_name cannot be set, because linked variable is read-only
Diffstat (limited to 'library/print.tcl')
| -rw-r--r-- | library/print.tcl | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/library/print.tcl b/library/print.tcl index e7a5de6..35ea4d1 100644 --- a/library/print.tcl +++ b/library/print.tcl @@ -60,8 +60,6 @@ namespace eval ::tk::print { variable dpi_y variable copies - set printer_name "" - #First, we select the printer. _selectprinter @@ -98,7 +96,6 @@ namespace eval ::tk::print { variable printargs variable printer_name - set printer_name "" _set_dc if {$printer_name eq ""} { return @@ -255,7 +252,6 @@ namespace eval ::tk::print { variable printargs variable printer_name - set printer_name "" _set_dc if {$printer_name eq ""} { return |