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.
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.
C:\>assoc .msg
.msg=msgfile
C:\>ftype msgfile
msgfile="C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f "%1"
Someone else see what it is on theirs, inparticular if you use Netscape
Messenger.
I'm not sure that's as much of a standard as .html.
Thanks again Sean!
Tim
----------------------------------------------------------------------------
---------------------
Tim Thomas
Unix Systems Administrator
Lockheed Martin EIS ยท Denver Data Center
303-430-2281
mailto:[EMAIL PROTECTED]
----------------------------------------------------------------------------
---------------------
-----Original Message-----
From: Sean Healy [mailto:[EMAIL PROTECTED]
Sent: Monday, January 22, 2001 6:21 PM
To: [email protected]
Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About
Window
>Here's the code that you all helped me to figure out. You can use this to
>implement a clickable URL in your About Window, or whereever you like. The
>code may not be very clean, let me know if you have suggestions to improve
>this. This example runs as-is.
This is great! I've been playing with it a bit, and I added some stuff so
you can change the cursor when it's over the link. You put this code
somewhere before the label with the URL:
$linkCursor = new Win32::GUI::Cursor('harrow.cur');
$urlClass = new Win32::GUI::Class(
-name => "UrlLabelClass",
-extends => "STATIC",
-cursor => $linkCursor,
);
Then you add '-class => $urlClass' to the label. The cursor 'harrow.cur' is
included with the Win32-GUI samples. (I think) STATIC is what Windows
actually calls labels.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com
_______________________________________________
Perl-Win32-GUI-Users mailing list
[email protected]
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users
