perl-win32-gui-users — Using the Win32::GUI Perl extension

[perl-win32-gui-users] label is not visible after recreating in event

[Andrey <wa...@ma...>]

While researching memory leak in Win32::GUI I found out strange behavior of control.

Here is an example:

=====================
use strict; 
use Win32::GUI(); 

my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);

$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);

sub Label_Click 
{ 
  { # "visibility" block
    $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); 
    $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); 
  }
  $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); 
} 

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

sub Main_Terminate { -1; }
=======================

When you click on "Hello, world" label it just disappears.
If you comment any of "$main->AddLabel" lines then everything will be OK.
Why label disappears?

Perl version: 5.10.1 build 1006
Win32::GUI version: 1.06

Re: [perl-win32-gui-users] Windows shutdown

[Sean H. <jal...@ho...>]

Ilya BANDORIN wrote:

> Since you're in Windows, nobody cares about that #!path/to/perl. :)
> If you wish wperl.exe to process your scripts instead of perl.exe, associate .pl file extension with wperl.exe. That's all.
> But I think that's not good because if you do it all your scripts will be launched with no console screen. 
> Better run your scripts like "path/to/wperl.exe script.pl".

Or you could create another class, such as '*.wpl' or '*.plw' or 
whatever, and associate that with wperl.exe instead of perl.exe

