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