Changeset 10574 for trunk/Padre/lib/Padre/Task.pm

Timestamp:

02/07/10 03:30:39 (2 years 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.

File:

• 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);
+    }
 }