perl-win32-gui-users Mailing List for Win32::GUI

>>> Please tell me what is the correct way of running
>>> another .exe program under Windows from a program
 >>> made using Win32::GUI.

 >> Jeremy White <jez...@ho...> wrote:
>> Use Win32::GUI::ShellExecute

 >Harlan Carvey wrote:
 > I like to use Win32::Job

or
   use Win32::Process;
or
   system("start xxx.exe");

As with all things perl TIMTOWTDI.

Regards,
Rob.

Jeremy,

Depending upon the granularity of control that you
need, I like to use Win32::Job to launch another
program.

Harlan

--- Jeremy White <jez...@ho...> wrote:

> 
> >Please tell me what is the correct way of running
> another .exe program 
> >under
> >Windows from a program made using Win32::GUI.
> >For example I want to be able to press a button
> which opens a separate
> >program, but I don't want to maintain any relation
> between those 2 
> >programs.
> >(Just like when the second program is opened from
> Windows Explorer).
> 
> Use Win32::GUI::ShellExecute
> 
>
http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-methods
> 
> Cheers,
> 
> jez.
> 
> 
> 
> 
>
-------------------------------------------------------
> This SF.Net email is sponsored by xPML, a
> groundbreaking scripting language
> that extends applications into web and mobile media.
> Attend the live webcast
> and join the prime developer group breaking into
> this new coding territory!
>
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
>
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 


------------------------------------------
Harlan Carvey, CISSP
"Windows Forensics and Incident Recovery"
http://www.windows-ir.com
http://windowsir.blogspot.com
------------------------------------------

>Please tell me what is the correct way of running another .exe program 
>under
>Windows from a program made using Win32::GUI.
>For example I want to be able to press a button which opens a separate
>program, but I don't want to maintain any relation between those 2 
>programs.
>(Just like when the second program is opened from Windows Explorer).

Use Win32::GUI::ShellExecute

http://perl-win32-gui.sourceforge.net/cgi-bin/docs.cgi?doc=reference-methods

Cheers,

jez.

Hi,

Please tell me what is the correct way of running another .exe program under
Windows from a program made using Win32::GUI.
For example I want to be able to press a button which opens a separate
program, but I don't want to maintain any relation between those 2 programs.
(Just like when the second program is opened from Windows Explorer).

Thank you.

Teddy

>Are you running XP or W2K?  I have only tested the code on a W2K system,
>since I don't have XP to test with.  I think that I have the alignment
>problems solved, but I don't know for sure.  If you have XP, then I know
>that the alignment problem is solved.

XP - the alignment seemed fine.

>BTW, the skin wasn't meant to be a tap, it's supposed to be a bucket,
>showing how much of your DirecWay "bucket" that you have used.  I plan have
>having water dripping in from the faucet (when the bucket is refilling) and
>pouring out the bottom (when you are downloading).  Looking at it, I can 
>see
>how you see it as a tap.  I should have used yellow instead of blue for the
>fill :-)

Sorry:)

Cheers,

jez.

I'm going to try to create a module, but I'm not real good at creating
classes, etc.  I guess that all I can do is try, and go from there.

The current code is good enough for my purposes (the software that I'm
selling).  I've tried to make sure that it's generic (and will attempt to
keep it that way as I work it into my existing product) so that I can
continue to share a Skin module.

I'm also thinking that instead of the command line program to create the
skin file (.pwgs file) that a gui, like The TGL Loft would be nice.  That's
a long ways away, since the current program fits my needs for now.  If my
needs change however, a gui may appear sooner :-)

I have learned quite a bit about Windows GUI programming, and have
definitely improved my Perl skills with this little lesson.  I still have
lots to learn....  And it's been quite a while since I messed with C/C++.
The example code that I found to get me started was in C++, so I've
refreshed my C++ also.

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

-----Original Message-----
From: Jeremy White [mailto:jez...@ho...] 
Sent: Friday, March 24, 2006 3:41 AM
To: bmi...@di...; per...@li...
Subject: RE: [perl-win32-gui-users] Progress on skins in perl


>I've asked before if there is interest in working on a Class, but have only
>receive a few responses.  Is there any interest in creating a
>Win32::GUI::Skin module?

