From 8cb39114b5aa93a59c0cfbbb4b231674c0540003 Mon Sep 17 00:00:00 2001
From: ivan <ivan>
Date: Thu, 10 Jan 2002 16:11:20 +0000
Subject: checking gtkdbi into cvs

---
 test.pl | 32 ++++++++++++++++++++++++++++++++
 1 file changed, 32 insertions(+)
 create mode 100755 test.pl

(limited to 'test.pl')

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__
+}
-- 
cgit v1.2.1