test.pl

   1 #!/usr/bin/perl
   2 #==============================================================================
   3 #=== This is a toplevel script
   4 #==============================================================================
   5 require 5.000; use strict 'vars', 'refs', 'subs';
   6
   7 package window1;
   8
   9 BEGIN {
  10     use lib "./";
  11     use src::gtkdbi;
  12     use vars qw(@ISA);
  13 #    use Carp qw(cluck);
  14 #        $SIG{__DIE__}  = &Carp::confess;
  15 #        $SIG{__WARN__} = &Carp::cluck;
  16 }
  17
  18 $Glade::PerlRun::pixmaps_directory = "/home/ivan/gtkdbi/pixmaps";
  19
  20 select STDOUT; $| = 1;
  21
  22 my %params = (
  23 );
  24
  25 __PACKAGE__->app_run(%params) && exit 0;
  26
  27 exit 1;
  28
  29 1;
  30
  31 __END__
  32 }