Changeset 10568

Timestamp:

02/07/10 03:26:07 (7 months ago)

Author:

tsee

Message:

Move event intialization to a later point in the bootstrapping process (compilation fix)

Files:

• trunk/Padre/lib/Padre/SlaveDriver.pm (modified) (3 diffs)

trunk/Padre/lib/Padre/SlaveDriver.pm

@@ -50 +50 @@
 # finishing a task.
 our $TASK_DONE_EVENT : shared;
-BEGIN { $TASK_DONE_EVENT = Wx::NewEventType; }
 
 # This event is triggered by the worker thread main loop before
 # running a task.
 our $TASK_START_EVENT : shared;
-BEGIN { $TASK_START_EVENT = Wx::NewEventType; }
 
 =head3 C<new>
@@ -76 +74 @@
                         task_queue => Thread::Queue->new(),
                 } => $class;
+                $SlaveDriver->_init_events();
                 $SlaveDriver->{master} = threads->create(
                         \&_slave_driver_loop,
@@ -87 +86 @@
                 $SlaveDriver->cleanup(), undef $SlaveDriver if defined $SlaveDriver;
         }
+}
+
+# done late so that the full Wx has been loaded for sure
+sub _init_events {
+  $TASK_DONE_EVENT = Wx::NewEventType() if not defined $TASK_DONE_EVENT;
+  $TASK_START_EVENT = Wx::NewEventType() if not defined $TASK_START_EVENT;
 }