Posted to tcl by ericlee at Fri Sep 17 05:23:34 GMT 2021view pretty
#!/usr/bin/env tclsh package require Tk set map [image create photo] $map read "a.png" -shrink label .img -image $map -anchor center -width 640 -height 480 grid columnconfigure . 0 -weight 1 grid rowconfigure . 0 -weight 1 grid .img