if 0 {Richard Suchenwirth 2004-10-01 - Here's a little tool for inspecting Windows .ico files, which often contain several variants of an icon at different sizes and color depths. Lazily I let a text widget do geometry management for this UI, including the Load button, the images, and some text comments.
Img does not allow us to write such .ico files, however.}
package require Img proc loadIco w { set fn [tk_getOpenFile -f {{Icons .ico} {"All files" *}}] if {$fn eq ""} return $w delete 1.1 end $w insert end " $fn\n" set i 0 while 1 { if [catch { image create photo -file $fn -format "ico -index $i" } img] break $w insert end [image width $img]x[image height $img]: $w image create end -image $img $w insert end " " incr i } if ![string match "Invalid icon index*" $img] { $w insert end \n\n$img } }
#-- Main:
pack [text .t -height 6 -width 64 -wrap word] button .t.load -text Load -command {loadIco .t} .t window create end -window .t.load loadIco .t bind . <Escape> {exec wish $argv0 &; exit} bind . <F2> {[image create photo -data .t] write icoview.gif}
if 0 {See also AniGIF.