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

Re: [perl-win32-gui-users] Installing win32-gui

[Robert T. <rob...@an...>]

I can't get the Jenda repository to work either.  In fact I can't install 
from any repositories either ppm or ppm3 from the Activestate Perl 
distribution.  Though I can view their contents (when logged in as a 
user).
ppm won't even accept the command "search *" it gives "invalid 
regular expression" even though this is given as an example in the 
manual.
ppm3 won't even start it complains about the lack of existance of 
some registry keys.

Does anyone know if PPM uses a strange port no. that maybe 
normally blocked.  If not then considering that 3 other people have 
had problems with ppm the only reasonable explaination is that 
ppm is too flaky to be useful.  I have never had problems like this 
even building stuff from source.

I'm sure many people besides myself would appreciate it if 
someone put binary Win32::GUI on a website in downloadable form 
(eg .tar.gz).  Saving us from stuff like ppm that gives open-source a 
bad name.
The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

Re: [perl-win32-gui-users] Installing win32-gui

[Jonathan S. <jso...@al...>]

I too had problems when I recently tried to install Win32::GUI onto my 
Win98 machine.  The problem was that was either a problem with the outside 
routers or something on Aldo's site, but I doubt it was a problem with the 
latter.  I discovered this by going directly to http://dada.perl.it in my 
web browser.  When I did this I did not get Aldo's Perl Site but some 
Telecommunications site .. weird huh?

I tried later by doing the following:

ppm install --location=http://dada.perl.it/PPM Win32-GUI

and it worked just fine!!!!  I would recommend you first try to browse to 
the http://dada.perl.it site and see what you get.  If you get Aldo's Perl 
site then try the ppm install I showed, otherwise you have bigger problems.

Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755

At 11/23/2001 02:32 PM, you wrote:
>I too am unable to install Win32::GUI.  The error message I keep
>getting from PPM is: "Error installing package 'Win32::GUI': Could
>not locate a PPD file for package Win32::GUI".  I'm using WinNT 4.0,
>so my problem is unrelated to Windows 2000. Is the repository
>missing a PPD file?
>
>- Walt Joyce
>
>----- Original Message -----
>From: "Marcus" <li...@wo...>
>To: <per...@li...>
>Sent: Friday, November 23, 2001 1:59 PM
>Subject: Re: [perl-win32-gui-users] Installing win32-gui
>
>
> >The only conclusion I can come too is that ppm is broken under
> >Windows 2000, is there a ppm mailing list that I can consult?
>
>Only the main ActiveState win32-perl-users list.
>
>I had difficulties with PPM too. You could try PPM3. It's beta, but
>it's a complete rewrite of PPM. You have to install it separately.
>It
>could also be that dada.it is down at the moment.
>
>Marcus

[perl-win32-gui-users] Installing Win32-GUI

[Mark E. D. <ma...@ri...>]

-----BEGIN PGP SIGNED MESSAGE-----
Hash: SHA1

First thing is PPM works just fine on Windows 2000, so that is not
your problem.
Second thing, you are correct, there is a problem with the //dada
site, so don't use it until it is fixed.  You can get Win32-GUI from
the Jenda Repository 
http://jenda.krynicky.cz/perl/ and it will install just fine.  Follow
these instructions:

- From the command line:
1. ppm
2. ppm> set repository Jenda http://jenda.krynicky.cz/perl/
3. ppm> set save
4. ppm> install Win32-GUI

Now you are in business.

-----BEGIN PGP SIGNATURE-----
Version: PGPfreeware 6.5.8 for non-commercial use <http://www.pgp.com>

iQA/AwUBO/7pyYZ0Aw1906FhEQLiHACgtMrSSsWmMXsYxyi3nbYeCoJOJm8AnjvB
LpqVO88h4/UXNCxhSl8tEXyV
=12z1
-----END PGP SIGNATURE-----

Re: [perl-win32-gui-users] Installing win32-gui

[Walter J. <wj...@be...>]

I too am unable to install Win32::GUI.  The error message I keep
getting from PPM is: "Error installing package 'Win32::GUI': Could
not locate a PPD file for package Win32::GUI".  I'm using WinNT 4.0,
so my problem is unrelated to Windows 2000. Is the repository
missing a PPD file?

- Walt Joyce

----- Original Message -----
From: "Marcus" <li...@wo...>
To: <per...@li...>
Sent: Friday, November 23, 2001 1:59 PM
Subject: Re: [perl-win32-gui-users] Installing win32-gui


