Changeset 9642

Timestamp:

12/12/09 10:58:57 (2 years ago)

Author:

Sewi

Message:

Slightly improve actionqueue

File:

• trunk/Padre/lib/Padre/Action/Queue.pm (modified) (2 diffs)

trunk/Padre/lib/Padre/Action/Queue.pm

@@ -94 +94 @@
     my $force = shift;
 
-    my $main = Padre->ide->wx->main;
+    if ( $#{ $self->{Queue} } > -1 ) {
 
-    if ( $#{ $self->{Queue} } > -1 ) {
+        # Get this only if needed
+        my $main = Padre->ide->wx->main;
 
         # Advoid another timer event during processing of this event
@@ -108 +109 @@
         &{ $self->{actions}->{$action}->{queue_event} }( $main, $event, $force );
 
+        # Reset not needed if timer wasn't stopped
+        $self->set_timer_interval;
+
     }
-
-    $self->set_timer_interval;
 
     if ( defined($event) ) {