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]