• Publicidad

Gtk2::Netbook -> crear tab en un sub

Así que programas sin strict y las expresiones regulares son otro modo de hablar. Aquí encontrarás respuestas de nivel avanzado, no recomendable para los débiles de corazón.

Gtk2::Netbook -> crear tab en un sub

Notapor sudo » 2005-11-06 14:34 @649

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!
Unix live free or die
sudo
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2005-10-01 20:08 @880

Publicidad

Notapor sudo » 2005-11-09 15:42 @695

:D 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;
Unix live free or die
sudo
Perlero nuevo
Perlero nuevo
 
Mensajes: 14
Registrado: 2005-10-01 20:08 @880


Volver a Avanzado

¿Quién está conectado?

Usuarios navegando por este Foro: No hay usuarios registrados visitando el Foro y 1 invitado

cron