- In Windows Explorer, select the 'Tools' menu, then the 'Folder 
Options' item.
- In the dialog that pops up, select the 'File Types' tab.
- Select the PL file type (type 'PL' in the listview control to jump to it).
- Press the 'Advanced' button.
- Select 'Open' or 'Run' or whatever the command name is
- Click 'Edit'
- Cut and paste the info from 'Application used to perform action'
- Back on the 'File Types' tab, press the 'New' button.
- Enter the file extension (for example, 'WPL') and click 'OK'
- Find and select your new extension (I think it puts it at the top of 
the list
- Press the 'Advanced' button/
- Enter a name for your new file type (for example, 'Windowed Perl Script')
- Press the 'New' button
- Enter a name for your action
- Paste the stuff you cut before, and change perl.exe to wperl.exe
- You may have to click 'Set Default', or it may be set automatically (I 
can't remember)
- Click 'OK'

Now you can run script.wpl with wperl.exe by double clicking in Windows 
Explorer, but script.pl will still run with perl.exe (and therefore have 
a console).

Re: [perl-win32-gui-users] Windows shutdown

[Ilya B. <Ily...@so...>]

Hi Seb,

Since you're in Windows, nobody cares about that #!path/to/perl. :)
If you wish wperl.exe to process your scripts instead of perl.exe, associate .pl file extension with wperl.exe. That's all.
But I think that's not good because if you do it all your scripts will be launched with no console screen. 
Better run your scripts like "path/to/wperl.exe script.pl".


Regards,
_____
Ilya

-----Original Message-----
From: Seb [mailto:se...@h-...] 
Sent: Thursday, December 24, 2009 12:50 PM
To: Kevin Marshall
Cc: Perl-Win32-GUI-Users List
Subject: Re: [perl-win32-gui-users] Windows shutdown


Hi Kevin,


| If you have ActiveState Perl, you could try running the script using the
| wperl.exe program instead. This runs the script without displaying a
| console. This means that any output won't be seen, but I tried it with
| the sample code that Jeremy provided and it worked OK for me.

It works, at least when I call the script manually from a terminal with
"wperl foo.pl".

When I double click on the script's icon from Explorer, though, it seems
that the information given on the first line (I put
#!C:\Perl\bin\wperl.exe) is not taken into account. This is a very basic
question, I'm sorry: how do I get around ActiveState's magic to force the
script to call wperl instead of perl?


Thanks !
Seb.



| > Date: Thu, 24 Dec 2009 00:43:54 +0100
| > From: se...@h-...
| > To: jez...@ho...
| > CC: per...@li...
| > Subject: Re: [perl-win32-gui-users] Windows shutdown
| >
| >
| > Hi Jeremy,
| >
| >
| > | Something like below - I didn't have time to test it fully, but
| > | something is printed when I shutdown.
| > |
| > | use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main =
| > | Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200,
| > | -height => 200);$main->AddLabel(-name => "Label", -text => "Hello,
| > | world", -left => 20, -top => 20, -notify =>
| > | 1);$main->Hook(WM_QUERYENDSESSION,\
| > | &EndSession);$main->Show();Win32::GUI::Dialog(); sub EndSession { print
| > | "WM_QUERYENDSESSION fired\n"; return 0;}
| >
| > It doesn't work for me, so I'll detail my steps.
| >
| > I put this code in a .pl file, reformatted it, then double clicked on the
| > icon of the program. This opened a black terminal and a small window with
| > "Hello, world". Then I clicked on the Start Menu, chose Stop. Windows (XP)
| > then shows an error message saying that Windows cannot terminate this
| > program; it offers to either terminate the program now or cancel.
| >
| > Does Windows shut down when you follow the same steps? Is there something
| > you're doing differently?
| >
| > I tried adding the WM_CLOSE signal, but the result is the same. Same thing
| > when I change EndSession's definition for an "exit(0)".
| >
| > So close and yet...
| >
| > Thanks alot for your time and help. Hope you can guide me through the last
| > step!
| >
| >
| > Seb.
| >
| >
| > | > Date: Wed, 23 Dec 2009 23:41:11 +0100
| > | > From: se...@h-...
| > | > To: jez...@ho...
| > | > CC: per...@li...
| > | > Subject: Re: [perl-win32-gui-users] Windows shutdown
| > | >
| > | >
| > | > Hi Jeremy,
| > | >
| > | >
| > | > | One thing that did strike me when reading your mail was when you said
| > | > | "application does not in itself require a GUI". When you hooked
| > | > | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
| > | > | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
| > | > | If it's not, then you wont get the messages before it's too late...
| > | >
| > | > I'm pretty sure my code isn't at all what it's supposed to look like :-)
| > | > If it's not too much trouble, could you send a working example with these
| > | > variables and Win32::GUI::Dialog ? The simplest things can be hell to put
| > | > together in the right order when it's done for the first time...
| > | >
| > | >
| > | > Thanks!
| > | > Seb.
| > | >
| > | >
| > | >
| > | > | > Date: Wed, 23 Dec 2009 13:19:41 +0100
| > | > | > From: se...@h-...
| > | > | > To: per...@li...
| > | > | > Subject: [perl-win32-gui-users] Windows shutdown
| > | > | >
| > | > | >
| > | > | > Hi folks,
| > | > | >
| > | > | >
| > | > | > Here is the question: I'm looking for a minimal example of a (perl) script
| > | > | > that dies (gracefully or not) when Windows tries to shutdown.
| > | > | >
| > | > | > Story: I have developed an application that monitors via RS232 the health
| > | > | > of TV screens attached to PCs. The information gathered is relayed to a
| > | > | > central server. This application must run continuously, but still die
| > | > | > when an automatic shutdown is triggered on the PC. The application works
| > | > | > but doesn't die when asked to (via Start->Stop).
| > | > | >
| > | > | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
| > | > | > programming: don't hesitate to state an obvious solution :-) Please note
| > | > | > that the application does not in itself require a GUI. I tried a GUI
| > | > | > following the discussion here:
| > | > | > http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
| > | > | > A solution that would use Win32::API would also work for me, I just
| > | > | > thought it might be simpler with Win32::GUI.
| > | > | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
| > | > | > them the right way (again, I know zilsch about Windows programming).
| > | > | >
| > | > | > I've read the archives on mail-archive.com and found discussions dating
| > | > | > back to 2001 and 2004; they do not provide a working example alas. I also
| > | > | > tried to understand the man pages on CPAN and the samples in the tarball,
| > | > | > but couldn't find a hint there either.
| > | > | >
| > | > | > Any hope, err, help, would be much appreciated!
| > | > | >
| > | > | >
| > | > | > Seb.
| > | > | >
| > | > | >
| > | > | > ------------------------------------------------------------------------------
| > | > | > This SF.Net email is sponsored by the Verizon Developer Community
| > | > | > Take advantage of Verizon's best-in-class app development support
| > | > | > A streamlined, 14 day to market process makes app distribution fast and easy
| > | > | > Join now and get one step closer to millions of Verizon customers
| > | > | > http://p.sf.net/sfu/verizon-dev2dev
| > | > | > _______________________________________________
| > | > | > Perl-Win32-GUI-Users mailing list
| > | > | > Per...@li...
| > | > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > | > | > http://perl-win32-gui.sourceforge.net/
| > | > |
| > | > | _________________________________________________________________
| > | > | Use Hotmail to send and receive mail from your different email accounts
| > | > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
| > | >
| > | > ------------------------------------------------------------------------------
| > | > This SF.Net email is sponsored by the Verizon Developer Community
| > | > Take advantage of Verizon's best-in-class app development support
| > | > A streamlined, 14 day to market process makes app distribution fast and easy
| > | > Join now and get one step closer to millions of Verizon customers
| > | > http://p.sf.net/sfu/verizon-dev2dev
| > | > _______________________________________________
| > | > Perl-Win32-GUI-Users mailing list
| > | > Per...@li...
| > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > | > http://perl-win32-gui.sourceforge.net/
| > |
| > | _________________________________________________________________
| > | Use Hotmail to send and receive mail from your different email accounts
| > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
| >
| > ------------------------------------------------------------------------------
| > This SF.Net email is sponsored by the Verizon Developer Community
| > Take advantage of Verizon's best-in-class app development support
| > A streamlined, 14 day to market process makes app distribution fast and easy
| > Join now and get one step closer to millions of Verizon customers
| > http://p.sf.net/sfu/verizon-dev2dev
| > _______________________________________________
| > Perl-Win32-GUI-Users mailing list
| > Per...@li...
| > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > http://perl-win32-gui.sourceforge.net/
|
| _________________________________________________________________
| Looking for a great date? Meet singles at ninemsn dating
| http://clk.atdmt.com/NMN/go/150855801/direct/01/


------------------------------------------------------------------------------
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

Re: [perl-win32-gui-users] Windows shutdown

[Seb <se...@h-...>]

Hi Kevin,


| If you have ActiveState Perl, you could try running the script using the
| wperl.exe program instead. This runs the script without displaying a
| console. This means that any output won't be seen, but I tried it with
| the sample code that Jeremy provided and it worked OK for me.

It works, at least when I call the script manually from a terminal with
"wperl foo.pl".

When I double click on the script's icon from Explorer, though, it seems
that the information given on the first line (I put
#!C:\Perl\bin\wperl.exe) is not taken into account. This is a very basic
question, I'm sorry: how do I get around ActiveState's magic to force the
script to call wperl instead of perl?


Thanks !
Seb.



| > Date: Thu, 24 Dec 2009 00:43:54 +0100
| > From: se...@h-...
| > To: jez...@ho...
| > CC: per...@li...
| > Subject: Re: [perl-win32-gui-users] Windows shutdown
| >
| >
| > Hi Jeremy,
| >
| >
| > | Something like below - I didn't have time to test it fully, but
| > | something is printed when I shutdown.
| > |
| > | use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main =
| > | Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200,
| > | -height => 200);$main->AddLabel(-name => "Label", -text => "Hello,
| > | world", -left => 20, -top => 20, -notify =>
| > | 1);$main->Hook(WM_QUERYENDSESSION,\
| > | &EndSession);$main->Show();Win32::GUI::Dialog(); sub EndSession { print
| > | "WM_QUERYENDSESSION fired\n"; return 0;}
| >
| > It doesn't work for me, so I'll detail my steps.
| >
| > I put this code in a .pl file, reformatted it, then double clicked on the
| > icon of the program. This opened a black terminal and a small window with
| > "Hello, world". Then I clicked on the Start Menu, chose Stop. Windows (XP)
| > then shows an error message saying that Windows cannot terminate this
| > program; it offers to either terminate the program now or cancel.
| >
| > Does Windows shut down when you follow the same steps? Is there something
| > you're doing differently?
| >
| > I tried adding the WM_CLOSE signal, but the result is the same. Same thing
| > when I change EndSession's definition for an "exit(0)".
| >
| > So close and yet...
| >
| > Thanks alot for your time and help. Hope you can guide me through the last
| > step!
| >
| >
| > Seb.
| >
| >
| > | > Date: Wed, 23 Dec 2009 23:41:11 +0100
| > | > From: se...@h-...
| > | > To: jez...@ho...
| > | > CC: per...@li...
| > | > Subject: Re: [perl-win32-gui-users] Windows shutdown
| > | >
| > | >
| > | > Hi Jeremy,
| > | >
| > | >
| > | > | One thing that did strike me when reading your mail was when you said
| > | > | "application does not in itself require a GUI". When you hooked
| > | > | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
| > | > | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
| > | > | If it's not, then you wont get the messages before it's too late...
| > | >
| > | > I'm pretty sure my code isn't at all what it's supposed to look like :-)
| > | > If it's not too much trouble, could you send a working example with these
| > | > variables and Win32::GUI::Dialog ? The simplest things can be hell to put
| > | > together in the right order when it's done for the first time...
| > | >
| > | >
| > | > Thanks!
| > | > Seb.
| > | >
| > | >
| > | >
| > | > | > Date: Wed, 23 Dec 2009 13:19:41 +0100
| > | > | > From: se...@h-...
| > | > | > To: per...@li...
| > | > | > Subject: [perl-win32-gui-users] Windows shutdown
| > | > | >
| > | > | >
| > | > | > Hi folks,
| > | > | >
| > | > | >
| > | > | > Here is the question: I'm looking for a minimal example of a (perl) script
| > | > | > that dies (gracefully or not) when Windows tries to shutdown.
| > | > | >
| > | > | > Story: I have developed an application that monitors via RS232 the health
| > | > | > of TV screens attached to PCs. The information gathered is relayed to a
| > | > | > central server. This application must run continuously, but still die
| > | > | > when an automatic shutdown is triggered on the PC. The application works
| > | > | > but doesn't die when asked to (via Start->Stop).
| > | > | >
| > | > | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
| > | > | > programming: don't hesitate to state an obvious solution :-) Please note
| > | > | > that the application does not in itself require a GUI. I tried a GUI
| > | > | > following the discussion here:
| > | > | > http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
| > | > | > A solution that would use Win32::API would also work for me, I just
| > | > | > thought it might be simpler with Win32::GUI.
| > | > | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
| > | > | > them the right way (again, I know zilsch about Windows programming).
| > | > | >
| > | > | > I've read the archives on mail-archive.com and found discussions dating
| > | > | > back to 2001 and 2004; they do not provide a working example alas. I also
| > | > | > tried to understand the man pages on CPAN and the samples in the tarball,
| > | > | > but couldn't find a hint there either.
| > | > | >
| > | > | > Any hope, err, help, would be much appreciated!
| > | > | >
| > | > | >
| > | > | > Seb.
| > | > | >
| > | > | >
| > | > | > ------------------------------------------------------------------------------
| > | > | > This SF.Net email is sponsored by the Verizon Developer Community
| > | > | > Take advantage of Verizon's best-in-class app development support
| > | > | > A streamlined, 14 day to market process makes app distribution fast and easy
| > | > | > Join now and get one step closer to millions of Verizon customers
| > | > | > http://p.sf.net/sfu/verizon-dev2dev
| > | > | > _______________________________________________
| > | > | > Perl-Win32-GUI-Users mailing list
| > | > | > Per...@li...
| > | > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > | > | > http://perl-win32-gui.sourceforge.net/
| > | > |
| > | > | _________________________________________________________________
| > | > | Use Hotmail to send and receive mail from your different email accounts
| > | > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
| > | >
| > | > ------------------------------------------------------------------------------
| > | > This SF.Net email is sponsored by the Verizon Developer Community
| > | > Take advantage of Verizon's best-in-class app development support
| > | > A streamlined, 14 day to market process makes app distribution fast and easy
| > | > Join now and get one step closer to millions of Verizon customers
| > | > http://p.sf.net/sfu/verizon-dev2dev
| > | > _______________________________________________
| > | > Perl-Win32-GUI-Users mailing list
| > | > Per...@li...
| > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > | > http://perl-win32-gui.sourceforge.net/
| > |
| > | _________________________________________________________________
| > | Use Hotmail to send and receive mail from your different email accounts
| > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
| >
| > ------------------------------------------------------------------------------
| > This SF.Net email is sponsored by the Verizon Developer Community
| > Take advantage of Verizon's best-in-class app development support
| > A streamlined, 14 day to market process makes app distribution fast and easy
| > Join now and get one step closer to millions of Verizon customers
| > http://p.sf.net/sfu/verizon-dev2dev
| > _______________________________________________
| > Perl-Win32-GUI-Users mailing list
| > Per...@li...
| > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > http://perl-win32-gui.sourceforge.net/
|
| _________________________________________________________________
| Looking for a great date? Meet singles at ninemsn dating
| http://clk.atdmt.com/NMN/go/150855801/direct/01/

Re: [perl-win32-gui-users] memory leak problem

[Andrey <wa...@ma...>]

Memory leak cannot be normal for any program. So, it is either Perl bug or Win32::GUI bug
But I noticed that same example using Perl/Tk does not cause memory leak.

===================
use strict;
use Tk;

my $w = MainWindow->new;

my $b = $w->Button(-text => 'test', -command => \&click)->pack();

MainLoop; 

sub click
{
    for (1..10000)
    { 
       $b->destroy;
       $b = $w->Button(-text => rand(), -command => \&click)->pack();
    }
}
===================


-----Original Message-----
From: "Kinch" <ki...@ne...>
To: "'perl-win32-gui-users'" <per...@li...>
Date: Thu, 24 Dec 2009 18:28:03 +1000
Subject: Re: [perl-win32-gui-users] memory leak problem

> Without knowing much about perl or it's internals, isn't this behaviour
> normal for perl, especially on windows?  I was told that when perl variables
> are "freed", the perl interpreter keeps the memory malloc'ed in a pool to
> use again for any new perl variables or data structures it needs.
> 

Re: [perl-win32-gui-users] memory leak problem

[Kinch <ki...@ne...>]

Without knowing much about perl or it's internals, isn't this behaviour
normal for perl, especially on windows?  I was told that when perl variables
are "freed", the perl interpreter keeps the memory malloc'ed in a pool to
use again for any new perl variables or data structures it needs.

-----Original Message-----
From: Andrey [mailto:wa...@ma...] 
Sent: Thursday, 24 December 2009 6:15 PM
To: Jeremy White; perl-win32-gui-users
Subject: Re: [perl-win32-gui-users] memory leak problem


Hello Jeremy! I tried your code (with commented lines) and memory leak still
exists
I tried it under WinXP SP2 and SP3
Perl version: 5.10.0
Win32::GUI version: 1.06

Here is stats for working set and private bytes for script:
1. after start: WS: 1276K, PB: 3668K, Handles: 25
2. first hit on label: WS: 13364K, PB: 14896K, Handles: 25
3. second hit on label: WS: 24676K, PB: 26148K, Handles: 25
...
4. tenth hit on label: WS: 173 Meg, PB: 116 Meg, Handles: 25

all is ok with handles, but memory is leaking

-----Original Message-----
From: Jeremy White <jez...@ho...>
To: <wa...@ma...>, <per...@li...>
Date: Wed, 23 Dec 2009 21:50:15 +0000
Subject: RE: [perl-win32-gui-users] memory leak problem

> 
> Hi,
> What version of Win32::GUI are you using? I don't see any memory leak when
running your code? You don't need to do anything to 'destroy' a control,
Win32::GUI should do the right thing (see below). The same also applies to
windows, you can create/destroy (let them go out of scope) just like normal
objects and all memory should be released. Well, I think anyway:)
> 

----------------------------------------------------------------------------
--
This SF.Net email is sponsored by the Verizon Developer Community
Take advantage of Verizon's best-in-class app development support
A streamlined, 14 day to market process makes app distribution fast and easy
Join now and get one step closer to millions of Verizon customers
http://p.sf.net/sfu/verizon-dev2dev 
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

__________ NOD32 4713 (20091223) Information __________

This message was checked by NOD32 antivirus system.
http://www.eset.com

Re: [perl-win32-gui-users] memory leak problem

[Andrey <wa...@ma...>]

Hello Jeremy! I tried your code (with commented lines) and memory leak still exists
I tried it under WinXP SP2 and SP3
Perl version: 5.10.0
Win32::GUI version: 1.06

Here is stats for working set and private bytes for script:
1. after start: WS: 1276K, PB: 3668K, Handles: 25
2. first hit on label: WS: 13364K, PB: 14896K, Handles: 25
3. second hit on label: WS: 24676K, PB: 26148K, Handles: 25
...
4. tenth hit on label: WS: 173 Meg, PB: 116 Meg, Handles: 25

all is ok with handles, but memory is leaking

-----Original Message-----
From: Jeremy White <jez...@ho...>
To: <wa...@ma...>, <per...@li...>
Date: Wed, 23 Dec 2009 21:50:15 +0000
Subject: RE: [perl-win32-gui-users] memory leak problem

> 
> Hi,
> What version of Win32::GUI are you using? I don't see any memory leak when running your code? You don't need to do anything to 'destroy' a control, Win32::GUI should do the right thing (see below). The same also applies to windows, you can create/destroy (let them go out of scope) just like normal objects and all memory should be released. Well, I think anyway:)
> 

