Perl Tk - Taille de l'image widget Photo

Bonjour,

Je souhaite créer dynamiquement des boutons de taille fixe dont le fond est une image choisie par l'utilisateur sur son disque.

En gros :

my $fond=$mw->Photo(-file=>"images/fond.gif",-width=>70,-height=>70);
my $bouton=$mw->Button(-image=>$fond,-command=>[\&retourne2,$i])->pack(-side=>"top");

Mais si l'image choisie par l'utilisateur est trop grande, elle sera coupée.

Le code :

my $fond=$mw->Photo(-file=>"images/fond.gif");
my $bouton=$mw->Button(-image=>$fond,-command=>[\&retourne2,$i],-width=>70,-height=>70)->pack(-side=>"top");

n'apporte rien de mieux, si ce n'est que l'image est centrée (mais toujours coupée)

Y-a-t'il un moyen d'adapter la taille de l'image à la taille du widget ?

Merci d'avance.

Pop's