checking gtkdbi into cvsHEADSTARTmaster

1 files changed, 32 insertions, 0 deletions

diff --git a/test.pl b/test.pl
new file mode 100755
index 0000000..e107dc8
--- /dev/null
+++ b/test.pl
@@ -0,0 +1,32 @@
+#!/usr/bin/perl
+#==============================================================================
+#=== This is a toplevel script
+#==============================================================================
+require 5.000; use strict 'vars', 'refs', 'subs';
+
+package window1;
+
+BEGIN {
+    use lib "./";
+    use src::gtkdbi;
+    use vars qw(@ISA);
+#    use Carp qw(cluck);
+#        $SIG{__DIE__}  = &Carp::confess;
+#        $SIG{__WARN__} = &Carp::cluck;
+}
+
+$Glade::PerlRun::pixmaps_directory = "/home/ivan/gtkdbi/pixmaps";
+
+select STDOUT; $| = 1;
+
+my %params = (
+);
+
+__PACKAGE__->app_run(%params) && exit 0;
+
+exit 1;
+
+1;
+
+__END__
+}