package require Img pack [canvas .can -width 100 -height 70] image create photo foo -file hana.jpg .can create image 0 0 -image foo -anchor nw |
package require BLT namespace import blt::* pack [canvas .can -width 100 -height 70] image create photo foo winop readjpeg hana.jpg foo image create photo bar -width 111 -height 74 winop resample foo bar box .can create image 0 0 -image bar -anchor nw |
Some Pure Tcl Widgetsにバルーンヘルプ等のサンプルがあります。