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

my($programa, $ventana_principal, $etiqueta, $widget_entrada_de_texto, $ventana_confirmar);

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

$ventana_principal = $programa->get_widget('ventana_principal');
$ventana_confirmar = $programa->get_widget('ventana_confirmar');
$etiqueta = $programa->get_widget('etiqueta');
$widget_entrada_de_texto = $programa->get_widget('entrada1');

$programa->signal_autoconnect_from_package('main');

$ventana_principal->show_all();

Gtk2->main;

sub on_boton_recoger_datos_clicked {
	$ventana_confirmar->show_all();
}

sub on_boton_aceptar_clicked {
	my($texto_introducido);
	$texto_introducido = $widget_entrada_de_texto->get_text();
	$etiqueta->set_markup("El nombre que colocaste fue: <b> $texto_introducido </b>");
	$ventana_confirmar->hide();
}

sub on_boton_cancelar_clicked {
	$ventana_confirmar->hide();
}

sub on_boton_cerrar_clicked {Gtk2->main_quit;}