[poe-commits] SF.net SVN: poe: [1924] trunk/poe/lib/POE/Loop/TkCommon.pm

[<rc...@us...>]

Revision: 1924
Author:   rcaputo
Date:     2006-04-04 21:22:47 -0700 (Tue, 04 Apr 2006)
ViewCVS:  http://svn.sourceforge.net/poe/?rev=1924&view=rev

Log Message:
-----------
Clear the we're-do-one-looping flag when a UIDESTROY signal is
dispatched due to closing the main window.  Otherwise the after()
event tied to that window never fires (because the window is closed,
duh), and an application can hang.

Modified Paths:
--------------
    trunk/poe/lib/POE/Loop/TkCommon.pm
Modified: trunk/poe/lib/POE/Loop/TkCommon.pm
===================================================================
--- trunk/poe/lib/POE/Loop/TkCommon.pm	2006-04-05 04:21:26 UTC (rev 1923)
+++ trunk/poe/lib/POE/Loop/TkCommon.pm	2006-04-05 04:22:47 UTC (rev 1924)
@@ -34,11 +34,15 @@
   $window->OnDestroy(
     sub {
       if ($self->_data_ses_count()) {
+
         $self->_dispatch_event(
           $self, $self,
           EN_SIGNAL, ET_SIGNAL, [ 'UIDESTROY' ],
           __FILE__, __LINE__, time(), -__LINE__
         );
+
+        # Flag the main loop as done.
+        $_do_one_running = 0;
       }
     }
   );


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.