Re: [perl-win32-gui-users] Windows shutdown

[Angelos K. <an...@un...>]

On 23/12/2009 2:19 μμ, Seb wrote:
> 
> Hi folks,
> 
> 
> Here is the question: I'm looking for a minimal example of a (perl) script
> that dies (gracefully or not) when Windows tries to shutdown.
> 


why would an  END block not be sufficient enough for you ?

Re: [perl-win32-gui-users] Windows shutdown

[Kevin M. <kej...@ho...>]

Seb,

 

If you have ActiveState Perl, you could try running the script using the wperl.exe program instead. This runs the script without displaying a console. This means that any output won't be seen, but I tried it with the sample code that Jeremy provided and it worked OK for me.

 

If the error message still pops up, try returning 1 from the EndSession() sub instead of 0. According to the Windows SDK docs, returning 0 will abort the shutdown, although I don't know if this matters for Win32::GUI.

 

Hope this helps,

 

Kevin.
 
> Date: Thu, 24 Dec 2009 00:43:54 +0100
> From: se...@h-...
> To: jez...@ho...
> CC: per...@li...
> Subject: Re: [perl-win32-gui-users] Windows shutdown
> 
> 
> Hi Jeremy,
> 
> 
> | Something like below - I didn't have time to test it fully, but
> | something is printed when I shutdown.
> |
> | use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main =
> | Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200,
> | -height => 200);$main->AddLabel(-name => "Label", -text => "Hello,
> | world", -left => 20, -top => 20, -notify =>
> | 1);$main->Hook(WM_QUERYENDSESSION,\
> | &EndSession);$main->Show();Win32::GUI::Dialog(); sub EndSession { print
> | "WM_QUERYENDSESSION fired\n"; return 0;}
> 
> It doesn't work for me, so I'll detail my steps.
> 
> I put this code in a .pl file, reformatted it, then double clicked on the
> icon of the program. This opened a black terminal and a small window with
> "Hello, world". Then I clicked on the Start Menu, chose Stop. Windows (XP)
> then shows an error message saying that Windows cannot terminate this
> program; it offers to either terminate the program now or cancel.
> 
> Does Windows shut down when you follow the same steps? Is there something
> you're doing differently?
> 
> I tried adding the WM_CLOSE signal, but the result is the same. Same thing
> when I change EndSession's definition for an "exit(0)".
> 
> So close and yet...
> 
> Thanks alot for your time and help. Hope you can guide me through the last
> step!
> 
> 
> Seb.
> 
> 
> | > Date: Wed, 23 Dec 2009 23:41:11 +0100
> | > From: se...@h-...
> | > To: jez...@ho...
> | > CC: per...@li...
> | > Subject: Re: [perl-win32-gui-users] Windows shutdown
> | >
> | >
> | > Hi Jeremy,
> | >
> | >
> | > | One thing that did strike me when reading your mail was when you said
> | > | "application does not in itself require a GUI". When you hooked
> | > | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
> | > | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
> | > | If it's not, then you wont get the messages before it's too late...
> | >
> | > I'm pretty sure my code isn't at all what it's supposed to look like :-)
> | > If it's not too much trouble, could you send a working example with these
> | > variables and Win32::GUI::Dialog ? The simplest things can be hell to put
> | > together in the right order when it's done for the first time...
> | >
> | >
> | > Thanks!
> | > Seb.
> | >
> | >
> | >
> | > | > Date: Wed, 23 Dec 2009 13:19:41 +0100
> | > | > From: se...@h-...
> | > | > To: per...@li...
> | > | > Subject: [perl-win32-gui-users] Windows shutdown
> | > | >
> | > | >
> | > | > Hi folks,
> | > | >
> | > | >
> | > | > Here is the question: I'm looking for a minimal example of a (perl) script
> | > | > that dies (gracefully or not) when Windows tries to shutdown.
> | > | >
> | > | > Story: I have developed an application that monitors via RS232 the health
> | > | > of TV screens attached to PCs. The information gathered is relayed to a
> | > | > central server. This application must run continuously, but still die
> | > | > when an automatic shutdown is triggered on the PC. The application works
> | > | > but doesn't die when asked to (via Start->Stop).
> | > | >
> | > | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
> | > | > programming: don't hesitate to state an obvious solution :-) Please note
> | > | > that the application does not in itself require a GUI. I tried a GUI
> | > | > following the discussion here:
> | > | > http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
> | > | > A solution that would use Win32::API would also work for me, I just
> | > | > thought it might be simpler with Win32::GUI.
> | > | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
> | > | > them the right way (again, I know zilsch about Windows programming).
> | > | >
> | > | > I've read the archives on mail-archive.com and found discussions dating
> | > | > back to 2001 and 2004; they do not provide a working example alas. I also
> | > | > tried to understand the man pages on CPAN and the samples in the tarball,
> | > | > but couldn't find a hint there either.
> | > | >
> | > | > Any hope, err, help, would be much appreciated!
> | > | >
> | > | >
> | > | > Seb.
> | > | >
> | > | >
> | > | > ------------------------------------------------------------------------------
> | > | > This SF.Net email is sponsored by the Verizon Developer Community
> | > | > Take advantage of Verizon's best-in-class app development support
> | > | > A streamlined, 14 day to market process makes app distribution fast and easy
> | > | > Join now and get one step closer to millions of Verizon customers
> | > | > http://p.sf.net/sfu/verizon-dev2dev
> | > | > _______________________________________________
> | > | > Perl-Win32-GUI-Users mailing list
> | > | > Per...@li...
> | > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> | > | > http://perl-win32-gui.sourceforge.net/
> | > |
> | > | _________________________________________________________________
> | > | Use Hotmail to send and receive mail from your different email accounts
> | > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
> | >
> | > ------------------------------------------------------------------------------
> | > This SF.Net email is sponsored by the Verizon Developer Community
> | > Take advantage of Verizon's best-in-class app development support
> | > A streamlined, 14 day to market process makes app distribution fast and easy
> | > Join now and get one step closer to millions of Verizon customers
> | > http://p.sf.net/sfu/verizon-dev2dev
> | > _______________________________________________
> | > Perl-Win32-GUI-Users mailing list
> | > Per...@li...
> | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> | > http://perl-win32-gui.sourceforge.net/
> |
> | _________________________________________________________________
> | Use Hotmail to send and receive mail from your different email accounts
> | http://clk.atdmt.com/UKM/go/186394592/direct/01/
> 
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
 		 	   		  
