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

my($programa, $ventana_principal, $caja_de_combo_pais, $caja_de_combo_ciudad, $etiqueta);

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

$ventana_principal = $programa->get_widget('ventana_principal');
$caja_de_combo_pais = $programa->get_widget('entrada_caja_de_combo_pais');
$caja_de_combo_ciudad = $programa->get_widget('entrada_caja_de_combo_ciudad');
$etiqueta = $programa->get_widget('etiqueta_datos_introducidos');

$programa->signal_autoconnect_from_package('main');

$ventana_principal->show_all();

Gtk2->main;

sub on_boton_aceptar_clicked {
	my $pais = $caja_de_combo_pais->get_active_text();
	my $ciudad = $caja_de_combo_ciudad->get_active_text();
	$etiqueta->set_markup("El <b>país</b> introducido por el usuario fue: <span foreground=\"blue\">$pais</span>
	La <i>ciudad</i> introducida fue: <span foreground=\"blue\">$ciudad</span>
	");
}
sub on_boton_cerrar_clicked {Gtk2->main_quit;}