Thomas, Timothy B wrote: > Sean - Thanks! That was my next step, but didn't yet have the time > to research how to go about doing it. Didn't know it was so easy > to implement a custom cursor like that. Your code works perfectly.
please find attached HyperLink.pm, which implements a 'regular'
Win32::GUI::HyperLink control ;-)
warning: the code is full of black (maybe voodoo) magic.
using it is this simple:
use Win32::GUI;
use Win32::GUI::HyperLink;
my $Window = new Win32::GUI::Window(
-title => 'Win32::GUI::HyperLink demo',
-pos => [ 100, 100 ],
-size => [ 150, 100 ],
-name => 'Window',
);
$Window->AddHyperLink(
-text => "dada's perl lab",
-name => "test",
-pos => [ 25, 25 ],
-url => "http://dada.perl.it";,
# or: -url => "mailto:[EMAIL PROTECTED]",
);
$Window->Show();
my $rc = Win32::GUI::Dialog(0);
sub Window_Terminate {
return -1;
}
you don't need to specify a Click event, the HyperLink
class already provides a default one that simply activates
the link.
> Deviating from Win32-GUI somewhat:
> Next step is to figure out how to mimik a "mailto:"; for
> the e-mail link. Should be easy, once we figure out how to
> determine what the default e-mail program is. Not sure what
> assication is set for that. .html for the browser is easy, but
> what about e-mail's? maybe .msg? Here's the ftype info for .msg
> on my NT system, using outlook for e-mail.
in my code, I've used the ShellExecute API that works like a
charm with a standard "mailto:"; linkage.
cheers,
Aldo
__END__
$_=q,just perl,,s, , another ,,s,$, hacker,,print;
HyperLink.pm
Description: Binary data
