From e54bc03b6d81ac501cc3656eaf4ea601b4ed94f2 Mon Sep 17 00:00:00 2001
From: dakkar <dakkar@thenautilus.net>
Date: Sat, 23 May 2009 16:31:01 +0200
Subject: liste

---
 Build.PL                   |  1 +
 lib/LDFM/MainController.pm | 52 ++++++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 53 insertions(+)

diff --git a/Build.PL b/Build.PL
index 6bb9bd6..b1afdd9 100644
--- a/Build.PL
+++ b/Build.PL
@@ -12,6 +12,7 @@ my $builder = Module::Build->new(
         'perl' => '5.8.3',
         'Gtk2' => '1.1.0',
         'Gtk2::GladeXML::Simple' => 0,
+        'Gtk2::Ex::Simple::List' => 0,
         'Readonly' => 0,
         'Path::Class' => 0,
     },
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;
-- 
cgit v1.2.3