I have a problem when I use both protocols, for the Hyperlink module, one after the other.
The following example will open a the mailto always, for both. And when I switch them,
that is, put the http after the mailto, then it will always open a the http, for both. It
falls through and the first one is ignored. I tried looking at the hyperlink module, but
I don't see anything wrong. Any thoughts?
# Script #
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, 15 ],
-url => "http://dada.perl.it",
);
$Window->AddHyperLink(
-text => "email dada's perl lab",
-name => "test",
-pos => [ 25, 35 ],
-url => "mailto:dada\@perl.it",
);
$Window->Show();
Win32::GUI::Dialog();
sub Window_Terminate {
return -1;
}
# EOF #
erick
never stop questioning
www.jeb.ca
|
