#!/usr/bin/perl -w
#$Id$
#

use strict;
use warnings;

use Gtk2 '-init';
use Gtk2::GladeXML;
use Gtk2::Gdk::Keysyms; # keyboard code constants

my $glade;
my $label;
my $field;
my $window_about;

# load UI
$glade = Gtk2::GladeXML->new("test1.glade");

# connect signals
$glade->signal_autoconnect_from_package('main');

$label = $glade->get_widget('label1');
$field = $glade->get_widget('yourname_field');
$window_about = $glade->get_widget('aboutdialog1');

Gtk2->main;

exit 0;



# Handles window-manager-quit: shuts down gtk2 lib
sub on_main_delete_event {Gtk2->main_quit;}

# Handles close-button quit
sub on_close_button_clicked {on_main_delete_event;}