>The only conclusion I can come too is that ppm is broken under
>Windows 2000, is there a ppm mailing list that I can consult?

Only the main ActiveState win32-perl-users list.

I had difficulties with PPM too. You could try PPM3. It's beta, but
it's a complete rewrite of PPM. You have to install it separately.
It
could also be that dada.it is down at the moment.

Marcus



_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

Re: [perl-win32-gui-users] Installing win32-gui

[Marcus <li...@wo...>]

>The only conclusion I can come too is that ppm is broken under 
>Windows 2000, is there a ppm mailing list that I can consult?

Only the main ActiveState win32-perl-users list.

I had difficulties with PPM too. You could try PPM3. It's beta, but
it's a complete rewrite of PPM. You have to install it separately. It
could also be that dada.it is down at the moment.

Marcus

Re: [perl-win32-gui-users] Installing win32-gui

[Robert T. <rob...@an...>]

On 23 Nov 2001, at 17:20, Marcus wrote:

> On 23.11.01 at 15:11 Robert Thorpe wrote:
> 
> >I've tried that and it doesn't work either:
> >
> >C:\>ppm install --location=http://dada.perl.it/PPM Win32::GUI
> 
> I meant adding the repository, which is the way described on the page.
> I don't know what the difference is, but what worked for me was PPM's
> interactive mode, rather than from the command line:
> 
> set repository ...
> 
> then
> 
> install ...
> 
> if it still uses the old ActiveState module, then you could remove that
> one first.
> 
> Marcus

I've tried that as well, it also doesn't work, I've even collared an 
adminstrator at my place of work and tried it as root and it still 
doesn't work.  Neither does the activestate ppm repository.

I suspect ppm is the problem at least in the later case.  I have 
difficultly believing that the address http://dada.perl.it/PPM/ works 
because it produces error 403: forbidden when viewed through a 
web-browser.  There again I don't know how ppm works and this 
maybe a perfectly normal error.

The only conclusion I can come too is that ppm is broken under 
Windows 2000, is there a ppm mailing list that I can consult?


The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

Re: [perl-win32-gui-users] Installing win32-gui

[Marcus <li...@wo...>]

On 23.11.01 at 15:11 Robert Thorpe wrote:

>I've tried that and it doesn't work either:
>
>C:\>ppm install --location=http://dada.perl.it/PPM Win32::GUI

I meant adding the repository, which is the way described on the page.
I don't know what the difference is, but what worked for me was PPM's
interactive mode, rather than from the command line:

set repository ...

then

install ...

if it still uses the old ActiveState module, then you could remove that
one first.

Marcus

Re: [perl-win32-gui-users] Installing win32-gui

[Robert T. <rob...@an...>]

I've tried that and it doesn't work either:

C:\>ppm install --location=http://dada.perl.it/PPM Win32::GUI
Installing package 'Win32-GUI'...
mkdir C:\DOCUME~1\ADMINI~1\LOCALS~1: File exists at 
C:/Perl/site/lib/PPM.pm line 314

I'm using windows 2000 so the command ppm is try to execute:
mkdir C:\DOCUME~1\ADMINI~1\LOCALS~1
is nonsense

Does PPM work under Windows 2000?

I'd appreciate any further ideas anyone has.

On 22 Nov 2001, at 22:13, Marcus wrote:

> On 22.11.01 at 17:19 Robert Thorpe wrote:
> >I have downloaded the source files for 0.0.558 from 
> >http://dada.perl.it
> 
> Go to the same site and follow the instructions for using PPM with
> that, Aldo's, site. You just add his repository to PPM.
> 
> Last time I installed Win32::GUI, ActiveState had an old version still,
> so it's better to use Aldo's repository.
> 
> Marcus
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 
The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

Re: [perl-win32-gui-users] Installing win32-gui

[Marcus <li...@wo...>]

On 22.11.01 at 17:19 Robert Thorpe wrote:
>I have downloaded the source files for 0.0.558 from 
>http://dada.perl.it

Go to the same site and follow the instructions for using PPM with
that, Aldo's, site. You just add his repository to PPM.

Last time I installed Win32::GUI, ActiveState had an old version still,
so it's better to use Aldo's repository.

Marcus

[perl-win32-gui-users] Installing win32-gui

[Robert T. <rob...@an...>]

How is Win32::Gui supposed to be installed?

I have downloaded the source files for 0.0.558 from 
http://dada.perl.it
and untared them into a directory.  I have tried running Makefile.PL 
with two different perl distributions, Activeperl 5.6 and Cygwin perl 
5.6.  Both produce warnings:

Note (probably harmless): No library found for 'comctl32.lib'
Note (probably harmless): No library found for 'oldnames.lib'
Note (probably harmless): No library found for 'kernel32.lib'
Note (probably harmless): No library found for 'user32.lib'
Note (probably harmless): No library found for 'gdi32.lib'
Note (probably harmless): No library found for 'winspool.lib'
Note (probably harmless): No library found for 'comdlg32.lib'
Note (probably harmless): No library found for 'advapi32.lib'
Note (probably harmless): No library found for 'shell32.lib'
Note (probably harmless): No library found for 'ole32.lib'
Note (probably harmless): No library found for 'oleaut32.lib'
Note (probably harmless): No library found for 'netapi32.lib'
Note (probably harmless): No library found for 'uuid.lib'
Note (probably harmless): No library found for 'wsock32.lib'
Note (probably harmless): No library found for 'mpr.lib'
Note (probably harmless): No library found for 'winmm.lib'
Note (probably harmless): No library found for 'version.lib'
Note (probably harmless): No library found for 'odbc32.lib'
Note (probably harmless): No library found for 'odbccp32.lib'
Note (probably harmless): No library found for 'msvcrt.lib'
Writing Makefile for Win32::GUI

Ive tried using Makefile.PL USERESOURCE=0 too

Running the generated Makefile with Cygwin GCC produces:

Makefile:303: *** multiple target patterns.  Stop.

Which contains the lines:

.xs.cpp:
    $(PERL) -I$(PERL_ARCHLIB) -I$(PERL_LIB) $(XSUBPP) 
$(XSPROTOARG) $(XSUBPPARGS) $*.xs >xstmp.c && $(MV) 
xstmp.c $*.cpp