_________________________________________________________________
Looking for a great date? Meet singles at ninemsn dating
http://clk.atdmt.com/NMN/go/150855801/direct/01/

Re: [perl-win32-gui-users] Windows shutdown

[Seb <se...@h-...>]

Hi Jeremy,


| Something like below - I didn't have time to test it fully, but
| something is printed when I shutdown.
|
| use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main =
| Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200,
| -height => 200);$main->AddLabel(-name => "Label", -text => "Hello,
| world", -left => 20, -top => 20, -notify =>
| 1);$main->Hook(WM_QUERYENDSESSION,\
| &EndSession);$main->Show();Win32::GUI::Dialog();  sub EndSession { print
| "WM_QUERYENDSESSION fired\n";  return 0;}

It doesn't work for me, so I'll detail my steps.

I put this code in a .pl file, reformatted it, then double clicked on the
icon of the program. This opened a black terminal and a small window with
"Hello, world". Then I clicked on the Start Menu, chose Stop. Windows (XP)
then shows an error message saying that Windows cannot terminate this
program; it offers to either terminate the program now or cancel.

Does Windows shut down when you follow the same steps? Is there something
you're doing differently?

I tried adding the WM_CLOSE signal, but the result is the same. Same thing
when I change EndSession's definition for an "exit(0)".

So close and yet...

Thanks alot for your time and help. Hope you can guide me through the last
step!


Seb.


| > Date: Wed, 23 Dec 2009 23:41:11 +0100
| > From: se...@h-...
| > To: jez...@ho...
| > CC: per...@li...
| > Subject: Re: [perl-win32-gui-users] Windows shutdown
| >
| >
| > Hi Jeremy,
| >
| >
| > | One thing that did strike me when reading your mail was when you said
| > | "application does not in itself require a GUI". When you hooked
| > | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
| > | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
| > | If it's not, then you wont get the messages before it's too late...
| >
| > I'm pretty sure my code isn't at all what it's supposed to look like :-)
| > If it's not too much trouble, could you send a working example with these
| > variables and Win32::GUI::Dialog ? The simplest things can be hell to put
| > together in the right order when it's done for the first time...
| >
| >
| > Thanks!
| > Seb.
| >
| >
| >
| > | > Date: Wed, 23 Dec 2009 13:19:41 +0100
| > | > From: se...@h-...
| > | > To: per...@li...
| > | > Subject: [perl-win32-gui-users] Windows shutdown
| > | >
| > | >
| > | > Hi folks,
| > | >
| > | >
| > | > Here is the question: I'm looking for a minimal example of a (perl) script
| > | > that dies (gracefully or not) when Windows tries to shutdown.
| > | >
| > | > Story: I have developed an application that monitors via RS232 the health
| > | > of TV screens attached to PCs. The information gathered is relayed to a
| > | > central server. This application must run continuously, but still die
| > | > when an automatic shutdown is triggered on the PC. The application works
| > | > but doesn't die when asked to (via Start->Stop).
| > | >
| > | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
| > | > programming: don't hesitate to state an obvious solution :-) Please note
| > | > that the application does not in itself require a GUI. I tried a GUI
| > | > following the discussion here:
| > | > 	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
| > | > A solution that would use Win32::API would also work for me, I just
| > | > thought it might be simpler with Win32::GUI.
| > | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
| > | > them the right way (again, I know zilsch about Windows programming).
| > | >
| > | > I've read the archives on mail-archive.com and found discussions dating
| > | > back to 2001 and 2004; they do not provide a working example alas. I also
| > | > tried to understand the man pages on CPAN and the samples in the tarball,
| > | > but couldn't find a hint there either.
| > | >
| > | > Any hope, err, help, would be much appreciated!
| > | >
| > | >
| > | > Seb.
| > | >
| > | >
| > | > ------------------------------------------------------------------------------
| > | > This SF.Net email is sponsored by the Verizon Developer Community
| > | > Take advantage of Verizon's best-in-class app development support
| > | > A streamlined, 14 day to market process makes app distribution fast and easy
| > | > Join now and get one step closer to millions of Verizon customers
| > | > http://p.sf.net/sfu/verizon-dev2dev
| > | > _______________________________________________
| > | > Perl-Win32-GUI-Users mailing list
| > | > Per...@li...
| > | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > | > http://perl-win32-gui.sourceforge.net/
| > |
| > | _________________________________________________________________
| > | Use Hotmail to send and receive mail from your different email accounts
| > | http://clk.atdmt.com/UKM/go/186394592/direct/01/
| >
| > ------------------------------------------------------------------------------
| > This SF.Net email is sponsored by the Verizon Developer Community
| > Take advantage of Verizon's best-in-class app development support
| > A streamlined, 14 day to market process makes app distribution fast and easy
| > Join now and get one step closer to millions of Verizon customers
| > http://p.sf.net/sfu/verizon-dev2dev
| > _______________________________________________
| > Perl-Win32-GUI-Users mailing list
| > Per...@li...
| > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > http://perl-win32-gui.sourceforge.net/
|
| _________________________________________________________________
| Use Hotmail to send and receive mail from your different email accounts
| http://clk.atdmt.com/UKM/go/186394592/direct/01/

Re: [perl-win32-gui-users] Windows shutdown

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

Something like below - I didn't have time to test it fully, but something is printed when I shutdown.

use strict; use Win32::GUI qw (WM_QUERYENDSESSION); my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);$main->Hook(WM_QUERYENDSESSION,\ &EndSession);$main->Show();Win32::GUI::Dialog(); 
sub EndSession {  print "WM_QUERYENDSESSION fired\n";  return 0;}


> Date: Wed, 23 Dec 2009 23:41:11 +0100
> From: se...@h-...
> To: jez...@ho...
> CC: per...@li...
> Subject: Re: [perl-win32-gui-users] Windows shutdown
> 
> 
> Hi Jeremy,
> 
> 
> | One thing that did strike me when reading your mail was when you said
> | "application does not in itself require a GUI". When you hooked
> | WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
> | sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
> | If it's not, then you wont get the messages before it's too late...
> 
> I'm pretty sure my code isn't at all what it's supposed to look like :-)
> If it's not too much trouble, could you send a working example with these
> variables and Win32::GUI::Dialog ? The simplest things can be hell to put
> together in the right order when it's done for the first time...
> 
> 
> Thanks!
> Seb.
> 
> 
> 
> | > Date: Wed, 23 Dec 2009 13:19:41 +0100
> | > From: se...@h-...
> | > To: per...@li...
> | > Subject: [perl-win32-gui-users] Windows shutdown
> | >
> | >
> | > Hi folks,
> | >
> | >
> | > Here is the question: I'm looking for a minimal example of a (perl) script
> | > that dies (gracefully or not) when Windows tries to shutdown.
> | >
> | > Story: I have developed an application that monitors via RS232 the health
> | > of TV screens attached to PCs. The information gathered is relayed to a
> | > central server. This application must run continuously, but still die
> | > when an automatic shutdown is triggered on the PC. The application works
> | > but doesn't die when asked to (via Start->Stop).
> | >
> | > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
> | > programming: don't hesitate to state an obvious solution :-) Please note
> | > that the application does not in itself require a GUI. I tried a GUI
> | > following the discussion here:
> | > 	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
> | > A solution that would use Win32::API would also work for me, I just
> | > thought it might be simpler with Win32::GUI.
> | > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
> | > them the right way (again, I know zilsch about Windows programming).
> | >
> | > I've read the archives on mail-archive.com and found discussions dating
> | > back to 2001 and 2004; they do not provide a working example alas. I also
> | > tried to understand the man pages on CPAN and the samples in the tarball,
> | > but couldn't find a hint there either.
> | >
> | > Any hope, err, help, would be much appreciated!
> | >
> | >
> | > Seb.
> | >
> | >
> | > ------------------------------------------------------------------------------
> | > This SF.Net email is sponsored by the Verizon Developer Community
> | > Take advantage of Verizon's best-in-class app development support
> | > A streamlined, 14 day to market process makes app distribution fast and easy
> | > Join now and get one step closer to millions of Verizon customers
> | > http://p.sf.net/sfu/verizon-dev2dev
> | > _______________________________________________
> | > Perl-Win32-GUI-Users mailing list
> | > Per...@li...
> | > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> | > http://perl-win32-gui.sourceforge.net/
> |
> | _________________________________________________________________
> | Use Hotmail to send and receive mail from your different email accounts
> | http://clk.atdmt.com/UKM/go/186394592/direct/01/
> 
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
 		 	   		  
