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 /lib/LDFM/MainController.pm | |
parent | scheletro (diff) | |
download | GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.tar.gz GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.tar.bz2 GtkPerlFileManager-a4cd46c6eed61b9db3df6cd91c5a0cc98fe83d87.zip |
glade
Diffstat (limited to 'lib/LDFM/MainController.pm')
-rw-r--r-- | lib/LDFM/MainController.pm | 10 |
1 files changed, 10 insertions, 0 deletions
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm index a9534e0..9508ced 100644 --- a/lib/LDFM/MainController.pm +++ b/lib/LDFM/MainController.pm @@ -4,7 +4,17 @@ use warnings; use strict; use base 'Gtk2::GladeXML::Simple'; use Readonly; +use Path::Class; our $VERSION = '0.01'; +sub new { + my ($class,%params)=@_; + + my $glade_file=dir($params{glade_dir})->file('ldfm-main.glade'); + my $self=$class->SUPER::new($glade_file); + + return $self; +} + 1; |