Tk Library Source Code

The ::ico::getIconMembersICO procedure returns a value of 0 for both the width and height of 256x256 icons. Zero is the stored value for this size icon but the value should be interpreted to mean a value of 256.

The procedure can be corrected by replacing the following line in the ::ico::getIconMembersICO procedure
	    lappend info [scan [read $fh 1] %c] [scan [read $fh 1] %c]
with
	    set width [scan [read $fh 1] %c]
	    set height [scan [read $fh 1] %c]
	    if {$width == 0} { set width 256}
	    if {$height == 0} { set height 256 }
	    lappend info $width $height