couldn't recognize data in image file

Version imprimable

Bonjour,

j'utilise Active Perl 5.10 pour compiler un petit exemple de "hello world !" avec Tk qui affiche une image comme étant un bouton.

voila l'exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
 
#!/usr/bin/perl
use Tk;
$main = MainWindow->new();
$main->title("Hello World!");
$label = $main->Label(-text => 'Hello from Tk!');
$button = $main->Button();
$icon = $button->Photo(-file => "icon.gif" );
 
$button->configure(image => $icon,
command => sub { exit; }
);
$label->pack(side => 'left');
$button->pack(side => 'left',
padx => 5
);
MainLoop();

Mais, j'ai eu cette trace :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
 @ 535 not utf8
SV = PV(0x1bc58dc) at 0x1c0f21c
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x1bff98c "couldn't recognize data in image file \"\334\201\301\1\1\""\0 [UTF8 "couldn't recognize data in image file "\x{701}A\x{1}""]
  CUR = 45
  LEN = 48
SV = PV(0x1bc58dc) at 0x1c0f21c
  REFCNT = 1
  FLAGS = (POK,pPOK,UTF8)
  PV = 0x1bff98c "couldn't recognize data in image file \"\334\201\301\1\1\""\0 [UTF8 "couldn't recognize data in image file "\x{701}A\x{1}""]
  CUR = 45
  LEN = 48
couldn't recognize data in image file "???" at C:/Perl/site/lib/Tk/Image.pm line 21.

Comment résoudre ce problème?

Merci d'avance

avant toute chose, tu devrais utiliser use warnings; use strict, use Tk::Photo;
déclarer tes variables, etc etc. En plus, dans ton pack, tu oublie les tirets. Bref, tu devrais lire la FAQ Perl/Tk pour voir comment les codes sont écris.

Voici ton code en plus propre :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 #!/usr/bin/perl use warnings; use strict; use Tk; use Tk::Photo; my $main = MainWindow->new(); $main->title("Hello World!"); my $label = $main->Label( -text => 'Hello from Tk!' ); my $button = $main->Button(); my $icon = $button->Photo( -file => "icon.gif" ); $button->configure( -image => $icon, -command => sub { exit; } ); $label->pack( -side => 'left' ); $button->pack( -side => 'left', -padx => 5 ); MainLoop();

02/02/2010, 14h10
jaljal

Merci pour la réponse, j'ai compilé le code rectifié, mais, j'ai eu la même trace :calim2:.
02/02/2010, 15h42
djibril

ton image est il dans le même répertoire ? es tu sûr que ce soit un gif ?
02/02/2010, 16h00
jaljal

j'ai testé le code avec une autre image GIF (stocké dans mon disque) et ça a marché, j'avais pris l'autre image GIF de google image, peut être que c'était pas réellement une image GIF .

Merci :ccool: