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

my($programa, $ventana_principal, $vetana_fecha, $calendario, $etiqueta_para_escribir_fecha);

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

### Cargo Widgets
$ventana_principal = $programa->get_widget('ventana_principal');
$calendario = $programa->get_widget('calendario');
$vetana_fecha = $programa->get_widget('ventana_fecha');
$etiqueta_para_escribir_fecha = $programa->get_widget('etiqueta_para_escribir_fecha');

$programa->signal_autoconnect_from_package('main');

$ventana_principal->show_all();

Gtk2->main;

sub on_boton_averiguar_fecha_clicked {
	my($ano, $mes, $dia) = $calendario->get_date;
	$etiqueta_para_escribir_fecha->set_markup("El año que seleccionaste fue: $ano
El mes que seleccionaste fue: $mes\n El día que seleccionaste fue: $dia");
	$vetana_fecha->show_all;
}
sub on_ventana_fecha_boton_aceptar_clicked {$vetana_fecha->hide;}
sub on_boton_salir_clicked {Gtk2->main_quit;}