Foro - Perl en Español

Hola a tod@s!
Me pregunto como creo un tab, con nombre y contenido diferente en un sub, es decir:
-Tendo un programa hecho en Gtk2 que tiene tabs.
-El programa tiene un botoncito que crea tabs nuevos.
-El tab tiene como contenido un Entry que al activarse camvia el nobre del tab en el que estoy, a su vez el contenido.
Gracias!

Ya lo supe, je, je

Código: Seleccionar todo

#!/usr/bin/perl -w
use Gtk2 -init;
my $a = 0;
my @nombre;
my @escalar;
my $window = new Gtk2::Window;
my $tabs = new Gtk2::Notebook;
my $txta = new Gtk2::Label('Tab #1');
my $bta = new Gtk2::Button('Agregar Tab');
sub addtab {
   my $self = shift;
   $self->{texto} = new Gtk2::Label("Tab #$a");
   $tabs->append_page($bta, $self->{texto});
   $window->show_all;
}
$window->set_title("Tabs multiples");
$window->signal_connect(destroy => sub{Gtk2->main_quit;});
$bta->signal_connect(clicked => sub{
   push @nombre, '$'. "a$a";
   push @escalar, '$'. $nombre[$a];
   addtab($escalar[$a++]);
});
$tabs->append_page($bta, $txta);
$window->add($tabs);
$window->show_all;
Gtk2->main;