#!/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;}