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

my($programa, $ventana_principal, $vista_de_texto, $buffer_de_texto);

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

### Cargo Widgets
$ventana_principal = $programa->get_widget('ventana_principal');
$vista_de_texto = $programa->get_widget('vista_de_texto');

$programa->signal_autoconnect_from_package('main');

Gtk2->main;

sub on_boton_insertar_texto_clicked {
	$buffer_de_texto = Gtk2::TextBuffer->new;
	open(LISTA, 'texto.txt') || die('No pude abrir el archivo');
	while(<LISTA>){
		$buffer_de_texto->insert_at_cursor("$_");
	}
	close(LISTA);
	$vista_de_texto->set_buffer($buffer_de_texto);
}
sub on_boton_salir_clicked {Gtk2->main_quit;}