2 #==============================================================================
3 #=== This is a toplevel script
4 #==============================================================================
5 require 5.000; use strict 'vars', 'refs', 'subs';
14 # $SIG{__DIE__} = &Carp::confess;
15 # $SIG{__WARN__} = &Carp::cluck;
18 $Glade::PerlRun::pixmaps_directory = "/home/ivan/gtkdbi/pixmaps";
20 select STDOUT; $| = 1;
25 __PACKAGE__->app_run(%params) && exit 0;