I suspect there will be interest but it will take time before any momentum 
is built up behind Win32::GUI::Skin - and to be honest, I think the module 
will have to exist in a "complete" state before you start getting quality 
active contribution - but that's life with opensource software:)

Don't loose heart, just keep plugging away and if nothing else, you're 
learning a lot about Perl, Wiin32-GUI and windows GUI programming:)

Cheers,

jez.
---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0612-2, 03/23/2006
Tested on: 3/24/2006 3:47:30 AM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com



---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0612-3, 03/24/2006
Tested on: 3/24/2006 7:37:15 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com

Jez,
Are you running XP or W2K?  I have only tested the code on a W2K system,
since I don't have XP to test with.  I think that I have the alignment
problems solved, but I don't know for sure.  If you have XP, then I know
that the alignment problem is solved.

BTW, the skin wasn't meant to be a tap, it's supposed to be a bucket,
showing how much of your DirecWay "bucket" that you have used.  I plan have
having water dripping in from the faucet (when the bucket is refilling) and
pouring out the bottom (when you are downloading).  Looking at it, I can see
how you see it as a tap.  I should have used yellow instead of blue for the
fill :-)


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

-----Original Message-----
From: Jeremy White [mailto:jez...@ho...] 
Sent: Friday, March 24, 2006 3:59 AM
To: bmi...@di...; per...@li...
Subject: RE: [perl-win32-gui-users] Progress on skins in perl

Nice:)

For those that haven't downloaded the code, here is a screen shot of one of 
the skins - the skin is the tap:)

Cheers,

jez.

---
avast! Antivirus: Inbound message clean.
Virus Database (VPS): 0612-2, 03/23/2006
Tested on: 3/24/2006 4:03:03 AM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com



  
---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0612-3, 03/24/2006
Tested on: 3/24/2006 7:20:21 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com

Nice:)

For those that haven't downloaded the code, here is a screen shot of one of 
the skins - the skin is the tap:)

Cheers,

jez.

>I've asked before if there is interest in working on a Class, but have only
>receive a few responses.  Is there any interest in creating a
>Win32::GUI::Skin module?

I suspect there will be interest but it will take time before any momentum 
is built up behind Win32::GUI::Skin - and to be honest, I think the module 
will have to exist in a "complete" state before you start getting quality 
active contribution - but that's life with opensource software:)

Don't loose heart, just keep plugging away and if nothing else, you're 
learning a lot about Perl, Wiin32-GUI and windows GUI programming:)

Cheers,

jez.

Hi all,
I've made good progress with a skin application using Win32::GUI.

I've attached 3 files, skin.pl (the application) and skin3.pwgs and
skin4.pwgs (2 skins.  Pwgs = Perl Win GUI Skin)  The pwgs files are created
by a script that I will share in the next few days.  All info about the skin
is stored in the pwgs file, including the bitmaps (compressed with
Compress::Zlib).

The app is simple minded.  In non-skinned mode, it does nothing.  In skinned
mode, it displays random data as a blue bar graph.

While in skin mode, a right click will bring up a popup menu.  A double left
click will allow you to drag the skin (like any window).

To use, save the 3 files in a directory, and run:

skin.pl -s skin3.pwgs

Or 
 
skin.pl -s skin4.pwgs

The code is not real clean yet, and the script to create the skin file isn't
any better.

What would be nice is a Skin class added to Win32::GUI, but I don't have the
expertise to do that myself.

I've asked before if there is interest in working on a Class, but have only
receive a few responses.  Is there any interest in creating a
Win32::GUI::Skin module?

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

---
avast! Antivirus: Outbound message clean.
Virus Database (VPS): 0612-2, 03/23/2006
Tested on: 3/23/2006 10:07:51 PM
avast! is copyright (c) 2000-2003 ALWIL Software.
http://www.avast.com



      

Robert May wrote:
> Here are a couple of references to get you started (urls may wrap):
> http://msdn.microsoft.com/library/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/getdialogbaseunits.asp 
> http://msdn.microsoft.com/library/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/mapdialogrect.asp 
> http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwue/html/ch14e.asp 

Looks like microsoft changes their url system again.  Here are the last 
2 link again:
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/getdialogbaseunits.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/mapdialogrect.asp

Regards,
Rob.

[Description of problems with sizing labels for differing DPI screens]

