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

Re: [perl-win32-gui-users] creating a child window

[Robert M. <rob...@us...>]

On 20/06/07, Octavian Rasnita <ora...@gm...> wrote:
> I have tried to create a child window, but when I close it, the entire
> application closes.
>
> I open it with an option from the menu of the parent window that has
> a -onClick => \&Config, and I returned 0 or 1 from the sub Config {}
> subroutine, but the application still closes when closing that window.
>
> Are there any samples of using child windows? Or can you tell me how to do
> it?

I think you mean an owned window, and not a child window?  If so, then
there are examples in the demos (for example see the help menu option
in the NotifyIcon.pl demo).

You want the -onTerminate handler of the owned window to return 1 (by
default it returns -1, which exits the Dialog() processing).

If I'm mis-understanding you, then perhaps you could post a (small and
complete) example so that we can better understand what you are trying
to do.

Regards,
Rob.

Re: [perl-win32-gui-users] creating a child window

[Octavian R. <ora...@gm...>]

Where could that path be?
I tried to see if there is something in
d:\usr\eg
and
d:\usr\site\lib\Win32\GUI

...but I couldn't find examples for creating a child window.
I found only some samples in the demos directory but not for creating child 
windows.

Thank you.


From: <a98...@gm...>

> Hi,
>
> have a look at the examples in your perl-lib-path.
>
> j.
> -------- Original-Nachricht --------
> Datum: Wed, 20 Jun 2007 15:34:03 +0300
> Von: "Octavian Rasnita" <ora...@gm...>
> An: per...@li...
> Betreff: [perl-win32-gui-users] creating a child window
>
>> Hi,
>>
>> I have tried to create a child window, but when I close it, the entire
>> application closes.
>>
>> I open it with an option from the menu of the parent window that has
>> a -onClick => \&Config, and I returned 0 or 1 from the sub Config {}
>> subroutine, but the application still closes when closing that window.
>>
>> Are there any samples of using child windows? Or can you tell me how to 
>> do
>> it?
>>
>>
>> Thank you.
>>
>> Octavian
>>
>>
>> -------------------------------------------------------------------------
>> This SF.net email is sponsored by DB2 Express
>> Download DB2 Express C - the FREE version of DB2 express and take
>> control of your XML. No limits. Just data. Click to get it now.
>> http://sourceforge.net/powerbar/db2/
>> _______________________________________________
>> Perl-Win32-GUI-Users mailing list
>> Per...@li...
>> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>> http://perl-win32-gui.sourceforge.net/
>
> -- 
> Psssst! Schon vom neuen GMX MultiMessenger gehört?
> Der kanns mit allen: http://www.gmx.net/de/go/multimessenger 

Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu

[Jason P. <jp...@un...>]

Also, there may be no need to go the IPC/separation route if the service
itself does not actually do much processing...

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
darrik mazey
Sent: Wednesday, June 20, 2007 9:43 AM
To: per...@li...
Subject: Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu


Typically I separate the processes and write a service and a
controller.  The tray icon belongs to the controller and communicates
its desires to the service  as needed.  This seems like a clearer
approach than DoEvents(), although the IPC may be overkill if the tray
icon doesn't expose a lot of functionality.

~Darrik Mazey


> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...] On Behalf Of
> Geoffrey Spear
> Sent: Wednesday, June 20, 2007 8:40 AM
> To: a98...@gm...
> Cc: per...@li...
> Subject: Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu
>
> I'm not exactly clear on how you go about adding a tray icon with a
> Win32::Daemon since, if I understand correctly, the daemon runs in the
> background before a user is even logged in (which I'd assume is also
> the reason the daemon can't call Win32::GUI::Dialog).
>
> Is it possible to call Win32::GUI::DoEvents() in your daemon when it's
> needed and stop the loop that's calling it when your daemon is going
> back to acting like a daemon?
>
> Or would it make sense (it does to me, but then I'm a UNIX person by
> background) to have a completely separate process that handles user
> interaction with the daemon, which itself just runs in the background
> with no UI of its own?
>
> Geoffrey
>   


-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
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.5.472 / Virus Database: 269.9.1/854 - Release Date: 6/19/2007
1:12 PM

Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu

[darrik m. <da...@my...>]

Typically I separate the processes and write a service and a
controller.  The tray icon belongs to the controller and communicates
its desires to the service  as needed.  This seems like a clearer
approach than DoEvents(), although the IPC may be overkill if the tray
icon doesn't expose a lot of functionality.

~Darrik Mazey


> -----Original Message-----
> From: per...@li...
> [mailto:per...@li...] On Behalf Of
> Geoffrey Spear
> Sent: Wednesday, June 20, 2007 8:40 AM
> To: a98...@gm...
> Cc: per...@li...
> Subject: Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu
>
> I'm not exactly clear on how you go about adding a tray icon with a
> Win32::Daemon since, if I understand correctly, the daemon runs in the
> background before a user is even logged in (which I'd assume is also
> the reason the daemon can't call Win32::GUI::Dialog).
>
> Is it possible to call Win32::GUI::DoEvents() in your daemon when it's
> needed and stop the loop that's calling it when your daemon is going
> back to acting like a daemon?
>
> Or would it make sense (it does to me, but then I'm a UNIX person by
> background) to have a completely separate process that handles user
> interaction with the daemon, which itself just runs in the background
> with no UI of its own?
>
> Geoffrey
>   

Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu

[Jason P. <jp...@un...>]

Geoffrey, j.,

The problem is not that the program is running as a service, but that =
the
Win32::GUI::Dialog() function *DOES NOT RETURN* until told to do so... =
Minor
problem for a service :).=20

Geoff, you are right about Win32::GUI::DoEvents()! DoEvents() runs a =
single
cycle of messages off the windows message stack, and then returns =
control to
the calling routine. This can be used to nicely tell the message stack =
"Hey,
I've got like 5 seconds, make it quick" versus "Yo, message stack, what =
up"
and chatting for an hour. I've used it in the past as a method to
"demi-thread" and application (an IRC-type administrative bot) for =
socket
communication and GUI control. Ok, so if the message stack gets VERY =
VERY
LONG it might choke the service a bit, and if the service is performing =
some
ridiculously heavy task, the menu isn=92t going to respond at all, but
DoEvents is your function of choice without going into threading and =
message
passing. (Which doesn=92t sound hard... but its not the worlds prettiest =
site
in Win32::GUI, even if it does work nicely [THX ROB ;)])

-----Original Message-----
From: per...@li...
[mailto:per...@li...] On Behalf Of
Geoffrey Spear
Sent: Wednesday, June 20, 2007 8:40 AM
To: a98...@gm...
Cc: per...@li...
Subject: Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu

I'm not exactly clear on how you go about adding a tray icon with a
Win32::Daemon since, if I understand correctly, the daemon runs in the
background before a user is even logged in (which I'd assume is also
the reason the daemon can't call Win32::GUI::Dialog).

Is it possible to call Win32::GUI::DoEvents() in your daemon when it's
needed and stop the loop that's calling it when your daemon is going
back to acting like a daemon?

Or would it make sense (it does to me, but then I'm a UNIX person by
background) to have a completely separate process that handles user
interaction with the daemon, which itself just runs in the background
with no UI of its own?

Geoffrey

On 6/20/07, a98...@gm... <a98...@gm...> wrote:
> Hi,
>
> I've written a small windows-application with Win32::Daemon and added =
with
Win32::GUI a trayicon.
> It works fine and I can see the trayicon.
>
> But now I want to add a popupmenu to the trayicon which doesn't =
appear.
> Only if I call "Win32::GUI::Dialog();" the dialogboxes are shown, but =
the
service can't run with Dialog().
>
> What can I do?
>
> thx
> j.
>
> --
> Psssst! Schon vom neuen GMX MultiMessenger geh=F6rt?
> Der kanns mit allen: http://www.gmx.net/de/go/multimessenger
>
> =
-------------------------------------------------------------------------=

> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> 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
Geoffrey Spear
http://www.geoffreyspear.com/

-------------------------------------------------------------------------=

This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
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.=20
Version: 7.5.472 / Virus Database: 269.9.1/854 - Release Date: 6/19/2007
1:12 PM

Re: [perl-win32-gui-users] Service with Trayicon and Popup-menu

[Geoffrey S. <geo...@gm...>]

I'm not exactly clear on how you go about adding a tray icon with a
Win32::Daemon since, if I understand correctly, the daemon runs in the
background before a user is even logged in (which I'd assume is also
the reason the daemon can't call Win32::GUI::Dialog).

Is it possible to call Win32::GUI::DoEvents() in your daemon when it's
needed and stop the loop that's calling it when your daemon is going
back to acting like a daemon?

Or would it make sense (it does to me, but then I'm a UNIX person by
background) to have a completely separate process that handles user
interaction with the daemon, which itself just runs in the background
with no UI of its own?

Geoffrey

On 6/20/07, a98...@gm... <a98...@gm...> wrote:
> Hi,
>
> I've written a small windows-application with Win32::Daemon and added wit=
h Win32::GUI a trayicon.
> It works fine and I can see the trayicon.
>
> But now I want to add a popupmenu to the trayicon which doesn't appear.
> Only if I call "Win32::GUI::Dialog();" the dialogboxes are shown, but the=
 service can't run with Dialog().
>
> What can I do?
>
> thx
> j.
>
> --
> Psssst! Schon vom neuen GMX MultiMessenger geh=F6rt?
> Der kanns mit allen: http://www.gmx.net/de/go/multimessenger
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> 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
Geoffrey Spear
http://www.geoffreyspear.com/

Re: [perl-win32-gui-users] creating a child window

[<a98...@gm...>]

Hi,

have a look at the examples in your perl-lib-path.

j.
-------- Original-Nachricht --------
Datum: Wed, 20 Jun 2007 15:34:03 +0300
Von: "Octavian Rasnita" <ora...@gm...>
An: per...@li...
Betreff: [perl-win32-gui-users] creating a child window

> Hi,
> 
> I have tried to create a child window, but when I close it, the entire 
> application closes.
> 
> I open it with an option from the menu of the parent window that has 
> a -onClick => \&Config, and I returned 0 or 1 from the sub Config {} 
> subroutine, but the application still closes when closing that window.
> 
> Are there any samples of using child windows? Or can you tell me how to do
> it?
> 
> 
> Thank you.
> 
> Octavian
> 
> 
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

[perl-win32-gui-users] creating a child window

[Octavian R. <ora...@gm...>]

Hi,

I have tried to create a child window, but when I close it, the entire 
application closes.

I open it with an option from the menu of the parent window that has 
a -onClick => \&Config, and I returned 0 or 1 from the sub Config {} 
subroutine, but the application still closes when closing that window.

Are there any samples of using child windows? Or can you tell me how to do 
it?


Thank you.

Octavian

[perl-win32-gui-users] Service with Trayicon and Popup-menu

[<a98...@gm...>]

Hi,

I've written a small windows-application with Win32::Daemon and added with Win32::GUI a trayicon.
It works fine and I can see the trayicon.

But now I want to add a popupmenu to the trayicon which doesn't appear.
Only if I call "Win32::GUI::Dialog();" the dialogboxes are shown, but the service can't run with Dialog().

What can I do?

thx
j.

-- 
Psssst! Schon vom neuen GMX MultiMessenger gehört?
Der kanns mit allen: http://www.gmx.net/de/go/multimessenger

[perl-win32-gui-users] Is there a way to capture the endprint event

[Steve L. <sl...@ti...>]

I am using Win32::GUI::AxWindow to load an html page and print it.  
(http://www.perlmonks.org/?node_id=619374)

 

I am having trouble, however, knowing when the printer finishes printing 
so I can close my application.

 

Can anyone tell me how to capture the endPrint event using Perl? 
(https://msdn2.microsoft.com/en-us/library/system.drawing.printing.printdocument.endprint.aspx)

 

Thanks,

 

Steve

Re: [perl-win32-gui-users] how to make a menu to a notifyicon

[Geoffrey S. <geo...@gm...>]

Here's some brief sample code that should give you an idea of how this is done:
# create the menu with stuff you want to show up in the menu on the 2nd level
my $pmenu = Win32::GUI::MakeMenu (
                                  "Popup" => "Popup",
				  "> &Preferences" => "Prefs",
				  "> &Quit" => {
						-name => "Quit",
						-onClick => sub {
						  return -1;
						}},
					
				  "> &Show Window" => {
						       -name => "Showwindow",
						       -onClick => sub{
							 $window->Enable();
							 $window->Show();
							 return 1;
						       }},
);

# then in the notifyicon, use the menu in the RightClick event:
      my $notifyicon = $window->AddNotifyIcon (
					       -name => "ni",
					       -icon => $useicon,
					       -tip => "whatever your icon does",
					         -onRightClick => sub {
						 $window->TrackPopupMenu($pmenu->{Popup});
					       },
					      );


On 6/18/07, a98...@gm... <a98...@gm...> wrote:
> Hi,
>
> I want to make a short menu which appears after right-clicking on my notifyicon. is this possible? how can I make it?
> the right-click-event works fine.
>
>
> thx
> j.
>
> --
> GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
> Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> http://perl-win32-gui.sourceforge.net/
>


-- 
Geoffrey Spear
http://www.geoffreyspear.com/

[perl-win32-gui-users] how to make a menu to a notifyicon

[<a98...@gm...>]

Hi,

I want to make a short menu which appears after right-clicking on my notifyicon. is this possible? how can I make it?
the right-click-event works fine.


thx
j.

-- 
GMX FreeMail: 1 GB Postfach, 5 E-Mail-Adressen, 10 Free SMS.
Alle Infos und kostenlose Anmeldung: http://www.gmx.net/de/go/freemail

Re: [perl-win32-gui-users] memory management and Win32: :GUI

[pcourterelle <pco...@te...>]

The mistake is most definitely mine...Once I started dissecting the script I 
determined the memory surge was coming from a different module I was using 
and how I was importing data with it...I realized as Robert states below 
that the loading the Win32::GUI DLL takes about 6 mb and after that it's 
quite minimal....My apologies..

phil


----- Original Message ----- 
From: "Robert May" <rob...@us...>
To: <per...@li...>
Cc: <pco...@te...>; <jez...@ho...>
Sent: Wednesday, June 13, 2007 5:35 PM
Subject: Re: [perl-win32-gui-users] memory management and Win32: :GUI


>> From: "pcourterelle" <pco...@te...>
>> I've created several some simple scripts with Win32::GUI where there is
>> little more than a window, button and listview and the script is using 6 
>> MB
>> of memory. The memory usage increase dramatically each time a button is
>> clicked or the listview is populated. (the buttons do nothing more than
>> insert a static text item into the listview  - literally "bob" The memory
>> usuage never seems to decrease dynamically when the listview is reset.
>
> On 13/06/07, jez...@ho... <jez...@ho...> wrote:
>> Assuming you are using the latest version of Win32:GUI you don't need to 
>> do
>> anything special regarding memory management. When objects go out of 
>> scope
>> all memory and resources are released. Something else is going on - can 
>> you
>> post an example?
>
> I might believe the 6MB, depending on what figure you're quoting as
> 'memory usage'.  On the Win98 box I have in front of me, for a single
> blank window I get the follwoing figures (from WinTop):
>
> Allocated:   2632K    3984K
> In memory: 1080K    3032K
> In use:         848K    2408K
>
> That's close on 6MB of allocated memory - most of which is due to the
> DLL's that are loaded:
>
> Name                     Size
> ADVAPI32.DLL     0x10000 Win32 ADVAPI32 core component
> COMCTL32.DLL    0x88000 Common Controls Library
> COMDLG32.DLL   0x2D000 Common Dialogs DLL
> Cwd.dll                   0x5000 Perl Cwd
> GDI32.DLL            0x26000 Win32 GDI Core component
> GUI.dll                 0xBD000 Perl Win32::GUI
> KERNEL32.DLL    0x7A000 Win32 Kernel core component
> MSVCRT.DLL       0x46000 Microsoft C Runtime Library
> perl.exe                 0xB000 Perl.exe
> perl58.dll              0xC6000 Perl core DLL
> SHELL32.DLL     0x155000 Win32 Shell common Dll
> SHLWAPI.DLL      0x66000 Shell light-weight Dll
> USER32.DLL        0x11000 Win32 USER32 core component
> VERSION.DLL        0x6000 Win32 VERSION core component
>
> But I agree with Jez that if you're seeing significant (and you don't
> say what you think significant is) increases when clicking a button,
> then that doesn't sound right.  Some (simple) code that exhibits the
> problem, some information on what tool you're using to measure the
> memory usage, and the figures that you see would allow us to see if
> we're seeing the same problem.
>
> Regards,
> Rob.
> 

Re: [perl-win32-gui-users] Tabstrip and clusters issue

[Robert M. <rob...@us...>]

On 10/06/07, Brian Rowlands (Greymouth High School)
<Row...@gr...> wrote:
> I have a tabstrip with several tabs and a cluster that should appear on tab
> index 3 only. When the gui runs the the cluster shows on index 0 which is
> the default tab on opening whereas it should be invisible on that tab. If I
> click on tab index 4, say, tab index 4 appears correctly and when I go back
> to tab index 0 that is now correct i.e the cluster is not showing. I've
> tried setting the focus to another tab on opening but the cluster that
> should be invisible except when on tab index 3 still appears at the startup.

Brian,

You don't say, but I think if you are talking about clusters, then
you're refering to a module distributed with the gui loft - I've never
used it, and so can't help.  I don't know how many gui loft users we
have reading this list, but you might get a better response from the
gui loft's list - details at http://user.bahnhof.se/~johanl/perl/Loft/

Regards,
Rob.

Re: [perl-win32-gui-users] memory management and Win32: :GUI

[Robert M. <rob...@us...>]

> From: "pcourterelle" <pco...@te...>
> I've created several some simple scripts with Win32::GUI where there is
> little more than a window, button and listview and the script is using 6 MB
> of memory. The memory usage increase dramatically each time a button is
> clicked or the listview is populated. (the buttons do nothing more than
> insert a static text item into the listview  - literally "bob" The memory
> usuage never seems to decrease dynamically when the listview is reset.

On 13/06/07, jez...@ho... <jez...@ho...> wrote:
> Assuming you are using the latest version of Win32:GUI you don't need to do
> anything special regarding memory management. When objects go out of scope
> all memory and resources are released. Something else is going on - can you
> post an example?

I might believe the 6MB, depending on what figure you're quoting as
'memory usage'.  On the Win98 box I have in front of me, for a single
blank window I get the follwoing figures (from WinTop):

Allocated:   2632K    3984K
In memory: 1080K    3032K
In use:         848K    2408K

That's close on 6MB of allocated memory - most of which is due to the
DLL's that are loaded:

Name                     Size
ADVAPI32.DLL     0x10000 Win32 ADVAPI32 core component
COMCTL32.DLL    0x88000 Common Controls Library
COMDLG32.DLL   0x2D000 Common Dialogs DLL
Cwd.dll                   0x5000 Perl Cwd
GDI32.DLL            0x26000 Win32 GDI Core component
GUI.dll                 0xBD000 Perl Win32::GUI
KERNEL32.DLL    0x7A000 Win32 Kernel core component
MSVCRT.DLL       0x46000 Microsoft C Runtime Library
perl.exe                 0xB000 Perl.exe
perl58.dll              0xC6000 Perl core DLL
SHELL32.DLL     0x155000 Win32 Shell common Dll
SHLWAPI.DLL      0x66000 Shell light-weight Dll
USER32.DLL        0x11000 Win32 USER32 core component
VERSION.DLL        0x6000 Win32 VERSION core component

But I agree with Jez that if you're seeing significant (and you don't
say what you think significant is) increases when clicking a button,
then that doesn't sound right.  Some (simple) code that exhibits the
problem, some information on what tool you're using to measure the
memory usage, and the figures that you see would allow us to see if
we're seeing the same problem.

Regards,
Rob.

Re: [perl-win32-gui-users] Radio Buttons

[Robert M. <rob...@us...>]

On 13/06/07, Brian Rowlands (Greymouth High School)
<Row...@gr...> wrote:
> I've a design with 8 radio buttons named rb7, rb8, =85 rb14. What I want =
to do
> is determine which one has the focus. Can someone pease help me find an
> efficient way to do this please?

Two was that I can think to do it.  First calls GetFocus(); Second
catches the radio button
getting the focus.

Regards,
Rob.

#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $mw =3D Win32::GUI::DialogBox->new(
    -size =3D> [400,300],
    -onTimer =3D> \&who_has_focus,
);

$mw->AddRadioButton(
    -name =3D> "rb$_",
    -top  =3D> $_ * 20,
    -left =3D> 10,
    -text =3D> 'Something',
    -tabstop =3D> 1,
) for (1..8);

$mw->AddTimer('T1', 1000);

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

sub who_has_focus {

    # GetFocus() gives us the window handle of the
    # window in the current thread that has focus,
    # or 0 if there isn't one.
    my $hwnd_focus =3D Win32::GUI::GetFocus();

    # GetWindowObject() retrieves the perl object
    # from the window handle - this function is documented
    # as INTERNAL, but is the easiest way to go from a
    # window handle back to the object - if you don't want to
    # use this internal function, then it would be possible to
    # walk the object tree to find the object with that handle,
    # but that would require understanding the internal object
    # structure anyway ...
    my $win_focus =3D Win32::GUI::GetWindowObject($hwnd_focus);

    if ($win_focus) {
        # Finally we pull the name from the object - we shouldn't
        # access the internals of the object like this, but there
        # is no GetName() method.
        my $name =3D $win_focus->{-name};

        # and we need to check that the name is one of the ones
        # we want, as there could be other controls on the window
        # that could have focus
        print "$name has focus.\n" if $name =3D~ /^rb/;
    }

    return;
}
__END__

#!perl -w
use strict;
use warnings;

use Win32::GUI();

my $mw =3D Win32::GUI::DialogBox->new(
    -size =3D> [400,300],
);

$mw->AddRadioButton(
    -name       =3D> "rb$_",
    -top        =3D> $_ * 20,
    -left       =3D> 10,
    -text       =3D> 'Something',
    -tabstop    =3D> 1,
    -notify     =3D> 1,    # Required (see BN_SETFOCUS on MSDN)
    -onGotFocus =3D> \&has_focus,
) for (1..8);

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

sub has_focus {
    my ($self) =3D @_;

    # pull the name from the object - we shouldn't
    # access the internals of the object like this, but there
    # is no GetName() method.
    my $name =3D $self->{-name};
    print "$name got focus.\n";

    return;
}
__END__

[perl-win32-gui-users] Radio Buttons

[Brian R. (G. H. School) <Row...@gr...>]

Hi folks
I've a design with 8 radio buttons named rb7, rb8, ... rb14. What I want
to do is determine which one has the focus. Can someone pease help me
find an efficient way to do this please?

Appreciate any help you can offer.


Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20

Re: [perl-win32-gui-users] memory management and Win32: :GUI

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

Hi,

Assuming you are using the latest version of Win32:GUI you don't need to do anything special regarding memory management. When objects go out of scope all memory and resources are released. Something else is going on - can you post an example?

Cheers,

Jeremy.



-----Original Message-----
From: "pcourterelle" <pco...@te...>
To: "per...@li..." <per...@li...>
Sent: 12/06/07 22:30
Subject: [perl-win32-gui-users] memory management and Win32: :GUI

Are there any special requirements for memory management when using Perl 
Win32::GUI?

I've created several some simple scripts with Win32::GUI where there is 
little more than a window, button and listview and the script is using 6 MB 
of memory. The memory usage increase dramatically each time a button is 
clicked or the listview is populated. (the buttons do nothing more than 
insert a static text item into the listview  - literally "bob" The memory 
usuage never seems to decrease dynamically when the listview is reset.

I'm certainly no expert but this does not seem right.

Thanks

Phil 



-------------------------------------------------------------------------
This SF.net email is sponsored by DB2 Express
Download DB2 Express C - the FREE version of DB2 express and take
control of your XML. No limits. Just data. Click to get it now.
http://sourceforge.net/powerbar/db2/
_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
http://perl-win32-gui.sourceforge.net/

[perl-win32-gui-users] Tabstrip and clusters issue

[Brian R. (G. H. School) <Row...@gr...>]

Hi
I have a tabstrip with several tabs and a cluster that should appear on
tab index 3 only. When the gui runs the the cluster shows on index 0
which is the default tab on opening whereas it should be invisible on
that tab. If I click on tab index 4, say, tab index 4 appears correctly
and when I go back to tab index 0 that is now correct i.e the cluster is
not showing. I've tried setting the focus to another tab on opening but
the cluster that should be invisible except when on tab index 3 still
appears at the startup.

Can someone offer some help please?

Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20

[perl-win32-gui-users] memory management and Win32::GUI

[pcourterelle <pco...@te...>]

Are there any special requirements for memory management when using Perl 
Win32::GUI?

I've created several some simple scripts with Win32::GUI where there is 
little more than a window, button and listview and the script is using 6 MB 
of memory. The memory usage increase dramatically each time a button is 
clicked or the listview is populated. (the buttons do nothing more than 
insert a static text item into the listview  - literally "bob" The memory 
usuage never seems to decrease dynamically when the listview is reset.

I'm certainly no expert but this does not seem right.

Thanks

Phil 

Re: [perl-win32-gui-users] help on win32::guitest

[Jason P. <jp...@un...>]

Sure thing!

 

Look into the Win32::GUI::SendMessage() routines :-) Ok, so you will have to
find that window's button's id. but its doable :)

 

 

Jason

 

  _____  

From: per...@li...
[mailto:per...@li...] On Behalf Of
Jishnupraveen gira
Sent: Wednesday, June 06, 2007 4:45 PM
To: per...@li...
Subject: [perl-win32-gui-users] help on win32::guitest

 

Hi All,

 

I have got a window application which has got a  command button. I want to
click this command button programmatically. But I  want the application to
remain in the background or in minimised state.

 

If i am using the sendkeys method i have to bring the window to foreground.

 

Is it still possible for me to do this keeping the application in the
background/minimise?

 

Please pour in with ur valuable advice.

 

regards,

jis

[perl-win32-gui-users] help on win32::guitest

[Jishnupraveen g. <jis...@gm...>]

Hi All,

I have got a window application which has got a  command button. I want to
click this command button programmatically. But I  want the application to
remain in the background or in minimised state.

If i am using the sendkeys method i have to bring the window to foreground.

Is it still possible for me to do this keeping the application in the
background/minimise?

Please pour in with ur valuable advice.

regards,
jis

Re: [perl-win32-gui-users] Deprecated Constants

[Octavian R. <ora...@gm...>]

Hi,

Where can we find details about all those constants?
(I hope not on MSDN. :-)

Thanks.

Octavian

----- Original Message ----- 
From: "Robert May" <rob...@us...>
To: "Brian Rowlands (Greymouth High School)" <Row...@gr...>
Cc: <per...@li...>
Sent: Tuesday, June 05, 2007 11:32 PM
Subject: Re: [perl-win32-gui-users] Deprecated Constants


> On 05/06/07, Brian Rowlands (Greymouth High School)
> <Row...@gr...> wrote:
>> I've written my first GUI using The GUI Loft and all works fine except I 
>> get
>> the following warnings:
>>
>> 'use Win32::GUI;' is currently exporting constants into the callers 
>> scope.
>> This functionality is deprecated. Use 'use Win32::GUI();' or list your
>> required exports explicitly instead. at
>> C:/Perl/site/lib/Win32/GUI/Loft/Design.pm line 31
>> C:/Perl/site/lib/Win32/GUI/ToolbarWindow.pm line 23
>> C:/Perl/site/lib/Win32/GUI/BorderlessWindow.pm line 24
>> C:/Perl/site/lib/Win32/GUI/Loft/Cluster.pm line 21
>> C:/Perl/site/lib/Win32/GUI/AdHoc.pm line 31
>> C:/Perl/site/lib/Win32/GUI/Loft/Control/ListView.pm line 22
>> C:/Perl/site/lib/Win32/GUI/Loft/Control/TabStrip.pm line 23
>> C:/Perl/site/lib/Win32/GUI/TabStripGroup.pm line 25
>> C:/Perl/site/lib/Win32/GUI/HyperLink.pm line 6
>>
>> Q1: Can someone advise as to the best way to overcome this issue please 
>> or
>> must I just turn off warnings using:
>>        no warnings 'deprecated';
>
> That's the easiest way, but it only masks the problem.  We're in a
> deprecation cycle, and in one of the next releases Win32::GUI will
> stop exporting the constants by default, and then if any of these
> modules rely on the constants being exported, they will fail.
>
> The best solution is to bug the module authors (and I'm the
> Win32::GUI::HyperLink author) to fix their modules; or better yet
> provide them with patches.
>
>> BTW, SourceForge say to either
>> A) use Win32::GUI(); when not using constants
>> B) explicitly name them if you are using constants
>>
>> Q2: Since constants are being used how do I tell what need to be named?
>
> If all the modules have
>  use strict;
> near the start, then just change the
>  use Win32::GUI;
> line to
> use Win32::GUI qw();
> and re-run you script - it will fail to compile for each constant, and add 
> it
> use Win32::GUI qw(YOUR_CONSTANT_HERE);
>
> If a module doesn't 'use strict' then it's harder, and you'll have to
> look through the code for the constants.
>
> An (easier) alternative is to change each
>  use Win32::GUI;
> line into
>  use Win32::GUI qw(:compatibility_win32_gui)
> which will cause Win32::GUI to keep exporting the 300+ constants into
> the caller's namespace without warning.  But this doesn't really solve
> the problem either ....
>
> Regards,
> Rob.
>
> -------------------------------------------------------------------------
> This SF.net email is sponsored by DB2 Express
> Download DB2 Express C - the FREE version of DB2 express and take
> control of your XML. No limits. Just data. Click to get it now.
> http://sourceforge.net/powerbar/db2/
> _______________________________________________
> 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] Deprecated Constants

