Changeset 5823

Timestamp:

07/04/09 07:28:19 (3 years ago)

Author:

submersible_toaster

Message:

fix interface dodging and add some diagnostics to postevent parts

Location:

branches/Padre-Taskmanager/lib/Padre

Files:

• Service.pm (modified) (1 diff)
• Task.pm (modified) (1 diff)

branches/Padre-Taskmanager/lib/Padre/Service.pm

@@ -89 +89 @@
     Padre::Util::debug( "Running queue $queue" );
     my $tid = threads->tid;
-    my $event  = $self->{__service_event};
+    my $event  = $self->event;
     
     

branches/Padre-Taskmanager/lib/Padre/Task.pm

@@ -509 +509 @@
 =cut
 
+
+use Carp qw( cluck );
+
 sub post_event {
-    my @stuff = @_;
+    my ($self,$eventid,$data) = @_;
     @_ = ();
+    cluck 'eventid is not defined' unless defined $eventid;
+    cluck "eventid[$eventid] , no data to post" 
+        unless ( defined $data and length($data) );
+        
     Wx::PostEvent(
         $Padre::TaskManager::_main,
-        Wx::PlThreadEvent->new( -1, $stuff[1], $stuff[2] ),
+        Wx::PlThreadEvent->new( -1, $eventid, $data ),
     );
     return ();