_________________________________________________________________
Use Hotmail to send and receive mail from your different email accounts
http://clk.atdmt.com/UKM/go/186394592/direct/01/

Re: [perl-win32-gui-users] Windows shutdown

[Seb <se...@h-...>]

Hi Jeremy,


| One thing that did strike me when reading your mail was when you said
| "application does not in itself require a GUI". When you hooked
| WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is
| sitting on the event pump (Win32::GUI::Dialog) when windows shuts down?
| If it's not, then you wont get the messages before it's too late...

I'm pretty sure my code isn't at all what it's supposed to look like :-)
If it's not too much trouble, could you send a working example with these
variables and Win32::GUI::Dialog ? The simplest things can be hell to put
together in the right order when it's done for the first time...


Thanks!
Seb.



| > Date: Wed, 23 Dec 2009 13:19:41 +0100
| > From: se...@h-...
| > To: per...@li...
| > Subject: [perl-win32-gui-users] Windows shutdown
| >
| >
| > Hi folks,
| >
| >
| > Here is the question: I'm looking for a minimal example of a (perl) script
| > that dies (gracefully or not) when Windows tries to shutdown.
| >
| > Story: I have developed an application that monitors via RS232 the health
| > of TV screens attached to PCs. The information gathered is relayed to a
| > central server. This application must run continuously, but still die
| > when an automatic shutdown is triggered on the PC. The application works
| > but doesn't die when asked to (via Start->Stop).
| >
| > I have a fair knowledge of Perl and Unix, but I am totally new to Windows
| > programming: don't hesitate to state an obvious solution :-) Please note
| > that the application does not in itself require a GUI. I tried a GUI
| > following the discussion here:
| > 	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
| > A solution that would use Win32::API would also work for me, I just
| > thought it might be simpler with Win32::GUI.
| > I have tried to use GetMessage and PeekMessage, but I'm clearly not using
| > them the right way (again, I know zilsch about Windows programming).
| >
| > I've read the archives on mail-archive.com and found discussions dating
| > back to 2001 and 2004; they do not provide a working example alas. I also
| > tried to understand the man pages on CPAN and the samples in the tarball,
| > but couldn't find a hint there either.
| >
| > Any hope, err, help, would be much appreciated!
| >
| >
| > Seb.
| >
| >
| > ------------------------------------------------------------------------------
| > This SF.Net email is sponsored by the Verizon Developer Community
| > Take advantage of Verizon's best-in-class app development support
| > A streamlined, 14 day to market process makes app distribution fast and easy
| > Join now and get one step closer to millions of Verizon customers
| > http://p.sf.net/sfu/verizon-dev2dev
| > _______________________________________________
| > Perl-Win32-GUI-Users mailing list
| > Per...@li...
| > https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
| > http://perl-win32-gui.sourceforge.net/
|
| _________________________________________________________________
| Use Hotmail to send and receive mail from your different email accounts
| http://clk.atdmt.com/UKM/go/186394592/direct/01/

Re: [perl-win32-gui-users] Windows shutdown

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

Hi,
One thing that did strike me when reading your mail was when you said "application does not in itself require a GUI". When you hooked WM_QUERYENDSESSION + WM_ENDSESSION, are you sure your application is sitting on the event pump (Win32::GUI::Dialog) when windows shuts down? If it's not, then you wont get the messages before it's too late... 
Cheers,
Jeremy.

> Date: Wed, 23 Dec 2009 13:19:41 +0100
> From: se...@h-...
> To: per...@li...
> Subject: [perl-win32-gui-users] Windows shutdown
> 
> 
> Hi folks,
> 
> 
> Here is the question: I'm looking for a minimal example of a (perl) script
> that dies (gracefully or not) when Windows tries to shutdown.
> 
> Story: I have developed an application that monitors via RS232 the health
> of TV screens attached to PCs. The information gathered is relayed to a
> central server. This application must run continuously, but still die
> when an automatic shutdown is triggered on the PC. The application works
> but doesn't die when asked to (via Start->Stop).
> 
> I have a fair knowledge of Perl and Unix, but I am totally new to Windows
> programming: don't hesitate to state an obvious solution :-) Please note
> that the application does not in itself require a GUI. I tried a GUI
> following the discussion here:
> 	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
> A solution that would use Win32::API would also work for me, I just
> thought it might be simpler with Win32::GUI.
> I have tried to use GetMessage and PeekMessage, but I'm clearly not using
> them the right way (again, I know zilsch about Windows programming).
> 
> I've read the archives on mail-archive.com and found discussions dating
> back to 2001 and 2004; they do not provide a working example alas. I also
> tried to understand the man pages on CPAN and the samples in the tarball,
> but couldn't find a hint there either.
> 
> Any hope, err, help, would be much appreciated!
> 
> 
> Seb.
> 
> 
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
 		 	   		  
_________________________________________________________________
Use Hotmail to send and receive mail from your different email accounts
http://clk.atdmt.com/UKM/go/186394592/direct/01/

Re: [perl-win32-gui-users] memory leak problem

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

Hi,
What version of Win32::GUI are you using? I don't see any memory leak when running your code? You don't need to do anything to 'destroy' a control, Win32::GUI should do the right thing (see below). The same also applies to windows, you can create/destroy (let them go out of scope) just like normal objects and all memory should be released. Well, I think anyway:)
Cheers,
jez.

use strict; use Win32::GUI(); my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);
$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);
sub Label_Click { for (1..10000) { #Win32::GUI::DestroyWindow($main->{"Label"}{-handle}); <--- not need#delete $main->{"Label"};  <- not need.$main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); } } 
$main->Show(); Win32::GUI::Dialog(); 
sub Main_Terminate { -1; }


> From: wa...@ma...
> To: per...@li...
> Date: Wed, 23 Dec 2009 12:22:03 +0300
> Subject: [perl-win32-gui-users] memory leak problem
> 
> Hello, Win32::GUI users!
> 
> I have an application which extensively creates and destroys window controls, such as labels, buttons etc..
> To get rid from window control I use Win32::GUI::DestroyWindow, but seems this method is not working properly, see example:
> 
> ==================
> use strict; 
> use Win32::GUI(); 
> my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);
> 
> $main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);
> 
> sub Label_Click 
> { 
>     for (1..1000) 
>     { 
>         Win32::GUI::DestroyWindow($main->{"Label"}{-handle}); 
>         delete $main->{"Label"}; 
>         $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); 
>     } 
> } 
> 
> $main->Show(); Win32::GUI::Dialog(); 
> 
> sub Main_Terminate { -1; }
> =============
> 
> When I click on label the program creates/destroys control many times. But seems there is huge memory leak, when using this method. Is there any "proper" way do destroy window control? 
> 
> 
> ------------------------------------------------------------------------------
> This SF.Net email is sponsored by the Verizon Developer Community
> Take advantage of Verizon's best-in-class app development support
> A streamlined, 14 day to market process makes app distribution fast and easy
> Join now and get one step closer to millions of Verizon customers
> http://p.sf.net/sfu/verizon-dev2dev 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
 		 	   		  
_________________________________________________________________
Got more than one Hotmail account? Save time by linking them together
 http://clk.atdmt.com/UKM/go/186394591/direct/01/

[perl-win32-gui-users] Windows shutdown

[Seb <se...@h-...>]

Hi folks,


Here is the question: I'm looking for a minimal example of a (perl) script
that dies (gracefully or not) when Windows tries to shutdown.

Story: I have developed an application that monitors via RS232 the health
of TV screens attached to PCs. The information gathered is relayed to a
central server. This application must run continuously, but still die
when an automatic shutdown is triggered on the PC. The application works
but doesn't die when asked to (via Start->Stop).

I have a fair knowledge of Perl and Unix, but I am totally new to Windows
programming: don't hesitate to state an obvious solution :-) Please note
that the application does not in itself require a GUI. I tried a GUI
following the discussion here:
	http://objectmix.com/perl/20692-win32-how-quit-perl-script-during-log-off-automatically.html
A solution that would use Win32::API would also work for me, I just
thought it might be simpler with Win32::GUI.
I have tried to use GetMessage and PeekMessage, but I'm clearly not using
them the right way (again, I know zilsch about Windows programming).

I've read the archives on mail-archive.com and found discussions dating
back to 2001 and 2004; they do not provide a working example alas. I also
tried to understand the man pages on CPAN and the samples in the tarball,
but couldn't find a hint there either.

Any hope, err, help, would be much appreciated!


Seb.

[perl-win32-gui-users] memory leak problem