Is this because Win32::Gui can only be compiled using MSVC?
If so is it possible to obtain binaries (the link to activestates archive 
on http://dada.perl.it doesn't work)?

The information in this e-mail is for use by the addressee(s) only. If you 
are not the intended recipient, please notify us immediately and delete the 
message from your computer. No liability or responsibility is accepted for 
viruses and it is your responsibility to scan attachments (if any). 
Opinions and views expressed in this email are those of the sender and 
do not reflect the opinions and views of antenova Ltd.

[perl-win32-gui-users] Listbox and Checkbox problem

[Marc F. <mfi...@er...>]

Hi,

I search for a solution to check some checkboxes in a ListView.
In the object TreeView there is a method ItemCheck(NODE,[VALUE])
is there no way to do this in a ListView.

Marc

RE: [perl-win32-gui-users] where find guibuilder ?

[Peter E. <Pet...@at...>]

I've not heard of GUI Builder. Does it do what it sounds like, has a GUI
interface to help design a Win32::GUI window by (hopefully) allowing the
user to dragndrop widgets onto a window and it converts it to the
appropriate code?
 

-----Original Message-----
From: Piske, Harald [mailto:Har...@bo...]
Sent: 19 November 2001 11:59
To: 'NAHUM Marc'; per...@li...
Subject: RE: [perl-win32-gui-users] where find guibuilder ?


The GUI FAQ ( http://www.jeb.ca/faq/Win32-GUI-FAQ.html
<http://www.jeb.ca/faq/Win32-GUI-FAQ.html>  ... praise, praise) points to
ftp://ftp.wh.whoi.edu/pub/gb109.zip <ftp://ftp.wh.whoi.edu/pub/gb109.zip>
for the GUI Builder. I dunno if that link still worx or if there has ever
been a newer version. 1.09 helps a lot as compared to having nothing, but it
was always said to be in the making. There is another link a few lines down,
to the GUI Loft @  <http://www.bahnhof.se/~johanl/perl/Loft/>
http://www.bahnhof.se/~johanl/perl/Loft/ (more praise!) that you might want
to check out.

-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Monday, November 19, 2001 01:56
To: per...@li...
Subject: [perl-win32-gui-users] where find guibuilder ?


hye all,
where can'i find the GUI Builder ?
 
Thanks,
 

RE: [perl-win32-gui-users] where find guibuilder ?

[Piske, H. <Har...@bo...>]

The GUI FAQ ( http://www.jeb.ca/faq/Win32-GUI-FAQ.html
<http://www.jeb.ca/faq/Win32-GUI-FAQ.html>  ... praise, praise) points to
ftp://ftp.wh.whoi.edu/pub/gb109.zip <ftp://ftp.wh.whoi.edu/pub/gb109.zip>
for the GUI Builder. I dunno if that link still worx or if there has ever
been a newer version. 1.09 helps a lot as compared to having nothing, but it
was always said to be in the making. There is another link a few lines down,
to the GUI Loft @  <http://www.bahnhof.se/~johanl/perl/Loft/>
http://www.bahnhof.se/~johanl/perl/Loft/ (more praise!) that you might want
to check out.

-----Original Message-----
From: NAHUM Marc [mailto:mar...@re...]
Sent: Monday, November 19, 2001 01:56
To: per...@li...
Subject: [perl-win32-gui-users] where find guibuilder ?


hye all,
where can'i find the GUI Builder ?
 
Thanks,
 

[perl-win32-gui-users] where find guibuilder ?

[NAHUM M. <mar...@re...>]

hye all,
where can'i find the GUI Builder ?

Thanks,

RE: [perl-win32-gui-users] Cancel action requests

[Piske, H. <Har...@bo...>]

> Try using a _Timer instead of the while loop.
Wayyyy to much effort, although it would be the "correct" way to handle
this. If you just put a Win32::GUI::DoEvents() inside your loop, the user
can click around and events get fired while the script is running.

HOWEVER, bear in mind that the event handlers do run inside your loop, so
you must still implement a way to end the loop after a Cancel_Click. See my
posting "RE: some basic questions" (last thursday) for a code snippet.


> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 16 November 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Cancel action requests
> 
> 
> I hope somebody can help on this one. I need to use a cancel button so
> the user can break out of a routine which is running. Problem is, the
> button cannot be pressed until the action has completed.
> 
> Run this and you'll see that as long as the loop is counting, the
> button click event will not respond. Can this be changed so that the
> click event is checked beforehand?
> 
> 
> use Win32::GUI;
> 
> $win = new Win32::GUI::Window(
> 	-name => 'MainWindow',
> 	-size => [200, 200],
> 	);
> 
> $win->AddButton(
> 	-name => "CancelButton",
> 	-text => "Cancel",
> 	-left => 50,
> 	-top => 100,
> 	);
> 
> $win->Show();
> 
> # Just print some numbers, updating the window so that the button
> remains visible.
> 
> for my $i (0..1500) {print "$i,"; $win->Update();}
> 		
> 	Win32::GUI::Dialog();
> 
> 	return(1);
> 
> 
> sub ::CancelButton_Click {
> 
> print "Cancel request.\n";
> }
> 
> 
> __END__
> 
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users

RE: [perl-win32-gui-users] Win32::DialogBox - LostFocus() Event in Button and RadioButton Objects doesn't seem to work for me

[Frazier, J. J. <Joe...@Pe...>]

Thanks Harald.  I did some playing and found:

Combobox:

7 =3D Open Dropdownlist
8 =3D Close Dropdownlist
9 =3D Change
10 =3D Lost Focus( got focus does not seem to give a value)

My call to reset did not seem to throw an event( no change event, nor
did additem).  I can assume that this means the events are only fired if
done by user interaction and not via script.

I have not had time to test button or other stuff yet, but hope this
helps someone.

Joe Frazier, Jr.
Technical Support Engineer
Peopleclick Service Support

Tel:  +1-800-841-2365
E-Mail: mailto:su...@pe...


> -----Original Message-----
> From: Piske, Harald [mailto:Har...@bo...]
> Sent: Friday, November 16, 2001 5:43 AM
> To: 'bt...@us...'; Win32-GUI-Mailing List (E-mail)
> Subject: RE: [perl-win32-gui-users] Win32::DialogBox -=20
> LostFocus() Event
> in Button and RadioButton Objects doesn't seem to work for me
>=20
>=20
> > The LostFocus() event doesn't respond at all when a mouse click=20
> > happens on another object (button, textfield, etc.)
>=20
> From what I can see in the xs code, the button class is treated in a
> different manner. You might want to try
>=20
> Button_Anonymous {print join (', ', @_), '\n';}
>=20
> This is an event handler that gets called for a lot of the otherwise
> unhandled cases. If you're lucky, _LostFocus is one of them.=20
> The actual
> message number is passed as the first parameter. I don't=20
> exactely remember
> if _Anonymous gets fired for each unhandled message or just unhandled
> notification messages.
>=20
> If that does not help, you could subclass all your controls to receive
> _MouseMove events and call your _LostFocus sub when another=20
> control or the
> window sees mouse moves ... very easy in theory, just=20
> terribly annoying to
> actually implement :-/
>=20
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>=20

RE: [perl-win32-gui-users] Cancel action requests

[Peter E. <Pet...@at...>]

Try using a _Timer instead of the while loop.


> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 16 November 2001 12:09
> To: per...@li...
> Subject: [perl-win32-gui-users] Cancel action requests
> 
> 
> I hope somebody can help on this one. I need to use a cancel button so
> the user can break out of a routine which is running. Problem is, the
> button cannot be pressed until the action has completed.
> 
> Run this and you'll see that as long as the loop is counting, the
> button click event will not respond. Can this be changed so that the
> click event is checked beforehand?
> 
> 
> use Win32::GUI;
> 
> $win = new Win32::GUI::Window(
> 	-name => 'MainWindow',
> 	-size => [200, 200],
> 	);
> 
> $win->AddButton(
> 	-name => "CancelButton",
> 	-text => "Cancel",
> 	-left => 50,
> 	-top => 100,
> 	);
> 
> $win->Show();
> 
> # Just print some numbers, updating the window so that the button
> remains visible.
> 
> for my $i (0..1500) {print "$i,"; $win->Update();}
> 		
> 	Win32::GUI::Dialog();
> 
> 	return(1);
> 
> 
> sub ::CancelButton_Click {
> 
> print "Cancel request.\n";
> }
> 
> 
> __END__
> 
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
> 

[perl-win32-gui-users] Cancel action requests

[Marcus <li...@wo...>]

I hope somebody can help on this one. I need to use a cancel button so
the user can break out of a routine which is running. Problem is, the
button cannot be pressed until the action has completed.

Run this and you'll see that as long as the loop is counting, the
button click event will not respond. Can this be changed so that the
click event is checked beforehand?


use Win32::GUI;

$win = new Win32::GUI::Window(
	-name => 'MainWindow',
	-size => [200, 200],
	);

$win->AddButton(
	-name => "CancelButton",
	-text => "Cancel",
	-left => 50,
	-top => 100,
	);

$win->Show();

# Just print some numbers, updating the window so that the button
remains visible.

for my $i (0..1500) {print "$i,"; $win->Update();}
		
	Win32::GUI::Dialog();

	return(1);


sub ::CancelButton_Click {

print "Cancel request.\n";
}


__END__


Thanks,

Marcus

Re: [perl-win32-gui-users] command line parameters from drop-event?

[Marcus <li...@wo...>]

On 16.11.01 at 08:52 Mark Wilkinson wrote:
>I want my Win32::GUI (or any Perl app for that matter) to respond more
>like a
>native Windows program, and allow me to drop files from explorer onto
the
>"appname.pl"  icon and that list of files becomes the @ARGV parameter
of
>the
>perl script.

It's probably a registry entry. Possibly something to do with a
"ShellEx" key?
It could just be that you need to tell Windows to treat .pl files as
.exe files.

If you can't figure that out, you could create a "Send To" item which
will appear in the "Send To" submenu of any Explorer context menu. That
way you can send selected files to your Perl application. That's as
simple as creating a shortcut in the "SendTo" folder.

Marcus

Re: [perl-win32-gui-users] ListView MultiSelect

[Jonathan S. <jso...@al...>]

Here is the way to get rif of multiple selections:

in your ListView definition add:

-singlesel=3D> 1,


Thanks to Eva...@ao... for pointing this out.



Jonathan Southwick
jso...@al...
Technical & Network Services
Allegheny College, Meadville, PA 16335
(814) 332-2755



At 11/15/2001 08:57 AM, you wrote:
>I should have tried it before I sent out the message because it doesn't=20
>seem to be working.
>
>Jonathan Southwick
>jso...@al...
>Technical & Network Services
>Allegheny College, Meadville, PA 16335
>(814) 332-2755
>
>At 11/15/2001 08:36 AM, you wrote:
>>At 11/14/2001 05:06 PM, you wrote:
>>>Is there a way to prevent a ListView in details mode from allowing the=20
>>>user to select more than one line?
>>
>>Add this to your ListView definition:
>>
>>         -multisel  =3D> 0,
>>
>>
>>Jonathan Southwick
>>jso...@al...
>>Technical & Network Services
>>Allegheny College, Meadville, PA 16335
>>(814) 332-2755
>>
>>>Thanks
>>>
>>>=A7Flame=A7

[perl-win32-gui-users] command line parameters from drop-event?

[Mark W. <ma...@il...>]

Hi group!

I know this is only tangentally Win32GUI related, but I suspect it comes up
more often among GUI users than any other Perl group, so here goes:

I want my Win32::GUI (or any Perl app for that matter) to respond more like a
native Windows program, and allow me to drop files from explorer onto the
"appname.pl"  icon and that list of files becomes the @ARGV parameter of the
perl script.

ya know what I mean?

Has anyone ever achieved this?

Any advice appreciated!

Mark

RE: [perl-win32-gui-users] Win32::DialogBox - LostFocus() Event i n Button and RadioButton Objects doesn't seem to work for me

[Piske, H. <Har...@bo...>]

> The LostFocus() event doesn't respond at all when a mouse click 
> happens on another object (button, textfield, etc.)

From what I can see in the xs code, the button class is treated in a
different manner. You might want to try

Button_Anonymous {print join (', ', @_), '\n';}

This is an event handler that gets called for a lot of the otherwise
unhandled cases. If you're lucky, _LostFocus is one of them. The actual
message number is passed as the first parameter. I don't exactely remember
if _Anonymous gets fired for each unhandled message or just unhandled
notification messages.

If that does not help, you could subclass all your controls to receive
_MouseMove events and call your _LostFocus sub when another control or the
window sees mouse moves ... very easy in theory, just terribly annoying to
actually implement :-/

[perl-win32-gui-users] Win32::DialogBox - LostFocus() Event in Button and RadioButton Ob jects doesn't seem to work for me

[O'Malley, B. T. <bry...@de...>]

> Windows 2k sp 2
> ActiveState Perl build 618
> 			
> use Win32::GUI
> 
> 
> 
> The buttons and radiobuttons work fine in the GUI::DialogBox object.  
> 
> The Click() event works fine.
> 
> The LostFocus() event doesn't respond at all when a mouse click happens on
> another object (button, textfield, etc.)
> 
> Also, the LostFocus() event for the button doesn't respond at all when the
> focus is changed using the Tab key.
> 
> 
> Does anyone know if it is supposed to work?
> 
> 
> I am successfully using the LostFocus() event in a TextField object, and
> am using the exact same approach with the Button objects, but to no avail.
> 
> If it does work for someone, I'll have to scrutinize my script for errors.
> I have checked that the -name option matches the sub declaration
> name_LostFocus {}, so I don't believe that is it.
> 
> I might be forced to put code snippets up here if I still cannot resolve
> it.
> 
> 
> Any comments, suggestions, or pointers will be greatly appreciated.
> 
> Thank-you,
> 
> Bryan O'Malley
> 
> 
> 
> 
> 

[perl-win32-gui-users] Win32::DialogBox - LostFocus() Event in Button and RadioButton Objects doesn't seem to work for me

[Bryan O'M. <bt...@us...>]

Windows 2k sp 2
ActiveState Perl build 618

use Win32::GUI



The buttons and radiobuttons work fine in the GUI::DialogBox object.

The Click() event works fine.

The LostFocus() event doesn't respond at all when a mouse click happens on
another object (button, textfield, etc.)

Also, the LostFocus() event for the button doesn't respond at all when the
focus is changed using the Tab key.


Does anyone know if it is supposed to work?


I am successfully using the LostFocus() event in a TextField object, and am
using the exact same approach with the Button objects, but to no avail.

If it does work for someone, I'll have to scrutinize my script for errors.
I have checked that the -name option matches the sub declaration
name_LostFocus {}, so I don't believe that is it.

I might be forced to put code snippets up here if I still cannot resolve it.


Any comments, suggestions, or pointers will be greatly appreciated.

Thank-you,

Bryan O'Malley

RE: [perl-win32-gui-users] Context Menus

[Peter E. <Pet...@at...>]

You can create a Label the same size as the window (with or without text)
and react to double-click and right-click events on it. That's the only way
I've been able to do it.

> -----Original Message-----
> From: Marcus [mailto:li...@wo...]
> Sent: 15 November 2001 09:34
> To: per...@li...
> Subject: [perl-win32-gui-users] Context Menus
> 
> 
> Does anyone know how to create a right-click context menu for the main
> window?
> 
> I need the context menu to appear anywhere in the main window. Is it
> possible to just capture right-click actions in general, and then get
> detailed. You can create keyboard actions/bindings, but what about
> mouse actions other than those predefined?
> 
> I tried MainWindow_RightClick just to see, since there are other
> undocumented events around too, but that didn't respond.
> 
> 
> Thanks,
> 
> Marcus
> 
> 
> 
> _______________________________________________
> Perl-Win32-GUI-Users mailing list
> Per...@li...
> https://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
>