RE: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow

[Thomas, T. B <tim...@lm...>]

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.=20

C:\>assoc .msg
.msg=3Dmsgfile

C:\>ftype msgfile
msgfile=3D"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 =B7 Denver Data Center
303-430-2281
mailto:tim...@lm...
------------------------------------------------------------------------=
----
---------------------


-----Original Message-----
From: Sean Healy [mailto:jal...@ho...]
Sent: Monday, January 22, 2001 6:21 PM
To: per...@li...
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=20
you can change the cursor when it's over the link.  You put this code=20
somewhere before the label with the URL:

$linkCursor =3D new Win32::GUI::Cursor('harrow.cur');

$urlClass =3D new Win32::GUI::Class(
    -name =3D> "UrlLabelClass",
    -extends =3D> "STATIC",
    -cursor =3D> $linkCursor,
);

Then you add '-class =3D> $urlClass' to the label.  The cursor =
'harrow.cur' is

included with the Win32-GUI samples.  (I think) STATIC is what Windows=20
actually calls labels.
_________________________________________________________________
Get your FREE download of MSN Explorer at http://explorer.msn.com


_______________________________________________
Perl-Win32-GUI-Users mailing list
Per...@li...
http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users