Brian,
 
Thanks for the offer. Will send as soon as I get to my Production box.
Meanwhile, I have  found message from Johan Lindstrom with multi-threaded version of his FetchURL demo. Blair Sutton posted info about working M-T model which uses  Thread::Queue module to make a queue sub before Dialog phase of the script. Queue accepts @ARGS from the Event handlers later.
 
Anyhow, I will send you a my code tomorrow.
 
Thanks.
Igor. 
----- Original Message -----
From: Brian Millham
To: 'Igor Anufriyenko' ; perl-win32-gui-users@lists.sourceforge.net
Sent: Thursday, December 29, 2005 8:46 PM
Subject: RE: [perl-win32-gui-users] PerlApp issue

I havenít played with threads while using Win32::GUI.  I have created a fairly complicated perl based service that used threads, so Iíd be willing to help you out with this one.

 

Supply me with a sample script (with animation files attached) and Iíll see if I can get a threaded version running.

 

For the Win32::GUI guirus (spelling intendedJ), is Win32::GUI thread safe?

 

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@direcway.com

-----Original Message-----
From:
perl-win32-gui-users-admin@lists.sourceforge.net [mailto:perl-win32-gui-users-admin@lists.sourceforge.net] On Behalf Of Igor Anufriyenko
Sent:
Thursday, December 29, 2005 8:31 PM
To:
perl-win32-gui-users@lists.sourceforge.net
Subject: Re: [
perl-win32-gui-users] PerlApp issue

 

Brian,

 

I have tried fork(), threads, Thread - none of them work.

So far opening a pipe for reading open (CM,"gpresult |" ) and system() function proved to work in uncompiled script. The latter is quite interesting since it does a hidden fork() for you.

All what I am trying to achieve is running findfile  animation to spice up users' passtime while shell utilities running on the background.

Modules used in this script are Win32::OLE, Win32::GUI::Loft, Win32();

 

A working example of the multi-thread implementation in the GUI script would be much appreciated.

 

Thank you,

 

----- Original Message -----

From: Brian Millham

To: 'Igor Anufriyenko'

Sent: Wednesday, December 28, 2005 11:58 PM

Subject: RE: [perl-win32-gui-users] PerlApp issue

 

Iím surprised that this works at all, even as a script.  Iíd expect the animation to hang, because the script is stopped waiting for your gpresult program to run.

 

You may want to consider running gpresult in a separate thread.

 

Brian Millham
This message traveled at least 44,000 miles to reach you!
Creator of the DW6000 Monitor
http://www.millham.net/dw6000
bmillham@direcway.com

-----Original Message-----
From: perl-win32-gui-users-admin@lists.sourceforge.net [mailto:perl-win32-gui-users-admin@lists.sourceforge.net] On Behalf Of Igor Anufriyenko
Sent: Wednesday, December 28, 2005 10:34 PM
To: perl-win32-gui-users@lists.sourceforge.net
Subject: [perl-win32-gui-users] PerlApp issue

 

Hello,

 

After compiling Win32::GUI script with PerlApp PDK 6.0.2 and running it as EXE  Animation control freezes while fork() or system() are executed on the background to run CPU-intensive processes.

However, uncompiled .PL script runs fine - AVI file is being played OK.

Does anybody have a workaround ? or had a similar issue?

 

code looks similar to this:

 

sub btn_Start_Click {

$animation->Open(file.avi);

$animation->Play(0,-1,-1);

$animation->Show();

&runsomething();

}

sub runsomething {

open CH, "gpresult |";

while (<CH>) {

#do something...;

}

 # or :

system("gpresult");

close CH;

}

 

As mentioned above, perl script.pl runs just fine, though child process utilizes up to 99% of CPU time.

I have tried DoEvents() with no effect whatsoever.

 

Thank you,

Igor.

---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0552-1, 12/28/2005
Tested on: 12/28/2005 11:58:16 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com

---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0552-2, 12/29/2005
Tested on: 12/29/2005 8:41:02 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com


---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0552-2, 12/29/2005
Tested on: 12/29/2005 8:46:27 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com