>>> Is there any better solution than just making the labels excessively
>>> tall and wide to make sure everything from normal to large fits?
>>
>> Is it not possible to size them dynamically?  I'm guessing that there 
>> must be a way to retrieve the DPI settings from Windows, but I haven't 
>> attempted to understand this problem myself from a programming point 
>> of view, as yet.
> 
> I've looked into this in the past - ok - it was only a few minutes:) - 
> but the approach is to use a form of dynamically positioning. There are 
> standards out there with some standard formulas that can be used - doing 
> a google should bring them up. From memory, delphi was the only dev 
> toolset that seemed to be able to handle different DPI settings 
> "automatically".

Read up on MSDN about dialog units - they're not only applicable to 
dialog boxes.  Technically the correct way to do this is to design your 
window in dialog units sizes, and then convert the dialog units to 
pixels when you create the window - the conversion takes into account 
the size of the font used by the window.  I posted some code to do these 
conversion to the list some time ago - if you can't find it in the 
archive, let me know and I'll see if I can dig it out again.

To do things completely correctly there's a windows message you can 
process that tells you when someone changes the system font size, so 
that you can re-calculate and re-draw all your windows - I've only seem 
a couple of applications that support this.

Here are a couple of references to get you started (urls may wrap):
http://msdn.microsoft.com/library/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/getdialogbaseunits.asp
http://msdn.microsoft.com/library/library/en-us/winui/winui/windowsuserinterface/windowing/dialogboxes/dialogboxreference/dialogboxfunctions/mapdialogrect.asp
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnwue/html/ch14e.asp

Regards,
Rob.
-- 
Robert May
Win32::GUI, a perl extension for native Win32 applications
http://perl-win32-gui.sourceforge.net/

Octavian Rasnita wrote:
> I have downloaded and tried the experimental Win32::GUI::Coolbar module and
> I have tested the included demo program, but it doesn't work. It gives this
> error:
> 
> Can't find 'BTNS_SHOWTEXT' in package 'Win32::GUI::Coolmenu' used at
> Coolbar.pm line 178. at D:/usr/site/lib/Win32/GUI.pm line 450.

Where did you get your binary distribution from?  It looks to me like 
you have a build that didn't have BTNS_SHOWTEXT defined in the headers 
used to build it.

Does the following command-line give the same output?
   perl -MWin32::GUI -e "print BTNS_SHOWTEXT"
on my build that prints 64.

You can solve this temporarily by adding

   sub BTNS_SHOWTEXT() {64}

near the top of Coolbar.pm - I'd suggest next to the
   sub RBBS_USECHEVRON() {512}
line.

Regards,
Rob.

You could also call $Win->Hide() before calling thread->join(), which
would give the appearance** that the program had ended.

-----Original Message-----
From: Jeremy White [mailto:jez...@ho...]=20
Sent: Wednesday, March 22, 2006 12:21 PM
To: ora...@fc...; Plum, Jason;
per...@li...
Subject: Re: [perl-win32-gui-users] threads error


