RE: [perl-win32-gui-users] Thread Safe Message Passing

[Jeremy W. <jez...@ho...>]

>Since I was looking for something slightly different than Rob had
>provided, I managed to make use of his example (TY Rob) and turn it
>around into something more 'famliliar'.

Thanks for posting the code - the more feedback and comments, the better the 
final solution will be:)

>The attached 2 files:
>ThreadSafe.pm
>Threadsafe_1.pl
>
>The module is built around the idea that there *had* to be a way to get
>messages from the windows thread (main aka tid == 0 ) to the child
>threads.

Would this be the correct usage of your module:

#Add this after the window has been created
$win->AddButton(
        -name => 'test',
-text => 'test',
-pos  => [114, 10],
-height => 20,
-onClick => \&butclick,
);

sub butclick {
  for (1..5) {
    $win->SendMessage(WM_PIPE1,M_DATA,['some data',$_]);
    $win->SendMessage(WM_PIPE2,M_DATA,['some data',$_]);
  }
}

When the button is clicked, 5 messages are sent to both spawned threads. Is 
that correct? Would be correct to say that the essence of your package is 
that it allows the main thread to communicate with child threads via the 
windows message queue?

Cheers,

jez.