diff options
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; |