Changeset 10574

Timestamp:

02/07/10 03:30:39 (7 months ago)

Author:

tsee

Message:

Split time of event initialization even further so that the events get initialized in the case that Tasks aren't even scheduled but just run.

Files:

• trunk/Padre/lib/Padre/Task.pm (modified) (4 diffs)

trunk/Padre/lib/Padre/Task.pm

@@ -116 +116 @@
 our $VERSION = '0.56';
 
+# set up the stdout/stderr printing events => initialized during run time
+our $STDOUT_EVENT : shared;
+our $STDERR_EVENT : shared;
+
 # TO DO: Why are there require?
 require Padre;
@@ -129 +133 @@
 }
 
-use Class::XSAccessor {
-        constructor => 'new',
-};
-
-# set up the stdout/stderr printing events => initialized during run time
-our $STDOUT_EVENT : shared;
-our $STDERR_EVENT : shared;
-
 =pod
 
@@ -145 +141 @@
 hash reference.
 
+=cut
+
+
+sub new {
+        my $class = shift;
+        my $self = bless {@_} => $class;
+        if ( not defined $STDOUT_EVENT ) {
+                $STDOUT_EVENT = Wx::NewEventType();
+                $STDERR_EVENT = Wx::NewEventType();
+        }
+        return $self;
+}
 =head2 schedule
 
@@ -155 +163 @@
 =cut
 
-sub schedule {
-        my $self = shift;
-        if ( not defined $STDOUT_EVENT ) {
-                $STDOUT_EVENT = Wx::NewEventType();
-                $STDERR_EVENT = Wx::NewEventType();
-                my $main = Padre->ide->wx->main;
-                Wx::Event::EVT_COMMAND(
-                        $main,
-                        -1,
-                        $STDOUT_EVENT,
-                        \&_on_stdout,
-                );
-                Wx::Event::EVT_COMMAND(
-                        $main,
-                        -1,
-                        $STDERR_EVENT,
-                        \&_on_stderr,
-                );
-        }
-        Padre->ide->task_manager->schedule($self);
+SCOPE: {
+        my $event_hooks_initialized = 0;
+        sub schedule {
+                my $self = shift;
+                if (not $event_hooks_initialized) {
+                        $event_hooks_initialized = 1;
+                        my $main = Padre->ide->wx->main;
+                        Wx::Event::EVT_COMMAND(
+                                $main,
+                                -1,
+                                $STDOUT_EVENT,
+                                \&_on_stdout,
+                        );
+                        Wx::Event::EVT_COMMAND(
+                                $main,
+                                -1,
+                                $STDERR_EVENT,
+                                \&_on_stderr,
+                        );
+                }
+                Padre->ide->task_manager->schedule($self);
+        }
 }