r799@narval2: dakkar | 2005-11-19 18:15:33 +0100

 implementazioni finte dei pulsanti in basso


git-svn-id: svn://luxion/repos/GtkPerlFileManager/trunk@44 fcb26f47-9200-0410-b104-b98ab5b095f3

1 files changed, 66 insertions, 0 deletions

diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm
index 63f981a..f365115 100644
--- a/lib/LDFM/MainController.pm
+++ b/lib/LDFM/MainController.pm
@@ -36,6 +36,7 @@ sub simplify_list {
         'Type' => 'text',
         'Size' => 'int',
     );
+    $self->{$list_name}->get_selection->set_mode('multiple');
 
     $self->{"${side}_data"}=$self->{$list_name}->{data};
 
@@ -116,6 +117,71 @@ sub use_right_row {
     return;
 }
 
+sub get_selected_side {
+    my ($self)=@_;
+
+    return $self->{left_list}->has_focus()
+             ||
+           $self->{left_path}->has_focus()
+             ? 'left'
+             : 'right';
+}
+
+sub get_selected_files {
+    my ($self)=@_;
+    my $side=$self->get_selected_side();
+    my $path=$self->{"cur_${side}_path"};
+
+    my @files=map {
+        $self->{"cur_${side}_path"}->file($self->{"${side}_data"}->[$_]->[0]);
+    } $self->{"${side}_list"}->get_selected_indices();
+
+    return @files;
+}
+
+sub mkdir {
+    my ($self)=@_;
+
+    my $side=$self->get_selected_side();
+    my $path=$self->{"cur_${side}_path"};
+
+    warn "Creerei una dir in $path\n";
+
+    return;
+}
+
+sub delete {
+    my ($self)=@_;
+
+    my @files=$self->get_selected_files();
+
+    for my $file (@files) {
+        if (-d $file) {
+            warn "Cancellerei la directory $file";
+        }
+        else {
+            warn "Cancellerei il file $file";
+        }
+    }
+
+    return;
+}
+
+sub rename {
+    my ($self)=@_;
+
+    my @files=$self->get_selected_files();
+
+    if (@files==1) {
+        warn "Rinominerei $files[0]\n";
+    }
+    else {
+        warn "Troppa roba selezionata\n";
+    }
+
+    return;
+}
+
 sub quit {
     Gtk2->main_quit;
 }