[Robert M. <rob...@us...>]

On 05/06/07, Brian Rowlands (Greymouth High School)
<Row...@gr...> wrote:
> I've written my first GUI using The GUI Loft and all works fine except I get
> the following warnings:
>
> 'use Win32::GUI;' is currently exporting constants into the callers scope.
> This functionality is deprecated. Use 'use Win32::GUI();' or list your
> required exports explicitly instead. at
> C:/Perl/site/lib/Win32/GUI/Loft/Design.pm line 31
> C:/Perl/site/lib/Win32/GUI/ToolbarWindow.pm line 23
> C:/Perl/site/lib/Win32/GUI/BorderlessWindow.pm line 24
> C:/Perl/site/lib/Win32/GUI/Loft/Cluster.pm line 21
> C:/Perl/site/lib/Win32/GUI/AdHoc.pm line 31
> C:/Perl/site/lib/Win32/GUI/Loft/Control/ListView.pm line 22
> C:/Perl/site/lib/Win32/GUI/Loft/Control/TabStrip.pm line 23
> C:/Perl/site/lib/Win32/GUI/TabStripGroup.pm line 25
> C:/Perl/site/lib/Win32/GUI/HyperLink.pm line 6
>
> Q1: Can someone advise as to the best way to overcome this issue please or
> must I just turn off warnings using:
>        no warnings 'deprecated';

