Discussion :

[Marthin_a]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

je reçois l'erreur suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[djibril]

Bonjour,

Comme expliqué ici, le code est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[Marthin_a]

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