#!/usr/bin/perl
use strict;
use Gtk2 '-init';
use Gtk2::GladeXML;
use Gtk2::SimpleList;

my($programa, $vista_arbol, $vista_de_arbol_widget);
my($ventana_principal, $entrada_nombre, $entrada_edad, $entrada_comida, $entrada_telefono);

$programa = Gtk2::GladeXML->new('articulo.glade');

$ventana_principal = $programa->get_widget('ventana_principal');
$vista_de_arbol_widget = $programa->get_widget('vista_de_arbol');
$entrada_nombre = $programa->get_widget('entrada_nombre');
$entrada_edad = $programa->get_widget('entrada_edad');
$entrada_comida = $programa->get_widget('entrada_comida');
$entrada_telefono = $programa->get_widget('entrada_telefono');

$programa->signal_autoconnect_from_package('main');

$ventana_principal->show_all();

&todo_vista_arbol; Gtk2->main; sub todo_vista_arbol { $vista_arbol = Gtk2::SimpleList->new_from_treeview($vista_de_arbol_widget, 'Nombre' => 'text', 'Comida Favorita' => 'text', 'Teléfono' => 'scalar', 'edad' => 'int' ); $vista_arbol->set_headers_clickable(1); foreach ($vista_arbol->get_columns()) { $_->set_resizable(1); $_->set_sizing('grow-only'); } } sub on_boton_insertar_clicked { my($nombre, $comida, $edad, $telefono); $nombre = $entrada_nombre->get_text(); $comida = $entrada_comida->get_text(); $edad = $entrada_edad->get_text(); $telefono = $entrada_telefono->get_text(); push @{$vista_arbol->{data}}, [$nombre, $comida, $telefono ,$edad]; } sub on_boton_salir_clicked {Gtk2->main_quit;}