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
| #!/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 => 'Ferme la fenêtre',
-command => sub { exit; },
)->pack();
MainLoop; # Obligatoire |
