diff options
author | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:30:33 +0200 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:30:33 +0200 |
commit | a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87 (patch) | |
tree | 73cce98bc840eec5b61cdb190125227ece662c64 /scripts/ldfm | |
parent | scheletro (diff) | |
download | GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.tar.gz GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.tar.bz2 GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.zip |
glade
Diffstat (limited to 'scripts/ldfm')
-rw-r--r-- | scripts/ldfm | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/scripts/ldfm b/scripts/ldfm index c611a8b..d8b71ff 100644 --- a/scripts/ldfm +++ b/scripts/ldfm @@ -3,6 +3,16 @@ use utf8; use strict; use warnings; use Gtk2 '-init'; +use Path::Class; use LDFM::MainController; -print "buh!\n"; +my $glade_dir=file(__FILE__) + ->parent + ->parent + ->subdir('resources'); + +my $main_controller=LDFM::MainController->new( + glade_dir => $glade_dir +); + +$main_controller->run(); |