ritocchi per l'articolo

git-svn-id: svn://luxion/repos/URLQueue/trunk@250 fcb26f47-9200-0410-b104-b98ab5b095f3

2 files changed, 8 insertions, 14 deletions

diff --git a/lib/URLQueue/MainController.pm b/lib/URLQueue/MainController.pm
index b9a8dd5..1e4dd04 100644
--- a/lib/URLQueue/MainController.pm
+++ b/lib/URLQueue/MainController.pm
@@ -58,6 +58,8 @@ sub drag_data_received {
     else {
         warn "What is $info??";
     }
+
+    return 1;
 }
 
 sub paste_clipboard {
@@ -65,6 +67,8 @@ sub paste_clipboard {
 
     my $clipboard=Gtk2::Clipboard->get();
     $clipboard->request_text(sub{$self->handle_text($_[1])});
+
+    return 1;
 }
 
 sub button_release {
@@ -73,7 +77,10 @@ sub button_release {
     if ($event->button==2) {
         my $clipboard=Gtk2::Clipboard->get(Gtk2::Gdk->SELECTION_PRIMARY);
         $clipboard->request_text(sub{$self->handle_text($_[1])});
+        return 1;
     }
+
+    return 0;
 }
 
 sub quit {
@@ -90,8 +97,6 @@ sub handle_text {
                    $self->{_last_text} eq $text);
     $self->{_last_text}=$text;
 
-    $self->{status}->push(4,'Finding uris');
-
     {
         my @uris;
         my $tmptext=$text;
@@ -101,13 +106,10 @@ sub handle_text {
                        })->find(\$tmptext);
 
         if ($tmptext=~/\A \s* \z/smx) {
-            $self->{status}->pop(4);
             return $self->handle_uris(@uris);
         }
     }
 
-    $self->{status}->pop(4);
-
     my ($title)=($text =~ m{ \A ^ (.*?) $}smx);
 
     for ($title,$text) {
@@ -125,12 +127,8 @@ sub handle_uris {
 
     return unless @uris;
 
-    $self->{status}->push(5,'Titling '.(scalar @uris).' uris');
-
     my @titles=map {URI::Title::title($_)} @uris;
 
-    $self->{status}->pop(5);
-
     my $title=join ' - ',@titles;
     my $body='';
     while (@uris) {
@@ -156,13 +154,9 @@ Date: $date
 $body
 EOM
 
-    $self->{status}->push(6,'Sending the message');
-
     my $sender=Email::Send->new({mailer=>'SMTP'});
     $sender->mailer_args([Host=>'exelion']);
     $sender->send($message);
-
-    $self->{status}->pop(6);
 }
 
 1;
diff --git a/script/URLQueue.pl b/script/URLQueue.pl
index 5f96015..6eac301 100644
--- a/script/URLQueue.pl
+++ b/script/URLQueue.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 use strict;
 use warnings;
-use Gtk2 '-init';
+use Gtk2 qw(-init);
 use URLQueue::MainController;
 
 my $main_controller=URLQueue::MainController->new();