FAQ Perl/TkConsultez toutes les FAQ

$widget->title('Titre de mon widget');

1
2
# Pour enlever les décors 
$widget->overrideredirect(1);

$widget->iconimage($photo_icone);

1
2
3
use Tk::Photo; 
use Tk::PNG; 
my $photo_icone = $widget->Photo( -format => 'png', -file => 'C:/MonIcone.png' );

$widget->protocol( "WM_DELETE_WINDOW", sub { return; } );

1
2
3
$widget->update; 
 my $x = $widget->x(); 
 my $y = $widget->y();

1
2
3
$widget->update; 
 my $x = $widget->rootx(); 
 my $y = $widget->rooty();

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
#!/usr/bin/perl 
use warnings; 
use strict; 
use Tk;    # Appel du module Tk 
  
# Programme principal 
# Création de la fenêtre 
my $fenetre = new MainWindow( 
  -title      => 'Première fenêtre Tk', 
  -background => 'white', 
); 
  
# Taille minimale de ma fenêtre 
$fenetre->minsize( 300, 100 ); 
  
my $message_accueil = "Bonjour tout le monde\n\nWelcome dans le monde magnifique de Perl/Tk\n\n"; 
  
# Affichage d'un texte 
my $label_accueil = $fenetre->Label( 
  -text       => $message_accueil, 
  -background => 'white', 
)->pack(); 
  
# Affichage d'un bouton pour fermer la fenêtre 
my $bouton = $fenetre->Button( 
  -text    => 'Détruire la fenêtre', 
  -command => sub { exit; }, 
)->pack(); 
  
# Centrer ma fenêtre 
centrer_widget($fenetre); 
  
MainLoop;    # Obligatoire 
  
  
#================================================ 
# But : Centrer un widget automatiquement 
#================================================ 
sub centrer_widget { 
  my ( $widget ) = @_; 
  
  # Height and width of the screen 
  my $largeur_ecran = $widget->screenwidth(); 
  my $hauteur_ecran = $widget->screenheight(); 
  
  # update le widget pour récupérer les vraies dimensions 
  $widget->update; 
  my $largeur_widget = $widget->width; 
  my $hauteur_widget = $widget->height; 
  
  # On centre le widget en fonction de la taille de l'écran 
  my $nouvelle_largeur  = int( ( $largeur_ecran - $largeur_widget ) / 2 ); 
  my $nouvelle_hauteur  = int( ( $hauteur_ecran - $hauteur_widget ) / 2 ); 
  $widget->geometry($largeur_widget . "x" . $hauteur_widget  
  . "+$nouvelle_largeur+$nouvelle_hauteur"); 
  
  $widget->update; 
  
  return; 
}

$widget->destroy;

-command => { exit;},

$fenetre->iconify();

$fenetre->withdraw();

1
2
3
4
5
# si la fenêtre existe, je la restaure 
if ( Exists( $fenetre ) ) { 
	$fenetre->deiconify(); 
	$fenetre->raise(); 
}

1
2
3
4
5
6
if ( $fenetre->ismapped() ) { 
  # => fenêtre affichée 
} 
else { 
  # => fenêtre pas affichée 
}

$widget->focus;

$widget->focusForce;

1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl 
use warnings; 
use strict; 
use Tk; 
  
my $fenetre = new MainWindow( -title => 'Resizable', ); 
$fenetre->geometry("300x300+50+50"); 
  
# Fenêtre non modifiable 
$fenetre->resizable(0,0); 
  
MainLoop;