Discussion :

[jaljal]

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 :

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

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 :

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

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

[djibril]

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 :

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

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();

[jaljal]

Merci pour la réponse, j'ai compilé le code rectifié, mais, j'ai eu la même trace .

[djibril]

ton image est il dans le même répertoire ? es tu sûr que ce soit un gif ?

[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