FAQ Perl/TkConsultez toutes les FAQ

Nombre d'auteurs : 3, nombre de questions : 86, dernière mise à jour : 24 mai 2013  Ajouter une question

 

Bienvenue sur la FAQ Perl/Tk. Cette FAQ a pour vocation de vous enseigner ou de vous faire revoir les notions de Perl/Tk. N'hésitez pas à utiliser le moteur de recherche.

Vous souhaitez participer à l'amélioration de cette FAQ, n'hésitez pas !! Commentez

Bonne lecture !


SommaireTous les widgetsLes boutons (Button) (4)
précédent sommaire suivant
 

Pour créer un bouton, on doit utiliser le widget Button.

Code perl : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => 'bouton' ); 
$fenetre_principale->Button ( 
    -text => 'Bouton fermeture',  
    -command => sub { exit; }, 
)->pack(); 
  
MainLoop;

Mis à jour le 24 août 2009 djibril

Pour afficher une image sur un bouton, on utilise l'option -image à la place de l'option -text.
Exemple:

Code perl : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
use Tk::Photo; 
use Tk::JPEG; 
  
my $fenetre = new MainWindow( 
  -title      => 'button image', 
  -background => 'white', 
);     
  
  
my $objet_image = $fenetre->Photo( -file => 'fermer.jpg' ); 
$fenetre->Button ( 
    -image => $objet_image,  
    -command => sub { exit; }, 
)->pack(); 
  
MainLoop;
Il faut utiliser le module Tk::Photo pour créer l'objet image.
Ensuite, si on travaille sur un fichier jpeg, on appellera le module Tk::JPEG, sinon il y a le module Tk::PNG et Tk::Bitmap.

Pour les fichiers gif, pas besoin d'appeler le module Tk::GIF (il n'existe pas !), mais Tk le lit tout seul !

Mis à jour le 20 janvier 2009 djibril

Il existe trois façons d'utiliser l'option -command dans un widget de type Button :

  • -command => sub { ... }, ;
  • -command => \&ma_fonction, ;
  • -command => [\&ma_fonction, $arg1, $arg2...],.

La troisième méthode permet de passer des arguments à la fonction qui sera lancée lorsque l'utilisateur cliquera sur votre bouton.

Code perl : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
#!/usr/bin/perl 
use strict; 
use warnings; 
use Tk; 
  
my $fenetre_principale = MainWindow->new( -title => '-command' ); 
$fenetre_principale->Button ( 
    -text => 'Bouton fermeture',  
    -command => [\&fermer, 'perléen'], 
)->pack(); 
  
  
MainLoop; 
  
sub fermer { 
  print "Au revoir ",@_; 
  sleep 2; 
  
  exit; 
}
Ce script affichera "Au revoir perléen" après un clic sur le bouton.

Mis à jour le 24 août 2009 djibril

Il est possible de créer un bouton avec une couleur de fond dégradée. Pour ce faire, utilisez le widget Tk::ColoredButton. Ce widget utilise le module Tk::Canvas::GradientColor et simule parfaitement le fonctionnement d'un bouton.

Voici une capture d'écran issue de la documentation du module.



Exemple d'utilisation

Code perl : Sélectionner tout
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
#!/usr/bin/perl 
use strict; 
use warnings; 
  
use Tk; 
use Tk::ColoredButton; 
  
my $mw = MainWindow->new( -background => 'white', -title => 'ColoredButton example' ); 
  
my $colored_button = $mw->ColoredButton( 
  -text    => 'ColoredButton1', 
  -autofit => 1, 
  -font    => '{arial} 12 bold', 
  -command => sub { print "hello\n"; }, 
)->pack(qw/-padx 10 -pady 10 /); 
  
MainLoop;

Mis à jour le 28 juin 2010 djibril

Proposer une nouvelle réponse sur la FAQ

Ce n'est pas l'endroit pour poser des questions, allez plutôt sur le forum de la rubrique pour ça


Réponse à la question

Liens sous la question
précédent sommaire suivant
 

Les sources présentées sur cette page sont libres de droits et vous pouvez les utiliser à votre convenance. Par contre, la page de présentation constitue une œuvre intellectuelle protégée par les droits d'auteur. Copyright © 2019 Developpez Developpez LLC. Tous droits réservés Developpez LLC. Aucune reproduction, même partielle, ne peut être faite de ce site et de l'ensemble de son contenu : textes, documents et images sans l'autorisation expresse de Developpez LLC. Sinon vous encourez selon la loi jusqu'à trois ans de prison et jusqu'à 300 000 € de dommages et intérêts.