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

my($programa, $ventana_principal, $vista_arbol, $vista_de_arbol_widget);

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

$ventana_principal = $programa->get_widget('ventana_principal');
$vista_de_arbol_widget = $programa->get_widget('vista_de_arbol');

$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',
			'Apellido'	 => 'text',
			'Edad'		   => 'int'
			);

	$vista_arbol->set_headers_clickable(1);

	foreach ($vista_arbol->get_columns()) {
		$_->set_resizable(1);
		$_->set_sizing('grow-only');
	}

	@{$vista_arbol->{data}} = (
		['Alejandro', 'Garrido', '17'],
		['Andreina', 'Garrido', '12'],
		['Indira','Gonzalez', '34'],
		['Jaime','Velazquez','47']
	);

}

sub on_boton_salir_clicked {Gtk2->main_quit;}