Perl Tk - Taille de l'image widget Photo

Fermé
pops - 4 févr. 2005 à 15:51
 baba - 4 févr. 2005 à 18:25
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
A voir également:

1 réponse

peut etre une réponse sur http://lionel.romain.free.fr/canvas.html

Force & Honneur
0