>Hmm, strange, I already tried that. Now I've done it again and I see=20
>that it works.
>However, If I put a sleep(10) in the subroutine which runs in a=20
>separate thread, the program is not closed for 10 seconds.
>
>Is there a way to force closing the program immediately even if it=20
>should wait for a certain operation (like sleep()?

Yeah, don't join on the thread:) The warning that Perl gives "x threads
were running" is just a warning and depending what you are doing it's ok
to ignore it.

Cheers,

jez.

>Hmm, strange, I already tried that. Now I've done it again and I see that 
>it
>works.
>However, If I put a sleep(10) in the subroutine which runs in a separate
>thread, the program is not closed for 10 seconds.
>
>Is there a way to force closing the program immediately even if it should
>wait for a certain operation (like sleep()?

Yeah, don't join on the thread:) The warning that Perl gives "x threads were 
running" is just a warning and depending what you are doing it's ok to 
ignore it.

Cheers,

jez.

Hmm, strange, I already tried that. Now I've done it again and I see that it
works.
However, If I put a sleep(10) in the subroutine which runs in a separate
thread, the program is not closed for 10 seconds.

Is there a way to force closing the program immediately even if it should
wait for a certain operation (like sleep()?

Thanks.

Teddy

----- Original Message ----- 
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>;
<per...@li...>
Sent: Wednesday, March 22, 2006 6:51 PM
Subject: RE: [perl-win32-gui-users] threads error


Increment the $exit var inside of Win_Terminate: {$exit++; -1}

-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]
Sent: Wednesday, March 22, 2006 11:32 AM
To: Plum, Jason; per...@li...
Subject: Re: [perl-win32-gui-users] threads error

Ok, I have tried using threads::shared, but with no effect.
I am not able to close it.

Here is the program:


use strict;
use threads;
use threads::shared;
use Win32::GUI;

my $exit : shared;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

my $thread = threads->new(\&download);

my $Win = Win32::GUI::Window->new(
-name => "Win",
-title => "test",
-size => [400, 400],
-dialogui => 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>;
<per...@li...>
Sent: Wednesday, March 22, 2006 5:33 PM
Subject: RE: [perl-win32-gui-users] threads error


Ah...

Your problem is that you are using a indicator (aka semaphore) to stop
the child thread. This semaphore is NOT a shared variable as it stands,
thus causeing the problem.

Solution:

Use threads::shared;
My $exit : shared;

Try that :)

Jason P.

-ps, sry listfellows, I forgot to stick you in the original replies :x-



-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]
Sent: Wednesday, March 22, 2006 10:28 AM
To: Plum, Jason
Subject: Re: [perl-win32-gui-users] threads error

Hi,

If I do that, it gives an error telling that a detached thread cannot be
joined.
If I don't use detach() at all, I cannot close the program and I need to
use the task manager for doing this.

Here is the test program I have made:

use strict;
use threads;
use Win32::GUI;

my $exit;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

my $thread = threads->new(\&download);
#$thread->detach();

my $Win = Win32::GUI::Window->new(
-name => "Win",
-title => "test",
-size => [400, 400],
-dialogui => 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Thank you

Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>
Sent: Wednesday, March 22, 2006 4:38 PM
Subject: RE: [perl-win32-gui-users] threads error


Call the thread->join()  after Win32::GUI::Dialog has ended. This shoud
solve all of your problems.

Jason P

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Octavian Rasnita
Sent: Wednesday, March 22, 2006 5:30 AM
To: per...@li...
Subject: [perl-win32-gui-users] threads error

Hi,

I have tried the following start of program:

use strict;
use threads;
use Win32::GUI;
use Win32::Internet;
use Compress::Zlib;

my $thread = threads->new(\&download);
###$thread->join();
$thread->detach();

my $exit;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

alarm(0);

my $Win = Win32::GUI::Window->new(
....

The program runs fine, the sub "download" seems to also run with no
issues in a separate thread, but when closing the program, it gives that
error that a thread was closed while 2 threads were running...

If I use $thread->join() instead of $thread->detach(), this error
doesn't appear, but the program waits for that thread, and doesn't
create the main window at all.

How can I do to let that thread running in the same time with the main
program, but not give error on program close?

Thank you.

Teddy


Teddy



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language that extends applications into web and mobile media. Attend the
live webcast and join the prime developer group breaking into this new
coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


-- 

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006




-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language
that extends applications into web and mobile media. Attend the live
webcast
and join the prime developer group breaking into this new coding
territory!
http://sel.as-us.falkag.net/sel?cmd=k&kid0944&bid$1720&dat1642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


-- 

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006




-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006

Increment the $exit var inside of Win_Terminate: {$exit++; -1}=20

-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]=20
Sent: Wednesday, March 22, 2006 11:32 AM
To: Plum, Jason; per...@li...
Subject: Re: [perl-win32-gui-users] threads error

Ok, I have tried using threads::shared, but with no effect.
I am not able to close it.

Here is the program:


use strict;
use threads;
use threads::shared;
use Win32::GUI;

my $exit : shared;
$SIG{INT} =3D $SIG{BREAK} =3D $SIG{HUP} =3D sub {$exit++};

my $thread =3D threads->new(\&download);

my $Win =3D Win32::GUI::Window->new(
-name =3D> "Win",
-title =3D> "test",
-size =3D> [400, 400],
-dialogui =3D> 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>;
<per...@li...>
Sent: Wednesday, March 22, 2006 5:33 PM
Subject: RE: [perl-win32-gui-users] threads error


Ah...

Your problem is that you are using a indicator (aka semaphore) to stop
the child thread. This semaphore is NOT a shared variable as it stands,
thus causeing the problem.

Solution:

Use threads::shared;
My $exit : shared;

Try that :)

Jason P.

-ps, sry listfellows, I forgot to stick you in the original replies :x-



-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]
Sent: Wednesday, March 22, 2006 10:28 AM
To: Plum, Jason
Subject: Re: [perl-win32-gui-users] threads error

Hi,

If I do that, it gives an error telling that a detached thread cannot be
joined.
If I don't use detach() at all, I cannot close the program and I need to
use the task manager for doing this.

Here is the test program I have made:

use strict;
use threads;
use Win32::GUI;

my $exit;
$SIG{INT} =3D $SIG{BREAK} =3D $SIG{HUP} =3D sub {$exit++};

my $thread =3D threads->new(\&download);
#$thread->detach();

my $Win =3D Win32::GUI::Window->new(
-name =3D> "Win",
-title =3D> "test",
-size =3D> [400, 400],
-dialogui =3D> 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Thank you

Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>
Sent: Wednesday, March 22, 2006 4:38 PM
Subject: RE: [perl-win32-gui-users] threads error


Call the thread->join()  after Win32::GUI::Dialog has ended. This shoud
solve all of your problems.

Jason P

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Octavian Rasnita
Sent: Wednesday, March 22, 2006 5:30 AM
To: per...@li...
Subject: [perl-win32-gui-users] threads error

Hi,

I have tried the following start of program:

use strict;
use threads;
use Win32::GUI;
use Win32::Internet;
use Compress::Zlib;

my $thread =3D threads->new(\&download);
###$thread->join();
$thread->detach();

my $exit;
$SIG{INT} =3D $SIG{BREAK} =3D $SIG{HUP} =3D sub {$exit++};

alarm(0);

my $Win =3D Win32::GUI::Window->new(
....

The program runs fine, the sub "download" seems to also run with no
issues in a separate thread, but when closing the program, it gives that
error that a thread was closed while 2 threads were running...

If I use $thread->join() instead of $thread->detach(), this error
doesn't appear, but the program waits for that thread, and doesn't
create the main window at all.

How can I do to let that thread running in the same time with the main
program, but not give error on program close?

Thank you.

Teddy


Teddy



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language that extends applications into web and mobile media. Attend the
live webcast and join the prime developer group breaking into this new
coding territory!
http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D110944&bid=3D241720&dat=3D=
121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


--=20

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006




-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language
that extends applications into web and mobile media. Attend the live
webcast
and join the prime developer group breaking into this new coding
territory!
http://sel.as-us.falkag.net/sel?cmd=3Dk&kid=110944&bid$1720&dat=121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


--=20

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006

Ok, I have tried using threads::shared, but with no effect.
I am not able to close it.

Here is the program:


use strict;
use threads;
use threads::shared;
use Win32::GUI;

my $exit : shared;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

my $thread = threads->new(\&download);

my $Win = Win32::GUI::Window->new(
-name => "Win",
-title => "test",
-size => [400, 400],
-dialogui => 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK);
sleep 10;
}
}



Teddy

----- Original Message ----- 
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>;
<per...@li...>
Sent: Wednesday, March 22, 2006 5:33 PM
Subject: RE: [perl-win32-gui-users] threads error


Ah...

Your problem is that you are using a indicator (aka semaphore) to stop
the child thread. This semaphore is NOT a shared variable as it stands,
thus causeing the problem.

Solution:

Use threads::shared;
My $exit : shared;

Try that :)

