#!/usr/bin/perl -w

use Gtk2 '-init';
use Gtk2::GladeXML;
use strict;

my $prog = Gtk2::GladeXML->new('test.glade');
my $win= $prog->get_widget('window1');
my $about= $prog->get_widget('aboutdialog1');

my $button2= $prog->get_widget('button1');
my $button1= $prog->get_widget('button2');

$prog->signal_autoconnect_from_package('main');

$win->show_all();

sub on_button1_clicked {
	$about->show();	
}

sub on_button2_clicked {	
	Gtk2->main_quit;
}

Gtk2->main;


