--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/test1.pl	Thu Oct 16 11:09:43 2008 +0200
@@ -0,0 +1,37 @@
+#!/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;}