I took that from http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-methods#dialog
There is no mention of "dequeue" anywhere on that page.
The problem is not the bit you did take from that page; it is the bit you added:
#wait for data, print data to GUI textbox
while(Win32::GUI::DoEvents() != -1) {
my $tmptxt = $DataQueue->dequeue();
^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^^
$main_text_window->Append($tmptxt);
}
If the queue is empty, the call to dequeue() will block and your GUI will freeze.
With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.
|