Problème pour changer l'icone de mon interface

Bonjour, avec votre tutoriel j'ai essayé de changer l'icone de mon interface Tk/perl. J'ai bien ajouter les module Tk:Photo et Tk::PNG via le site de CPAN mais lorsque je lance mon script avec le code :

Code:

---

1 2	$window->iconimage($photo); $photo = $window->Photo(-format => 'png', file => 'C:\\test.png');

---

je reçois l'erreur suivante :

Code:

---

Image "" doesn't exist at C:/Perl64/site/lib/Tk/Submethods.pm line 37.

---

Bonjour,

Comme expliqué ici, le code est le suivant :

Code:

---

1 2 3 4

use Tk::Photo; use Tk::PNG; my $photo_icone = $widget->Photo( -format => 'png', -file => 'C:/test.png' ); $widget->iconimage($photo_icone);

---

Avec $widget qui correspond à celui de votre programme. Si vous n'y arrivez pas, montrez-nous votre programme.

Merci je n'avais pas vu que j'avais interverti les deux lignes .. Merci problème résolu ;)