WxPerl

Un article de Wikipédia, l'encyclopédie libre.
Aller à : navigation, rechercher
image illustrant un logiciel libre
Cet article est une ébauche concernant un logiciel libre.

Vous pouvez partager vos connaissances en l’améliorant (comment ?) selon les recommandations des projets correspondants.

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]