[Andrey <wa...@ma...>]

Hello, Win32::GUI users!

I have an application which extensively creates and destroys window controls, such as labels, buttons etc..
To get rid from window control I use Win32::GUI::DestroyWindow, but seems this method is not working properly, see example:

==================
use strict; 
use Win32::GUI(); 
my $main = Win32::GUI::Window->new(-name => 'Main', -text => 'Perl', -width => 200, -height => 200);

$main->AddLabel(-name => "Label", -text => "Hello, world", -left => 20, -top => 20, -notify => 1);

sub Label_Click 
{ 
    for (1..1000) 
    { 
        Win32::GUI::DestroyWindow($main->{"Label"}{-handle}); 
        delete $main->{"Label"}; 
        $main->AddLabel(-name => "Label", -text => rand(), -left => 20, -top => 20, -notify => 1); 
    } 
} 

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

sub Main_Terminate { -1; }
=============

When I click on label the program creates/destroys control many times. But seems there is huge memory leak, when using this method. Is there any "proper" way do destroy window control? 

[perl-win32-gui-users] Save icon from Exe file

[Alain M. <ala...@gm...>]

Hi,

Is there a solution in order to save into a file some Icons which has been
extracted from Exe file ?

I didn't find any solution with Win32::GUI::DIBitmap ?

use Win32::Exe;
my $exe = Win32::Exe->new('c:/windows/notepad.exe');

# Dump icons in an executable
foreach my $icon ($exe->icons) {
    printf "Icon: %s x %s (%s colors)\n",
               $icon->Width, $icon->Height, 2 ** $icon->BitCount;
    # How can i store in file those icons ?
    ...
}

Thanks for your answers.

[perl-win32-gui-users] installing win32 gui on CamelBox perl

[eros-9 <ero...@ho...>]

hi
i want to report how i have installed win32 gui on the CamelBox perl, since
it has no ppm utility, and using its gcc.exe to compile from the source will
not install Win32-GUI-DIBitmap and Win32-GUI-Axwindow
i have asked perlmonks.com http://www.perlmonks.com/?node_id=809986
and the best plan is as follows (last report to the discussions)
thank you very much, i have used the above reference "I don't have PPM, how
can I install a package":http://www.perlmonks.com/?node_id=260683
i have downloaded the win32gui ppm, then unzipping it, then unzipping again
the Win32-GUI.tar.gz file so the blib folder will be visible
after that as that page instruct:
perl -MExtUtils::Install -e install_default win32-gui
then it is installed semi instantly
i have tried the Win32-GUI-DIBitmap examples and it is working okay
regards


-- 
View this message in context: http://old.nabble.com/installing-win32-gui-on-CamelBox-perl-tp26560493p26560493.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.

Re: [perl-win32-gui-users] How to edit ListView subitem ?

[<mil...@se...>]

Dear Kevin :

Thanks your help  and it's working good  for my purpose.

I find some issue about the column click event disappear in this case . 
And the column resize event and scrolling event seems not support  to let 
me capture it.
Since you tell me to edit the subitem on the ListView  has not  standard 
Windows function. I try the other way to implement this case. Maybe the 
Grid View more fit my target .
thanks so much .

Here is your sample I put a little event  processing to avoid that 
ListView resize event and  scrolling event  has been triggered .

 
#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);
 
my $MW = Win32::GUI::Window->new(
                                   -name  => 'MW',
                                    -size  => [350,550],
                                    -pos  => [250,125],
                                    -text  => "Listview Example",
                                    -pushstyle => WS_MINIMIZEBOX | 
WS_SYSMENU,
                                );

my $LV_0 = $MW->AddListView(
                             -name    => "LV_0",
                             -size    => [300,500],
                             -pos    => [6,6],
                             -fullrowselect  => 1,
                             -hottrack   => 0, 
                             -gridlines   => 1, 
                             -checkboxes   => 0,
                             -singlesel   => 1,
                             -oneclickactivate => 1,
                             -editlabel   => 1, 
                             -visible   => 1,
                             -nocolumnheader  => 0,
                           );

my $timer = $MW -> AddTimer( "Update", 300 ); 

my($Item,$SubItem);

my $Edit = Win32::GUI::Textfield->new(
                                      -parent   => $LV_0,
                                      -name   => 'Edit',
                                      -visible  => 0,
                                      -popexstyle  => WS_EX_CLIENTEDGE,
                                      -onLostFocus => sub {
                                                            #Label isn't 
changed if user clicks off textfield
                                                            my $self = 
shift; 
                                                            $self->Hide();
                                                            $timer -> 
Interval(300);
                                                            return 1;
                                                           },
                                      -onKeyDown => sub {
 my($self,$flags,$vkey) = @_;
                                                          #Label is 
changed on RETURN key
                                                          if($vkey == 
VK_RETURN){
                                                              my $item = 
$LV_0->Item($Item);
 if($SubItem){
                                                                  my $sub 
= $item->SubItem($SubItem);
 $sub->Text($self->Text());
                                                                }else{
 $item->Text($self->Text());
                                                                      }
 $self->Hide();
                                                            }
                                                          #Label isn't 
changed on ESCAPE key
                                                            elsif($vkey == 
VK_ESCAPE){
 $self->Hide();
                                                                 }
                                                          $timer -> 
Interval(0);
                                                          return 1;
                                                         },
                                                        );
$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);

$LV_0->InsertColumn(
 -index => 2,
 -width => 1000,
 -text  => "Column_1",
);

for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf 
"subindex %03d", $_ ) ] );
}

$MW -> Show();
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{
 -1;
}

sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

sub Update_Timer{
$LV_0 -> Redraw(1);
}

sub LV_0_MouseMove{
$Edit -> Hide();
$timer -> Interval(300);
}

__END__

Best Regards
Miller Chen




寄件人：
Kevin Marshall <kej...@ho...>
收件人：
<mil...@se...>, Perl-Win32-GUI-Users List 
<per...@li...>
日期：
2009/11/23 上午 09:56
主旨：
RE: [perl-win32-gui-users] How to edit ListView subitem ?



Miller,
 
After digging through the Windows SDK documentation, I'm fairly certain 
that Windows doesn't allow subitem labels to be edited. You can get around 
this, though, by handling the label change yourself. 
 
Here is a sample I put together from your code that allows subitems to be 
edited. It does this by responding to the MouseDblClick event (instead of 
the DblClick event), which displays a text box that the user can type in. 
There is probably a better way to do this, but this works OK.
 
#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);
 
my $MW = Win32::GUI::Window->new(
 -name  => 'MW',
 -size  => [350,550],
 -pos  => [250,125],
 -text  => "Listview Example",
 -pushstyle => WS_MINIMIZEBOX | WS_SYSMENU,
);
my $LV_0 = $MW->AddListView(
 -name    => "LV_0",
 -size    => [300,500],
 -pos    => [6,6],
 -fullrowselect  => 1, # Select every colnum's row at the same time
 -hottrack   => 0, # Auto select item , don't click item
 -gridlines   => 1, # Draw the border for list table
 -checkboxes   => 0, # Show the check box on the every row start
 -singlesel   => 1,
 -oneclickactivate => 1, # Change the cursor to onecclick type while on 
the select item
 -editlabel   => 1, # Can be edit
 -visible   => 1,
 -nocolumnheader  => 0, # Hide the column header
);
my($Item,$SubItem);
my $Edit = Win32::GUI::Textfield->new(
 -parent   => $LV_0,
 -name   => 'Edit',
 -visible  => 0,
 -popexstyle  => WS_EX_CLIENTEDGE,
 -onLostFocus => sub {
  #Label isn't changed if user clicks off textfield
  my $self = shift;
  $self->Hide();
  return 1;
 },
 -onKeyDown => sub {
  my($self,$flags,$vkey) = @_;
  #Label is changed on RETURN key
  if($vkey == VK_RETURN){
   my $item = $LV_0->Item($Item);
   if($SubItem){
    my $sub = $item->SubItem($SubItem);
    $sub->Text($self->Text());
   }
   else {
    $item->Text($self->Text());
   }
   $self->Hide();
  }
  #Label isn't changed on ESCAPE key
  elsif($vkey == VK_ESCAPE){
   $self->Hide();
  }
  return 1;
 },
);
$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);
$LV_0->InsertColumn(
 -index => 2,
 -width => 150,
 -text  => "Column_1",
);
for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf 
"subindex %03d", $_ ) ] );
}
$MW -> Show();
Win32::GUI::Dialog();
exit(0);
sub MW_Terminate{
 -1;
}
sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

__END__
 
Hope this helps,
 
Kevin.
 
To: per...@li...
From: mil...@se...
Date: Thu, 19 Nov 2009 16:52:23 +0800
Subject: [perl-win32-gui-users] How to edit ListView subitem ?


Dear All : 

Does any one know how to let the ListView subitem can be edit ? 



Below is my sample code : 

#!perl 
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW', 
 -size       => [350,550], 
 -pos       =>  [250,125], 
 -text       => "Listview Example", 
 -font       => $font_T_8 , 
                                                       -style      => 
