From 01df63a089f721d2c8f657456204bb361adf97a8 Mon Sep 17 00:00:00 2001 From: "jan.nijtmans" Date: Tue, 20 Jul 2021 08:00:28 +0000 Subject: printer_name cannot be set, because linked variable is read-only --- library/print.tcl | 4 ---- 1 file changed, 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 -- cgit v0.12