From f4e8bb9560428781dff219eff11a34df59d84f4a Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3>
Date: Thu, 24 Nov 2005 09:53:40 +0000
Subject:  r801@narval2:  dakkar | 2005-11-19 18:38:19 +0100  tentativo di
 dialog con Glade

git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@46 fcb26f47-9200-0410-b104-b98ab5b095f3
---
 lib/LDFM/MainController.pm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'lib/LDFM/MainController.pm')

diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 2f573cc..09639c4 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -12,7 +12,8 @@ our $VERSION = '0.01';
 sub new {
     my ($class,%params)=@_;
 
-    my $self=$class->SUPER::new($params{glade_file});
+    my $glade_file=dir($params{glade_dir})->file('ldfm-main.glade');
+    my $self=$class->SUPER::new($glade_file);
 
     # cambio le liste con qualcosa di più comodo
     $self->simplify_list('left');
-- 
cgit v1.2.3