WS_MINIMIZEBOX | WS_SYSMENU, 
                                   ); 
                                                                


$LV_0 = $MW -> AddListView(      -name             => "LV_0", 
                                                                 -size    
=> [300,500], 
                                                                 -pos   => 
[6,6], 
 -fullrowselect    => 1,    # Select every colnum's row at the same time 
                                                                 -hottrack 
        => 0,    # Auto select item , don't click item 
                                 -gridlines        => 1,    # Draw the 
border for list table 
                                  -checkboxes       => 0,    # Show the 
check box on the every row start 
 -singlesel        => 1, 
                                  -oneclickactivate => 1,    # Change the 
cursor to onecclick type while on the select item 
                                  -editlabel        => 1,    # Can be edit 

                                  -visible          => 1,     
 -nocolumnheader   => 0,    # Hide the column header 
                                          ); 



$LV_0 -> InsertColumn( -index => 1, 
                                              -width => 150, 
                                              -text => "Column_0", 
                                          ); 


$LV_0 -> InsertColumn( -index => 2, 
                       -width => 150, 
                       -text  => "Column_1", 
                                         );                    

                                          
#$LV_1 = Win32::GUI::ListView::SubItem -> new( 
#                                              -parent    => $LV_0, 
#                                              -index     => 1, 
#                                              -subindex  => 1,            
 
#                );                                 

for(0..100){ 
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), 
( sprintf "subindex% 03d", $_ ) ] ), "\n"; 
        } 



$MW -> Show();             
Win32::GUI::Dialog(); 
exit(0); 

sub MW_Terminate{ 

-1; 

} 

sub LV_0_DblClick{ 

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ; 
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() ); 

} 

sub LV_0_BeginLabelEdit{ 

print "BLabelEdit:", "@_", "\n"; 

} 

sub LV_0_EndLabelEdit{ 

print "ELabelEdit:", "@_", "\n"; 

} 

---End-- 

Best Regards 
Miller Chen 
Brought to you exclusively by Windows Live Download new and classic 
emoticon packs at Emoticon World

Re: [perl-win32-gui-users] How to edit ListView subitem ?

[Kevin M. <kej...@ho...>]

Miller,

 

After digging through the Windows SDK documentation, I'm fairly certain that Windows doesn't allow subitem labels to be edited. You can get around this, though, by handling the label change yourself. 

 

Here is a sample I put together from your code that allows subitems to be edited. It does this by responding to the MouseDblClick event (instead of the DblClick event), which displays a text box that the user can type in. There is probably a better way to do this, but this works OK.

 

#!perl
use strict;
use warnings;
use Win32::GUI qw();
use Win32::GUI::Constants qw(/^WS_/ /^VK_/);

 

my $MW = Win32::GUI::Window->new(
 -name  => 'MW',
 -size  => [350,550],
 -pos  => [250,125],
 -text  => "Listview Example",
 -pushstyle => WS_MINIMIZEBOX | WS_SYSMENU,
);

my $LV_0 = $MW->AddListView(
 -name    => "LV_0",
 -size    => [300,500],
 -pos    => [6,6],
 -fullrowselect  => 1, # Select every colnum's row at the same time
 -hottrack   => 0, # Auto select item , don't click item
 -gridlines   => 1, # Draw the border for list table
 -checkboxes   => 0, # Show the check box on the every row start
 -singlesel   => 1,
 -oneclickactivate => 1, # Change the cursor to onecclick type while on the select item
 -editlabel   => 1, # Can be edit
 -visible   => 1,
 -nocolumnheader  => 0, # Hide the column header
);
my($Item,$SubItem);
my $Edit = Win32::GUI::Textfield->new(
 -parent   => $LV_0,
 -name   => 'Edit',
 -visible  => 0,
 -popexstyle  => WS_EX_CLIENTEDGE,
 -onLostFocus => sub {

  #Label isn't changed if user clicks off textfield
  my $self = shift;
  $self->Hide();
  return 1;
 },
 -onKeyDown => sub {
  my($self,$flags,$vkey) = @_;

  #Label is changed on RETURN key
  if($vkey == VK_RETURN){
   my $item = $LV_0->Item($Item);
   if($SubItem){
    my $sub = $item->SubItem($SubItem);
    $sub->Text($self->Text());
   }
   else {
    $item->Text($self->Text());
   }
   $self->Hide();
  }

  #Label isn't changed on ESCAPE key
  elsif($vkey == VK_ESCAPE){
   $self->Hide();
  }
  return 1;
 },
);

$LV_0->InsertColumn(
 -index => 1,
 -width => 150,
 -text => "Column_0",
);

$LV_0->InsertColumn(
 -index => 2,
 -width => 150,
 -text  => "Column_1",
);

for(0..100){
 $LV_0->InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf "subindex %03d", $_ ) ] );
}

$MW -> Show();
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{
 -1;
}

sub LV_0_MouseDblClick {
 my($x,$y,$flags) = @_;
 my($item, $subitem, $flag) = $LV_0->SubItemHitTest($x,$y);
 return 1 unless defined $item;
 my @rect;
 if($subitem){
  @rect = $LV_0->GetSubItemRect($item,$subitem);
 }
 else {
  @rect = $LV_0->GetItemRect($item);
 }
 $Edit->Show();
 $Edit->Left($rect[0]);
 $Edit->Top($rect[1]);
 $Edit->Width($rect[2]-$rect[0]);
 $Edit->Height($rect[3]-$rect[1]);
 $Edit->Text($LV_0->GetItemText($item,$subitem));
 $Edit->SelectAll();
 $Edit->SetFocus();
 $Item = $item;
 $SubItem = $subitem;
 return 1;
}

__END__

 

Hope this helps,

 

Kevin.
 


To: per...@li...
From: mil...@se...
Date: Thu, 19 Nov 2009 16:52:23 +0800
Subject: [perl-win32-gui-users] How to edit ListView subitem ?


Dear All : 

Does any one know how to let the ListView subitem can be edit ? 



Below is my sample code : 

#!perl 
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW', 
                                                                        -size       => [350,550], 
                                                                        -pos       =>  [250,125], 
                                                                        -text       => "Listview Example", 
                                                                        -font       => $font_T_8 , 
                                                       -style      => WS_MINIMIZEBOX | WS_SYSMENU, 
                                   ); 
                                                                


$LV_0 = $MW -> AddListView(      -name             => "LV_0", 
                                                                 -size             => [300,500], 
                                                                 -pos              => [6,6], 
                                                                 -fullrowselect    => 1,    # Select every colnum's row at the same time 
                                                                 -hottrack         => 0,    # Auto select item , don't click item 
                                 -gridlines        => 1,    # Draw the border for list table 
                                  -checkboxes       => 0,    # Show the check box on the every row start 
                                                                 -singlesel        => 1, 
                                  -oneclickactivate => 1,    # Change the cursor to onecclick type while on the select item 
                                  -editlabel        => 1,    # Can be edit 
                                  -visible          => 1,     
                                                                 -nocolumnheader   => 0,    # Hide the column header 
                                          ); 



$LV_0 -> InsertColumn( -index => 1, 
                                              -width => 150, 
                                              -text => "Column_0", 
                                          ); 


$LV_0 -> InsertColumn( -index => 2, 
                       -width => 150, 
                       -text  => "Column_1", 
                                         );                                                   

                                          
#$LV_1 = Win32::GUI::ListView::SubItem -> new( 
#                                              -parent    => $LV_0, 
#                                              -index     => 1, 
#                                              -subindex  => 1,                                                                                 
#                                                                                         );                                 

for(0..100){ 
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), ( sprintf "subindex% 03d", $_ ) ] ), "\n"; 
        } 



$MW -> Show();             
Win32::GUI::Dialog(); 
exit(0); 

sub MW_Terminate{ 

-1; 

} 

sub LV_0_DblClick{ 

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ; 
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() ); 

} 

sub LV_0_BeginLabelEdit{ 

print "BLabelEdit:", "@_", "\n"; 

} 

sub LV_0_EndLabelEdit{ 

print "ELabelEdit:", "@_", "\n"; 

} 

---End-- 

Best Regards 
Miller Chen 		 	   		  
_________________________________________________________________
Download new and classic emoticon packs at Emoticon World Brought to you exclusively by Windows Live
http://windowslive.ninemsn.com.au/emoticon.aspx?

[perl-win32-gui-users] Weird behaviour of combobox control

[Ilya B. <Ily...@so...>]

Hello guys,

 

Recently I've noticed a problem with combobox control. The control is created with following properties:

 

            $searchWindow->AddCombobox(

                        -name => "SearchField",

                        -autohscroll => 1,

                        -top => 4,

                        -default => 1,

                        -left => 4,

                        -width => 100,

                        -height => 200,

                        -dropdown => 1,

                        -hasstring => 1,

                        -align => "left");

 

