diff options
| author | dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3> | 2005-11-24 09:53:40 +0000 |
|---|---|---|
| committer | dakkar <dakkar@fcb26f47-9200-0410-b104-b98ab5b095f3> | 2005-11-24 09:53:40 +0000 |
| commit | f4e8bb9560428781dff219eff11a34df59d84f4a (patch) | |
| tree | c05129575dd0f4b3dd2a49bbb97b9e805727645a /lib/LDFM/MainController.pm | |
| parent | r800@narval2: dakkar | 2005-11-19 18:20:31 +0100 (diff) | |
| download | GtkPerlFileManager-f4e8bb9560428781dff219eff11a34df59d84f4a.tar.gz GtkPerlFileManager-f4e8bb9560428781dff219eff11a34df59d84f4a.tar.bz2 GtkPerlFileManager-f4e8bb9560428781dff219eff11a34df59d84f4a.zip | |
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
Diffstat (limited to 'lib/LDFM/MainController.pm')
| -rw-r--r-- | lib/LDFM/MainController.pm | 3 |
1 files changed, 2 insertions, 1 deletions
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'); |