Discussion :

[t.soufian]

je souhaite changer l 'icone de l'interface graghique TK par un aure icone

j'obtient un message me dit la methode "Photo" n'est pas definie

alors comment la definie ??

[djibril]

Montre nous ton code.
Sinon, tu as la réponse : Comment changer l'icône de la fenêtre de mon application ?.

[t.soufian]

Voila mon code, le problème est résolu
Mais maintenant j’obtiens deux fenêtres différentes or mois je veux une seule mais qui port mon icone
comment faire et pour pour votre aide....

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
24
25
26
27
28
29
30
31
32
33
34
35
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk; # Appel du module Tk
use Tk::Canvas::GradientColor; # Appel du module Tk::Canvas::GradientColor
 
use Tk::Photo; #Appel du module Tk::Photo
use Tk::JPEG; #Appel du module Tk::JPEG
 
my $icone;
$icone = tkinit;
# Programme principal
# Création de la fenêtre
my $mw = new MainWindow
(
 -title      => 'Automatisation  des Plans de Tests Unitaires', 
 -background  => 'white', 
 );
 
 my $canvas = $mw->GradientColor
( 
  -width  => 350,-height => 250, 
)
->pack(
        qw/ -fill both -expand 1 /
      );
 
 #Change type
$canvas->set_gradientcolor
( -start => 25, -end   => 100, -type  => 'mirror_vertical');
 
my $ico = $icone->Photo(-file=>"./zam.jpg");
$icone->iconimage($ico);
MainLoop;

[djibril]

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
24
25
26
27
28
29
30
31
32
#!/usr/bin/perl
use strict;
use warnings;
 
use Tk; # Appel du module Tk
use Tk::Canvas::GradientColor; # Appel du module Tk::Canvas::GradientColor
 
use Tk::Photo; #Appel du module Tk::Photo
use Tk::JPEG; #Appel du module Tk::JPEG
 
# Programme principal
# Création de la fenêtre
my $mw = MainWindow->new(
 -title      => 'Automatisation  des Plans de Tests Unitaires', 
 -background  => 'white', 
);
my $ico = $mw->Photo(-file => './zam.jpg' );
$mw->iconimage($ico);
 
my $canvas = $mw->GradientColor( 
  -width  => 350,
  -height => 250, 
)->pack( qw/ -fill both -expand 1 / );
 
 #Change type
$canvas->set_gradientcolor( 
  -start => 25, 
  -end   => 100, 
  -type  => 'mirror_vertical'
);
 
MainLoop;

N'utilise pas tkinit. ça n'a rien à faire dans un programme utilisant le module Tk.