I use this control as a search field (text field) with drop-down list of last searches. The problem is when user enters 10 digits into this field, application terminates. If there is any non-digit in the string, 10 characters or more fits with no problem. But if I type only digits it terminates after typing the 10th symbol. 

 

Win32::GUI v.1.06

ActiveState Perl 5.8.8

 

 

Don't you guys know if it's my problem or Win32::GUI's? Have you experience this problem in your apps?

 

Thank you!

 

 

Regards,
_____
Ilya Bandorin 



 

[perl-win32-gui-users] How to edit ListView subitem ?

[<mil...@se...>]

Dear All :

Does any one know how to let the ListView subitem can be edit ?



Below is my sample code :

#!perl
use Win32::GUI ; 

$MW = Win32::GUI::Window -> new(   -name       => 'MW',
 -size       => [350,550],
 -pos       =>  [250,125],
 -text       => "Listview Example",
 -font       => $font_T_8 ,
                                                       -style      => 
WS_MINIMIZEBOX | WS_SYSMENU,
                                   );
 


$LV_0 = $MW -> AddListView(      -name             => "LV_0",
                                                                 -size    
=> [300,500],
                                                                 -pos   => 
[6,6],
 -fullrowselect    => 1,    # Select every colnum's row at the same time
                                                                 -hottrack 
        => 0,    # Auto select item , don't click item
                                 -gridlines        => 1,    # Draw the 
border for list table
                                  -checkboxes       => 0,    # Show the 
check box on the every row start
 -singlesel        => 1,
                                  -oneclickactivate => 1,    # Change the 
cursor to onecclick type while on the select item
                                  -editlabel        => 1,    # Can be edit
                                  -visible          => 1, 
 -nocolumnheader   => 0,    # Hide the column header
                                          );



$LV_0 -> InsertColumn( -index => 1,
                                              -width => 150,
                                              -text => "Column_0",
                                          );


$LV_0 -> InsertColumn( -index => 2,
                       -width => 150,
                       -text  => "Column_1",
                                         );  

 
#$LV_1 = Win32::GUI::ListView::SubItem -> new(
#                                              -parent    => $LV_0,
#                                              -index     => 1,
#                                              -subindex  => 1,     
#        ); 

for(0..100){
     print $LV_0 -> InsertItem ( -text => [ ( sprintf "index %03d", $_ ), 
( sprintf "subindex% 03d", $_ ) ] ), "\n";
        }



$MW -> Show(); 
Win32::GUI::Dialog();
exit(0);

sub MW_Terminate{

-1;

}

sub LV_0_DblClick{

print "SelectedItem:", $LV_0 -> SelectedItems(), "\n" ;
$LV_0 -> EditLabel(  $LV_0 -> SelectedItems() );

}

sub LV_0_BeginLabelEdit{

print "BLabelEdit:", "@_", "\n";

}

sub LV_0_EndLabelEdit{

print "ELabelEdit:", "@_", "\n";

}

---End--

Best Regards
Miller Chen

Re: [perl-win32-gui-users] Win32 Gui Web site

[Kevin M. <kej...@ho...>]

Hey everyone,

 

I wouldn't mind contributing to the website with tutorials, code samples, documentation, etc. whenever I have some spare time.

 

Kevin.
 


Date: Wed, 21 Oct 2009 10:59:49 -0600
From: ste...@sh...
To: per...@li...
Subject: [perl-win32-gui-users] Win32 Gui Web site

Hi All,

I have been talking with Rob May about taking on the administration a web site for the Win32::Gui project. The current wiki no longer allows editing because of problems with spam, and the lack of time to get everything fixed.

I have been digging around and familiarizing myself with the offerings at sourceforge to see what might make a good base for the community. Sourceforge offers two interesting possibilities:
1. MediWiki Originally written for Wikipedia this is an excellent wiki product.
2. phpWebsite PhpWebsite is a content management system that allows the development of a full-featured web site, including (in the latest release) a wiki, blogging, and many other community-building features.

Personally I lean toward phpWebsite. I'd like to hear from people what they would like to see on a win32::Gui website/wiki, how many would be willing to contribute content, assist with site managment and maintenance, and so on.

Please reply to the list with your thoughts, comments and suggestions. 

Regards,

Steve


Steve Bondy
http://stevebondy.ca

 		 	   		  
_________________________________________________________________
Get Hotmail on your iPhone Find out how here
http://windowslive.ninemsn.com.au/article.aspx?id=845706

Re: [perl-win32-gui-users] Win32 Gui Web site

[Sean H. <jal...@ho...>]

merryxmas wrote:
> hi
> i suggest the scheme of questions and answers; such as:
> 
> 1- how to display a message box
>    answer: a complete small example with notes.
> 2- how to write text on a text box
> 3- how to retrieve text from a text box
> 4- how to color a word in a rich text box
> 5- how to retrieve the index of an item in a ListBox
> 6- how to use the trackbar, and the scrollbars
> 7- how to plot a pixel, a Line, ... , on a form or a picture box.

I think that's a good idea. People can propose questions to a 
coordinator, and a volunteer can answer the question, including code 
samples.

Of course, we could probably also harvest a bunch of the most frequently 
asked questions from the mailing list to start with.

I agree that an answer should, whenever possible, be a complete working 
example. (Preferably one that is as small as possible while still 
completely answering the question).

> and up to 1001 questions or more, with full answers, and notes.
> with sections for the totally beginners.

I would suggest a from-the-ground-up tutorial. The documentation doesn't 
provide much help there. When I was first learning, I had to spend hours 
looking through the source code and researching on MSDN to figure out 
how things work.

(I have not looked at the current wiki - perhaps it has already 
addressed this concern.)

Also, since wiki-spam has apparently been a problem in the past, I would 
recommend requiring registration to edit the wiki. I know that some 
wikis provide that option, although I don't know whether MediaWiki does 
so, since it was designed for the anybody-can-edit approach of Wikipedia.

If we do require registration to edit the wiki, we'll need a question 
submission form for those without editor rights.

Anyway, I am willing to provide some answers. I am a student with a 
heavy schedule this semester, but I'll do what I can. Exams will be in 
mid-January, and after that the next semester is supposed to be lighter 
on classes (although I'll have a major project I'll be working on from 
home).

Re: [perl-win32-gui-users] Win32 Gui Web site

[merryxmas <mer...@ya...>]

hi
i suggest the scheme of questions and answers; such as:

1- how to display a message box
   answer: a complete small example with notes.
2- how to write text on a text box
3- how to retrieve text from a text box
4- how to color a word in a rich text box
5- how to retrieve the index of an item in a ListBox
6- how to use the trackbar, and the scrollbars
7- how to plot a pixel, a Line, ... , on a form or a picture box.
and up to 1001 questions or more, with full answers, and notes.
with sections for the totally beginners.
and most important is to promote the site; as an example to post a message
to the famous www.perlmonks.com  forum about the new site.
a long term patience needed for such a project, and to focus on the new
comers to perl language from windows environment and the future beginers; to
show them that perl can be used in a fun projects in a million ways, and not
only for the administration of servers.
you may look at the yahoo groups, a good example and prototype is the the
site of BCX basic language http://tech.groups.yahoo.com/group/bcx/  wich is
still active from year 2000, only the members can post messages, from inside
the forum, and there are the ability to store files and programs; example of
the forum messages section from year 2000:
http://img195.imageshack.us/img195/6633/bcxa.jpg
the files section:
http://img196.imageshack.us/img196/5292/filesi.jpg
this is just a suggestion, to look at.
there is also the google groups.






Steve Bondy wrote:
> 
> Hi All,
> 
> I have been talking with Rob May about taking on the administration a web
> site for the Win32::Gui project. The current wiki no longer allows editing
> because of problems with spam, and the lack of time to get everything
> fixed.
> 
> I have been digging around and familiarizing myself with the offerings at
> sourceforge to see what might make a good base for the community.
> Sourceforge offers two interesting possibilities:
> 1. MediWiki Originally written for Wikipedia this is an excellent wiki
> product.
> 2. phpWebsite PhpWebsite is a content management system that allows the
> development of a full-featured web site, including (in the latest release)
> a wiki, blogging, and many other community-building features.
> 
> Personally I lean toward phpWebsite. I'd like to hear from people what
> they would like to see on a win32::Gui website/wiki, how many would be
> willing to contribute content, assist with site managment and maintenance,
> and so on.
> 
> Please reply to the list with your thoughts, comments and suggestions. 
> 
> Regards,
> 
> Steve
> 
> 
> Steve Bondy
> http://stevebondy.ca
> 
> 
> 
> ------------------------------------------------------------------------------
> Come build with us! The BlackBerry(R) Developer Conference in SF, CA
> is the only developer event you need to attend this year. Jumpstart your
> developing skills, take BlackBerry mobile applications to market and stay 
> ahead of the curve. Join us from November 9 - 12, 2009. Register now!
> http://p.sf.net/sfu/devconference
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
> 

-- 
View this message in context: http://www.nabble.com/Win32-Gui-Web-site-tp25996367p26007326.html
Sent from the perl-win32-gui-users mailing list archive at Nabble.com.