Re: [perl-win32-gui-users] Hyperlink.pm [Was: Wrappers for listviews/comboboxes etc...]

[Jez W. <je...@je...>]

Quoting Robert May <rm...@po...>:

> I'd love to get rid of the Win32::API dependency
> - you'll see it listed=20
> as one of the TODO items in the comments at the
> start of Hyperlink.pm. =20
> I had missed that SetCapture and ReleaseCapture
> were already there - I=20
> guess I searched the source for GetCapture, and
> didn't find that.  It'd=20
> be great if you could add GetCapture - should I
> raise a tracker?

Ok - I've just committed these functions - GetCapture,=20
LoadCursor and ShellExecute. I've got an example of=20
your hyperlink running with no dependency on=20
Win32::API.

There is scope for some improvement to the LoadCursor=20
function since it is missing functionality to load a=20
cursor from the exe being run (only useful when=20
cursors are packed into the exe). I wasn=92t sure if I=20
should use the win API constants, or simplify things -=20
in the end I kept with the constants. As an example:

my $hand=3DWin32::GUI::LoadCursor(32649); #load in hand=20
cursor

I've added all the constant values for the available=20
cursors to the documentation.

ShellExecute is an interesting and useful function -=20
and I'm surprised it hasn't been added before. An=20
example:
=20
my $exitval =3D $win->ShellExecute
('open','http://www.perl.org','','',1);

This opens www.perl.org in the default web browser.

Cheers,

jez.