package aviam;

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


sub buto{
	my $entry= $programa->get_widget('entry1');
	my $label= $programa->get_widget('label3');
	my $content=$entry->get_text();
	$label->set_text($content);
	print "Done, content= $content\n";
}
sub init {
	my $window= $programa->get_widget('window2');
	####
	print "INIT!\n";
	$window->show_all();
}



return 1;