That's the easiest way, but it only masks the problem.  We're in a
deprecation cycle, and in one of the next releases Win32::GUI will
stop exporting the constants by default, and then if any of these
modules rely on the constants being exported, they will fail.

The best solution is to bug the module authors (and I'm the
Win32::GUI::HyperLink author) to fix their modules; or better yet
provide them with patches.

> BTW, SourceForge say to either
> A) use Win32::GUI(); when not using constants
> B) explicitly name them if you are using constants
>
> Q2: Since constants are being used how do I tell what need to be named?

If all the modules have
  use strict;
near the start, then just change the
  use Win32::GUI;
line to
 use Win32::GUI qw();
and re-run you script - it will fail to compile for each constant, and add it
 use Win32::GUI qw(YOUR_CONSTANT_HERE);

If a module doesn't 'use strict' then it's harder, and you'll have to
look through the code for the constants.

An (easier) alternative is to change each
  use Win32::GUI;
line into
  use Win32::GUI qw(:compatibility_win32_gui)
which will cause Win32::GUI to keep exporting the 300+ constants into
the caller's namespace without warning.  But this doesn't really solve
the problem either ....

Regards,
Rob.

[perl-win32-gui-users] Deprecated Constants

[Brian R. (G. H. School) <Row...@gr...>]

Hi nice people

I've written my first GUI using The GUI Loft and all works fine except I
get the following warnings:

'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/Loft/Design.pm line 31
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/ToolbarWindow.pm line 23
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/BorderlessWindow.pm line 24
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/Loft/Cluster.pm line 21
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/AdHoc.pm line 31
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/Loft/Control/ListView.pm line 22
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/Loft/Control/TabStrip.pm line 23
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/TabStripGroup.pm line 25
'use Win32::GUI;' is currently exporting constants into the callers
scope. This functionality is deprecated. Use 'use Win32::GUI();' or list
your required exports explicitly instead. at
C:/Perl/site/lib/Win32/GUI/HyperLink.pm line 6

Q1: Can someone advise as to the best way to overcome this issue please
or must I just turn off warnings using:
      no warnings 'deprecated';

BTW, SourceForge say to either

A) use Win32::GUI(); when not using constants

B) explicitly name them if you are using constants=20

Q2: Since constants are being used how do I tell what need to be named?

Thanks
Brian Rowlands
We must accept finite disappointment, but we must never lose infinite
hope.
Martin Luther King Jr. </quotes/k/martinlutherking/> =20