WxPerl

Un article de Wikipédia, l'encyclopédie libre.
Aller à : navigation, rechercher

wxPerl est un module Perl permettant de créer une interface graphique (GUI). Ce module enveloppe les fonctions du toolkit wxWidgets, écrit en C++.

Licence[modifier | modifier le code]

wxPerl est publié sous la licence wxWindows Library[1], qui est basée sur la LGPL[2].

Exemple[modifier | modifier le code]

 1 #!/usr/bin/perl -w
 2 
 3 # chargement du module principal de wxPerl
 4 use Wx;
 5 
 6 # on définit une classe MyApp basée sur Wx::App pour notre application
 7 package MyApp;
 8 
 9 use base 'Wx::App';
10 
11 # cette méthode est appelée automatiquement quand on appelle le constructeur de
12 # l'application, elle se charge de l'initialisation de l'application
13 sub OnInit {
14 
15 # crée une nouvelle fenêtre (une frame est une fenêtre apparaissant au premier plan)
16     my $frame = Wx::Frame->new( undef,           # fenêtre parente
17                                 -1,              # ID (-1 signifie "n'importe lequel")
18                                 'wxPerl rules',  # titre
19                                 [-1, -1],        # position initiale
20                                 [250, 150]       # dimensions
21                                );
22 
23     # affiche la fenêtre
24     $frame->Show( 1 );
25 }
26 
27 package main;
28 
29 # la création de l'objet de type MyApp appellera la méthode OnInit
30 my $app = MyApp->new;
31 
32 # lance la boucle principale du programme, qui traite les événements de l'interface
33 # la fonction se termine quand la dernière fenêtre de l'application est fermée
34 $app->MainLoop;

Références[modifier | modifier le code]

Liens externes[modifier | modifier le code]