Jason P.

-ps, sry listfellows, I forgot to stick you in the original replies :x-



-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]
Sent: Wednesday, March 22, 2006 10:28 AM
To: Plum, Jason
Subject: Re: [perl-win32-gui-users] threads error

Hi,

If I do that, it gives an error telling that a detached thread cannot be
joined.
If I don't use detach() at all, I cannot close the program and I need to
use the task manager for doing this.

Here is the test program I have made:

use strict;
use threads;
use Win32::GUI;

my $exit;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

my $thread = threads->new(\&download);
#$thread->detach();

my $Win = Win32::GUI::Window->new(
-name => "Win",
-title => "test",
-size => [400, 400],
-dialogui => 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Thank you

Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>
Sent: Wednesday, March 22, 2006 4:38 PM
Subject: RE: [perl-win32-gui-users] threads error


Call the thread->join()  after Win32::GUI::Dialog has ended. This shoud
solve all of your problems.

Jason P

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Octavian Rasnita
Sent: Wednesday, March 22, 2006 5:30 AM
To: per...@li...
Subject: [perl-win32-gui-users] threads error

Hi,

I have tried the following start of program:

use strict;
use threads;
use Win32::GUI;
use Win32::Internet;
use Compress::Zlib;

my $thread = threads->new(\&download);
###$thread->join();
$thread->detach();

my $exit;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

alarm(0);

my $Win = Win32::GUI::Window->new(
....

The program runs fine, the sub "download" seems to also run with no
issues in a separate thread, but when closing the program, it gives that
error that a thread was closed while 2 threads were running...

If I use $thread->join() instead of $thread->detach(), this error
doesn't appear, but the program waits for that thread, and doesn't
create the main window at all.

How can I do to let that thread running in the same time with the main
program, but not give error on program close?

Thank you.

Teddy


Teddy



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language that extends applications into web and mobile media. Attend the
live webcast and join the prime developer group breaking into this new
coding territory!
http://sel.as-us.falkag.net/sel?cmd=lnk&kid=110944&bid=241720&dat=121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


-- 

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006




-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting language
that extends applications into web and mobile media. Attend the live webcast
and join the prime developer group breaking into this new coding territory!
http://sel.as-us.falkag.net/sel?cmd=k&kid0944&bid$1720&dat1642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


-- 
No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006

Ah...

Your problem is that you are using a indicator (aka semaphore) to stop
the child thread. This semaphore is NOT a shared variable as it stands,
thus causeing the problem.

Solution:

Use threads::shared;
My $exit : shared;

Try that :)

Jason P.

-ps, sry listfellows, I forgot to stick you in the original replies :x-
=20


-----Original Message-----
From: Octavian Rasnita [mailto:ora...@fc...]=20
Sent: Wednesday, March 22, 2006 10:28 AM
To: Plum, Jason
Subject: Re: [perl-win32-gui-users] threads error

Hi,

If I do that, it gives an error telling that a detached thread cannot be
joined.
If I don't use detach() at all, I cannot close the program and I need to
use the task manager for doing this.

Here is the test program I have made:

use strict;
use threads;
use Win32::GUI;

my $exit;
$SIG{INT} =3D $SIG{BREAK} =3D $SIG{HUP} =3D sub {$exit++};

my $thread =3D threads->new(\&download);
#$thread->detach();

my $Win =3D Win32::GUI::Window->new(
-name =3D> "Win",
-title =3D> "test",
-size =3D> [400, 400],
-dialogui =3D> 1,
);

$Win->Show();
Win32::GUI::Dialog();

$thread->join();

sub Win_Terminate {-1}

sub download {
while(!$exit) {
Win32::GUI::MessageBox($Win, "test", "t", MB_OK); sleep 10; } }



Thank you

Teddy

----- Original Message -----
From: "Plum, Jason" <jp...@ba...>
To: "Octavian Rasnita" <ora...@fc...>
Sent: Wednesday, March 22, 2006 4:38 PM
Subject: RE: [perl-win32-gui-users] threads error


Call the thread->join()  after Win32::GUI::Dialog has ended. This shoud
solve all of your problems.

Jason P

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Octavian Rasnita
Sent: Wednesday, March 22, 2006 5:30 AM
To: per...@li...
Subject: [perl-win32-gui-users] threads error

Hi,

I have tried the following start of program:

use strict;
use threads;
use Win32::GUI;
use Win32::Internet;
use Compress::Zlib;

my $thread =3D threads->new(\&download);
###$thread->join();
$thread->detach();

my $exit;
$SIG{INT} =3D $SIG{BREAK} =3D $SIG{HUP} =3D sub {$exit++};

alarm(0);

my $Win =3D Win32::GUI::Window->new(
....

The program runs fine, the sub "download" seems to also run with no
issues in a separate thread, but when closing the program, it gives that
error that a thread was closed while 2 threads were running...

If I use $thread->join() instead of $thread->detach(), this error
doesn't appear, but the program waits for that thread, and doesn't
create the main window at all.

How can I do to let that thread running in the same time with the main
program, but not give error on program close?

Thank you.

Teddy


Teddy



-------------------------------------------------------
This SF.Net email is sponsored by xPML, a groundbreaking scripting
language that extends applications into web and mobile media. Attend the
live webcast and join the prime developer group breaking into this new
coding territory!
http://sel.as-us.falkag.net/sel?cmd=3Dlnk&kid=3D110944&bid=3D241720&dat=3D=
121642
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/


--=20

No virus found in this incoming message.
Checked by AVG Free Edition.
Version: 7.1.385 / Virus Database: 268.2.6/287 - Release Date: 3/21/2006

From: "Jeremy White" <jez...@ho...>
> Odd - works for me - see attached image - what OS you using?
>
> I'm using 5.8.7 and Win32::GUI 1.03 (albeit built from CVS - but I can't
see
> that being the difference)
>
> Cheers,
>


I use Windows 2000. Here is the version of Win32::GUI::Coolbar:

Win32::GUI::Coolbar version 999 required--this is only version 0.01.
BEGIN failed--compilation aborted.

Teddy

Hi,

I have tried the following start of program:

use strict;
use threads;
use Win32::GUI;
use Win32::Internet;
use Compress::Zlib;

my $thread = threads->new(\&download);
###$thread->join();
$thread->detach();

my $exit;
$SIG{INT} = $SIG{BREAK} = $SIG{HUP} = sub {$exit++};

alarm(0);

my $Win = Win32::GUI::Window->new(
....

The program runs fine, the sub "download" seems to also run with no issues
in a separate thread, but when closing the program, it gives that error that
a thread was closed while 2 threads were running...

If I use $thread->join() instead of $thread->detach(), this error doesn't
appear, but the program waits for that thread, and doesn't create the main
window at all.

How can I do to let that thread running in the same time with the main
program, but not give error on program close?

Thank you.

Teddy


Teddy

>
>This is perl, v5.8.7 built for MSWin32-x86-multi-thread
>(with 7 registered patches, see perl -V for more detail)
>D:\diverse\perl modules\win32\coolbar_0_01>perl -M"Win32::GUI 99999" -e1
>Win32::GUI version 99999 required--this is only version 1.03.
>BEGIN failed--compilation aborted.

Odd - works for me - see attached image - what OS you using?

I'm using 5.8.7 and Win32::GUI 1.03 (albeit built from CVS - but I can't see 
that being the difference)

Cheers,

jez.

From: "Jeremy White" <jez...@ho...>

>
> >I have downloaded and tried the experimental Win32::GUI::Coolbar module
and
> >I have tested the included demo program, but it doesn't work. It gives
this
> >error:
> >
> >Can't find 'BTNS_SHOWTEXT' in package 'Win32::GUI::Coolmenu' used at
> >Coolbar.pm line 178. at D:/usr/site/lib/Win32/GUI.pm line 450.
>
> What version of Perl and Win32-GUI are you using?
>

This is perl, v5.8.7 built for MSWin32-x86-multi-thread
(with 7 registered patches, see perl -V for more detail)
D:\diverse\perl modules\win32\coolbar_0_01>perl -M"Win32::GUI 99999" -e1
Win32::GUI version 99999 required--this is only version 1.03.
BEGIN failed--compilation aborted.

I have also tried with Active Perl 5.8.8 with the same results.

Thanks.

Teddy

>I have downloaded and tried the experimental Win32::GUI::Coolbar module and
>I have tested the included demo program, but it doesn't work. It gives this
>error:
>
>Can't find 'BTNS_SHOWTEXT' in package 'Win32::GUI::Coolmenu' used at
>Coolbar.pm line 178. at D:/usr/site/lib/Win32/GUI.pm line 450.

What version of Perl and Win32-GUI are you using?

Cheers,

jez.

Hi,

I have downloaded and tried the experimental Win32::GUI::Coolbar module and
I have tested the included demo program, but it doesn't work. It gives this
error:

Can't find 'BTNS_SHOWTEXT' in package 'Win32::GUI::Coolmenu' used at
Coolbar.pm line 178. at D:/usr/site/lib/Win32/GUI.pm line 450.



Teddy