diff options
Diffstat (limited to 'lib/LDFM/MainController.pm')
| -rw-r--r-- | lib/LDFM/MainController.pm | 52 |
1 files changed, 52 insertions, 0 deletions
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm index 9508ced..1b8efe4 100644 --- a/lib/LDFM/MainController.pm +++ b/lib/LDFM/MainController.pm @@ -3,6 +3,7 @@ use utf8; use warnings; use strict; use base 'Gtk2::GladeXML::Simple'; +use Gtk2::Ex::Simple::List; use Readonly; use Path::Class; @@ -14,7 +15,58 @@ sub new { 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'); + $self->simplify_list('right'); + + # imposto i path + $self->update_list_with_path('left',$ENV{HOME}); + $self->update_list_with_path('right','/'); + return $self; } +sub simplify_list { + my ($self,$side)=@_; + + my $list_name="${side}_list"; + + $self->{$list_name}=Gtk2::Ex::Simple::List->new_from_treeview( + $self->{$list_name}, + 'File' => 'text', + 'Type' => 'text', + 'Size' => 'int', + ); + + $self->{"${side}_data"}=$self->{$list_name}->{data}; + + return; +} + +sub update_list_with_path { + my ($self,$side,$path)=@_; + + my $newpath=dir($path)->absolute; + $self->{"cur_${side}_path"}=$newpath; + $self->{"${side}_path"}->set_text($newpath->stringify); + + my @dir_list=(); + for my $item ($newpath->children(all=>1)) { + my @row=($item->relative($newpath)->stringify); + if ($item->isa('Class::Path::Dir')) { + push @row,'DIR',0; + } + else { + push @row,'FILE',-s $item; + } + push @dir_list,[@row]; + } + + @{$self->{"${side}_data"}}=@dir_list; +} + +sub quit { + Gtk2->main_quit; +} + 1; |