use strict; use Tk; use constant ROWLEN => 3; my $mw = MainWindow->new; $mw->geometry("+10+90"); my $pixframe = $mw->Frame(); # $pixframe is the elastic rubber-band that holds our pix. for ( 1 .. ROWLEN ) { my @row; my $name = "Imfz"; for my $imgwi (qw { tpattern_4.gif tpattern_5.gif tpattern_6.gif }) { my $imgobj = $pixframe->Photo(++${name}, -format=> 'gif'); $imgobj->read( $imgwi ) or die "FAILURE to READ $imgwi:\n$!"; printf 'Seeing img "'.$name.'" with width %3u and height %3u in format %s'.$/ ,$imgobj->width(), $imgobj->height(), $imgobj->cget('-format'); push @row, $imgobj; } $row[0]->grid (@row[1..$#row]); } $pixframe->pack(); MainLoop; exit 0;