diff options
author | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:31:57 +0200 |
---|---|---|
committer | dakkar <dakkar@thenautilus.net> | 2009-05-23 16:31:57 +0200 |
commit | ea7c8c1f95e4937a7b5f69e2d71ca4ffcb27c481 (patch) | |
tree | 7df4e0e2a66fb7ca7362873d38ff8db1e5810176 /lib/LDFM/MainController.pm | |
parent | basso (diff) | |
download | GtkPerlFileManager-ea7c8c1f95e4937a7b5f69e2d71ca4ffcb27c481.tar.gz GtkPerlFileManager-ea7c8c1f95e4937a7b5f69e2d71ca4ffcb27c481.tar.bz2 GtkPerlFileManager-ea7c8c1f95e4937a7b5f69e2d71ca4ffcb27c481.zip |
centro
Diffstat (limited to 'lib/LDFM/MainController.pm')
-rw-r--r-- | lib/LDFM/MainController.pm | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/lib/LDFM/MainController.pm b/lib/LDFM/MainController.pm index 328167e..9f7a16c 100644 --- a/lib/LDFM/MainController.pm +++ b/lib/LDFM/MainController.pm @@ -190,6 +190,74 @@ sub rename { return; } +sub copy_lr { + my ($self)=@_; + + my @files=$self->get_files_from_list('left'); + my $destpath=$self->{cur_right_path}; + + $self->copy_files(@files,$destpath); + + return; +} + +sub copy_rl { + my ($self)=@_; + + my @files=$self->get_files_from_list('right'); + my $destpath=$self->{cur_left_path}; + + $self->copy_files(@files,$destpath); + + return; +} + +sub copy_files { + my $self=shift; + my $destdir=pop; + my @files=@_; + + for my $file (@files) { + warn "Copierei $file in $destdir\n"; + } + + return; +} + +sub move_lr { + my ($self)=@_; + + my @files=$self->get_files_from_list('left'); + my $destpath=$self->{cur_right_path}; + + $self->move_files(@files,$destpath); + + return; +} + +sub move_rl { + my ($self)=@_; + + my @files=$self->get_files_from_list('right'); + my $destpath=$self->{cur_left_path}; + + $self->move_files(@files,$destpath); + + return; +} + +sub move_files { + my $self=shift; + my $destdir=pop; + my @files=@_; + + for my $file (@files) { + warn "Sposterei $file in $destdir\n"; + } + + return; +} + sub quit { Gtk2->main_quit; } |