bouton image avec perl/tk

Version imprimable

16/01/2009, 08h08
ChTiRiBi

bouton image avec perl/tk

salut à tous,
j'aimerais savoir si on peut faire une image cliquable qui aurait les même propriétés qu'un bouton (en gros un bouton qui contient une image) avec perl/tk, et si c'est possible comment faire.
merci d'avance:aie:
16/01/2009, 10h37
djibril

oui on peut tout à fait faire cela, le principe est le suivant :
Tu crées un bouton, et au lieu de mettre un text

Code:

-text => "xxx",

tu mets

Code:

-image => $ObjetImage,

Et tu peux ensuite jouer avec le relief
16/01/2009, 15h44
ChTiRiBi

et l'objet image, il a quels propriétés? pouvez vous me donner une syntaxe?
merci

exemple :

Code:

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
#!/usr/bin/perl
use strict;
use warnings;
use Tk;
use Tk::Photo;
use Tk::PNG;
 
# Programme principal
# Creation de la fenetre
my $fenetre = new MainWindow(
  -title      => "button image",
  -background => "white",
);    
 
my $MessageAccueil = "Bonjour tout le monde - bouton image\n\n";
$fenetre->Label( 
  -text => $MessageAccueil,
  -background => "white",  
)->pack();
 
my $ObjImage = $fenetre->Photo( -format => "png", -file => "image.png" );
my $bouton2 = $fenetre -> Button (
    -image => $ObjImage, 
		-command => sub { exit; },
)->pack();
 
MainLoop();

16/01/2009, 20h07
ChTiRiBi

pour le code c'est bon mais la photo que je veux insérer dans le bouton a le format JPEG, c'est aussi valable avec ce format?
19/01/2009, 11h39
djibril
oui
Code:

1 2 3 use Tk::JPEG; -format => "jpeg",