Quoting Robert May <[EMAIL PROTECTED]>:
> I'd love to get rid of the Win32::API dependency
> - you'll see it listed
> as one of the TODO items in the comments at the
> start of Hyperlink.pm.
> I had missed that SetCapture and ReleaseCapture
> were already there - I
> guess I searched the source for GetCapture, and
> didn't find that. It'd
> be great if you could add GetCapture - should I
> raise a tracker?
Ok - I've just committed these functions - GetCapture,
LoadCursor and ShellExecute. I've got an example of
your hyperlink running with no dependency on
Win32::API.
There is scope for some improvement to the LoadCursor
function since it is missing functionality to load a
cursor from the exe being run (only useful when
cursors are packed into the exe). I wasnt sure if I
should use the win API constants, or simplify things -
in the end I kept with the constants. As an example:
my $hand=Win32::GUI::LoadCursor(32649); #load in hand
cursor
I've added all the constant values for the available
cursors to the documentation.
ShellExecute is an interesting and useful function -
and I'm surprised it hasn't been added before. An
example:
my $exitval = $win->ShellExecute
('open','http://www.perl.org','','',1);
This opens www.perl.org in the default web browser.
Cheers,
jez.
