Perl + Gtk 2

pues nunca había programado nada de Perl con Gtk 2, pero inicie con algunos ejemplos que vienen en los tutoriales de gtkPerl y le añadí algo mas de código al siguiente ejemplo:

use Gtk2;
use Term::ANSIColor;

Gtk2->init;
my $win = Gtk2::Window->new (’toplevel’);
my $btn = Gtk2::Button->new (’Salir’);

$win->set_title(’Perl + Gtk’);
Gtk2::Window::set_position($win,center);
$win->resize(200,150);
$btn->signal_connect (clicked => sub {
print color ‘bold blue’;
print “Saliendo del programa\n”;
print color ‘reset’;
Gtk2->main_quit
});
$win->add ($btn);
$win->show_all;
Gtk2->main;

este ejemplo define una ventana con un titulo, se redimensiona y tambien se define un procedimiento manejador para el evento “clicked” del boton e imprime en la consola o terminal en color azul negrita y termina la ejecución del programa.

muy rapido Perl + Gtk2!!!!

3 Comments

  1. Juan Lopez
    Posted May 6, 2008 at 8:37 pm | Permalink

    Oye que tutoriales sigues?, me interesa este tema.

    Por favor pon los links de los tutoriales o documentacion que usas,
    se me hace chido perl+gtk

  2. maggy
    Posted May 6, 2008 at 11:23 pm | Permalink

    si juan , pues mira puedes empezar a buscar desde estas ligas:

    [1]http://www.mogaal.com/articulos/perl-glade/perl_glade.html
    [2]http://forgeftp.novell.com//gtk2-perl-study/documentation/html/index.html
    [3]http://gtk2-perl.sourceforge.net/doc/pod/

    también puedes instalar podbrowser en Ubuntu y ahí tienes mucha documentación sobre Perl con Gtk 2.

    Saludos Juan ;)

  3. Juan Lopez
    Posted May 11, 2008 at 12:33 am | Permalink

    Sale gracias, lo voy achecar

Post a Comment

Your email is never published nor shared. Required fields are marked *

*
*