Tk Source Code

platform : MS Windows 7 and 10 (64 bits)
distribution : Magicsplat Tcl/Tk 2.0.3 (Tcl 9.0.1)

1) Try to print a text displays in a canvas widget :

package require Tk
canvas .c -width 220 -height 220
.c create text 5 5 -text "try to print a canvas widget" -anchor nw
pack .c
pack [button .b -text print -command {tk print .c}]

The click on the button "print" posts a dialog as expected but the click on the button "print" of this dialog causes a crach with the message :

expected integer but got "5.0"
    while executing
"_gdi text $hdc {*}$coords  -fill $color -text $txt -font $font  -anchor $anchr -width $wdth -justify $just"
    (procedure "_print_canvas.text" line 28)
    invoked from within
"_print_canvas.[$cw type $id] $printargs(hDC) $cw $id"
    (procedure "_print_canvas" line 13)
    invoked from within
"_print_canvas $printargs(hDC) $wid"
    (procedure "::tk::print::_print_widget" line 59)
    invoked from within
"::tk::print::_print_widget .c 0 {Tk Print Output}"
    invoked from within
"tk print .c"


2) Try to print an image displays in a canvas widget :

package require Tk
image create photo logo -data {iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAYAAABzenr0AAAABmJLR0QA/wD/AP+gvaeTAAAACXBIWXMAAABIAAAASABGyWs+AAAACXZwQWcAAAAgAAAAIACH+pydAAAHMUlEQVRYw62XTYwlVRmGn/NTP/enbzd0MxOamWboGf4kIhA1TgxjXDAIIXFhYoxg4kKcrRtXLtxrZM9WdENcGRYuXCCRaExkQQIhBgfSzgwydE9333vrVtX5dXHq3ts0AxmCNzldleo69b7n+97v/c4RfL6fBEpgBJwAht3zKXAdGAMNEG71g+IW3+sD2w8+fufFO+9dPZ/39ZnTD66d8z7q4CPVfjvbu1Lt7F2Zvvuft/Zfv3G1ehW4DMy+KIESePjCc/deuuexOy6evGdlMyuVFCJNizESfCS4gDMB23rGu0248vb+zlt/ufbKB/86fAl4s4vK5yaw+djTW5ce+c7pn2zet7apMonSAiG7KXFJwLuIdwFnPLbxmNpTHbS8+4/r77/55ysvjj9qfgtcuxmI+hTwB7794/tfePyH9z6/fmowykuNLiQ6V+hMojJFIiQRUiCEQAgQCBAgpEApydrJ/tr6XYML493mVLXfvg3s3gqBB77780defPTprSd7K5nISk1WKPJCUfQ1xSCj6CuyUqEzhdIC2ZHoAtP9ASGg6GXq5PbooRtXq7PVfvvGcRLHCWx+60f3vfDoU6efLPpZAsklRV9TrmT0hhnlMKMYZhS9RExqCQJil5IYuvuwvBcgVk/2zn70/mS9rdzfgcnNCJRfuXjqZ9/8wbnny5VcZIUiKxTFQNMbZfRHOStrJaNByWpZMixLyn5G3pdILYmRhR6ij4QAISSNxAhCSjFYy++/+s7BXgzxn4A7TuCxJ376pV/dvjkYfWzlw4z+asFoVLKuB6yLISNKemRkQqGUgCLlPviIMwFvA96FRMRHgktXpaWaHbZnD6/XfwWuQjIWgP43vrd96eT2aFNlEikFSsuU+55muFKwoYZsMGSVkpXFKOiTU0pN3tNkZdKGypI4ESBE0ohSAp1L7n54Y7scZM+SvGVBYHvry7dfVKpTsxQonUbR16zIBFSg6ZEzIGdIwWBOgIwsUyidyMuj5TovdpFI9FYybrur/wywPScgz33txMX1U8NNIT8+QSpJnmtyoZEINJICTZ+cAQUD8iUBqZBq6RFifhvjESIpsndsrWwBFwApgfKOu4fndSZlJKl2PlEIkFLgCAQiEZCdd1k8Bo/F40nvCiEW5hR9TOUYIM47Q/fNwW2FVpk8D5QaGGWlOhNJL8aw/EAIERc8BkeLw+JpsDRYPIG6u2+xGO/xPiTR+Yjv5oeYrjHErlQT0bxUW7UNfQ2cOHFmdG4OPPd2b5O/t5Wj1pZMKUoyHAGB6AgYKgx1tDS1xcxcqgAbCG5JJhwhFkNikfezjXpi+xoYehd0cGmSdwLvJNYETOOoJzaJaiiQUpKjEAgcKTKzaKnqltnY0FQO23icDbiuFNN3Ewnvu2eJSA7kGli87F1AOoEzHiHAVA4pl3kNo0AmFUIIfAxY52lqSz2xzA4NzdTS1g7b+kUk5o3Ku4C3yaicDSkSgAamswMzsyYMtQ2puXQlJJUgQprUtVudK4RIWrFtwDaOpnI0E0tTOczM41q/NCQ7T2fEW48z6f/eBgMYDVw/+O9s5877Vk9kueo6m1gwDKEDbzztzJEValEl3gZcm1Jlakc78ykC8zSYbtjQAadFmNpjjd8FZhoYH3w4e9fM3Fd1rhY7hBAkMSzt1TYeVYmFy8WYLNZ1JGzrsU0Ct6YDPHK1rcd04PXEYhu/MyfQXH9v8vp4t/m+zlUKfiSVoQt4JxcOJ+ZOKVJqYuh2Q4vVLkPvTMA0viOWgE3taKaW8W7tgL8BjQbCZK959cN/j3f6o/xMaq2R4FOv9y4glUR24Cw9ZeEZwcWk8Ln6bVgAJ/AuRZVjdmiY7rc7wGtAmHfDaVvZuze2hl9XquvvnXEsAbrh4gJokeNjI4lzCT4XaXVguHGtorrRvAT8AbBzAraZ2r2ip58Y3FasifkGo7PR4LtadnOT6kjNy9cGvFluTI+uvq0cbWWZHVqmew3716rL3oZfAu8f3w/sVftt1h8VF7JCqRhY9vPFyuMixP7oqttPApuZTyufJvDJjYaDD2tTj82vgT/ebEPinAmXqwNzarhePiQEYq70eQR852rO+IXQEoGkfNuJzszSqpsu59W+YbLXhvFH9ctEfgPsf9qecNLO3Nvj3fps0cvOCoQIPiyM6BO5X6w6LJTeVsuczw4N0xst0/0m7H9Q/YnIL4D3PmtTCrBrZu6Nw+v1utLyfoRQwQWcizfNszlSYgvwcRJcdWCY7NZmvNu83IG/cxzsMw8mQornVk/0Lm2cXtnurWToQiJVdxaY+0DovL4j1s5cMpupodpvL5vavQj8jk85mNzS0Uxl8tn+KH9meHu5VQ4zLVVHgGWZOpvst5lY10zNjqndKzHye77A0ezor0/aw10QUpxXmdzSudogxrwzJeNd2HWt3yE53Gv8nw6nx3/z43m/G3n33HRgMz7n8fx/BZOJfNhih6cAAAAldEVYdGRhdGU6Y3JlYXRlADIwMTItMDgtMjRUMDk6MjY6NDcrMDI6MDBkhmwbAAAAJXRFWHRkYXRlOm1vZGlmeQAyMDEyLTA4LTI0VDA5OjI2OjQ3KzAyOjAwFdvUpwAAAABJRU5ErkJggg==}
canvas .c -width 220 -height 220
.c create image 5 5 -image logo -anchor nw
pack .c
pack [button .b -text print -command {tk print .c}]

On Win 7 : there is no crach but the processed sheet by the printer has nothing printed on it
On win 10 : the same leads to a crach with the message :

can't read "printargs(pw)": no such element in array
    while executing
"expr {
		( $printargs(pw) - $printargs(lm) - $printargs(rm) ) *
		$printargs(resx)  / 1000.0
	    }"
    (procedure "::tk::print::_print_widget" line 35)
    invoked from within
"::tk::print::_print_widget .c 0 {Tk Print Output}"
    invoked from within
"tk print .c"
    invoked from within
".b invoke"
    ("uplevel" body line 1)
    invoked from within
"uplevel #0 [list $w invoke]"
    (procedure "tk::ButtonUp" line 24)
    invoked from within
"tk::ButtonUp .b"
    (command bound to event)

Thanks,
Jean-Baptiste

Thanks, now committed in [408f20ff4c].

There's one problem left with canvas:

(bin) 1 % pack [canvas .c]
(bin) 2 % .c create line 20 20 50 50 50 100 200 200
1
(bin) 3 % tk print .c
cannot use non-numeric string "10c" as left operand of "/"
(bin) 4 % set errorInfo
cannot use non-numeric string "10c" as left operand of "/"
    while executing
"expr {$window_x / $printer_x}"
    (procedure "::tk::print::_print_widget" line 43)
    invoked from within
"::tk::print::_print_widget .c 0 {Tk Print Output}"
    invoked from within
"tk print .c"

Attached patch fixes the issue

Issue 1 fixed [b2411a5ec4326096|here]

> I suggest merging of [fada46f6] to fix issue 1 and follow up to [bb5c3d0ecc] for issue 2

Agreed. So, closing this one.

Note to the OP: next time please open two tickets for two issues. Thanks!

The first problem is repeatable. I confirm Jan's fix [fada46f6] works for me.

The second problem seems to happen once only. At least I could only get it once only. After the first time, when the problem does no longer happen the correct functioning survives kill and restart of tclsh, and even survives the switch of / switch on of the printer. Interesting. This second problem is the same as [bb5c3d0ecc].

I suggest merging of [fada46f6] to fix issue 1 and follow up to [bb5c3d0ecc] for issue 2.

(not sure to use the correct way to append a new post here)
Thanks for looking into this
Unfornulately, my use of Tcl/Tk is only at script level (no C skill here ...)
I've no C compiler, so I can't test your patch, sorry
Jean-Baptiste

Does [fada46f6992135b6|this] help? (at least for the first problem)