From: Thomas, T. B <tim...@lm...> - 2001-01-23 16:07:29
|
Christopher - it's not meant to work that way, only when you click on = the URL is it supposed to open your browser. What version of Win32-GUI are = you running? Make sure you are running the latest, I think 0.0.502 is the = most recent stable version. ------------------------------------------------------------------------= ---- --------------------- Tim Thomas Unix Systems Administrator Lockheed Martin EIS =B7 Denver Data Center 303-430-2281 mailto:tim...@lm... ------------------------------------------------------------------------= ---- --------------------- -----Original Message----- From: christopher sagayam [mailto:chr...@ya...] Sent: Monday, January 22, 2001 9:56 PM To: per...@li... Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Window one more thing I don't know whether it is meant to be or not.. But when I click on the url it goes to the url BUT when I click on any = other place in the window too it goes to the url ( incl the OK button too) chris www.perl-resume.com ----- Original Message ----- From: Sean Healy <jal...@ho...> To: <per...@li...> Sent: Tuesday, January 23, 2001 6:50 AM 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 =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 > 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 _______________________________________________ Perl-Win32-GUI-Users mailing list Per...@li... http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |
From: Thomas, T. B <tim...@lm...> - 2001-01-23 16:32:42
|
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 |
From: Robert S. <rs...@em...> - 2001-01-23 17:02:07
|
i think there is actually a mailto: association in the registry yep: HKEY_CLASSES_ROOT\mailto\shell\open\command -rob "Thomas, Timothy B" wrote: >=20 > 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 implem= ent a > custom cursor like that. Your code works perfectly. >=20 > Deviating from Win32-GUI somewhat: > Next step is to figure out how to mimik a "mailto:" for the e-m= ail > link. Should be easy, once we figure out how to determine what the defa= ult > 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 >=20 > C:\>ftype msgfile > msgfile=3D"C:\Program Files\Microsoft Office\Office\OUTLOOK.EXE" /f "%1= " >=20 > 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. >=20 > Thanks again Sean! > Tim >=20 > -----------------------------------------------------------------------= ----- > --------------------- > Tim Thomas > Unix Systems Administrator > Lockheed Martin EIS =B7 Denver Data Center > 303-430-2281 > mailto:tim...@lm... > -----------------------------------------------------------------------= ----- > --------------------- >=20 > -----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 >=20 > >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 imp= rove > >this. This example runs as-is. >=20 > 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: >=20 > $linkCursor =3D new Win32::GUI::Cursor('harrow.cur'); >=20 > $urlClass =3D new Win32::GUI::Class( > -name =3D> "UrlLabelClass", > -extends =3D> "STATIC", > -cursor =3D> $linkCursor, > ); >=20 > Then you add '-class =3D> $urlClass' to the label. The cursor 'harrow.= cur' is >=20 > 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 >=20 > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users >=20 > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users |
From: Erick J. B. <er...@e-...> - 2001-01-23 17:17:33
|
Just to tell you Thomas, emails in Outlook have the ending .eml > 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" > |
From: Aldo C. <da...@pe...> - 2001-01-23 17:08:06
Attachments:
HyperLink.pm
|
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:dada\@perl.it", ); $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; |
From: Thomas, T. B <tim...@lm...> - 2001-01-23 17:42:52
|
Aldo - pretty cool, did you just implement that? I seem to be getting a not-very-descriptive error when I try your code. See below. Tim D:\Archive\scripts\completed\digitaltool>perl aldourl.gpl Wrong number of parameters: expected 0, got 2. BEGIN failed--compilation aborted at aldourl.gpl line 2. D:\Archive\scripts\completed\digitaltool>cat aldourl.gpl use Win32::GUI; use Win32::GUI::HyperLink; my $Window =3D new Win32::GUI::Window( -title =3D> 'Win32::GUI::HyperLink demo', -pos =3D> [ 100, 100 ], -size =3D> [ 150, 100 ], -name =3D> 'Window', ); $Window->AddHyperLink( -text =3D> "dada's perl lab", -name =3D> "test", -pos =3D> [ 25, 25 ], -url =3D> "http://dada.perl.it", # or: -url =3D> "mailto:dada\@perl.it", ); $Window->Show(); my $rc =3D Win32::GUI::Dialog(0); sub Window_Terminate { return -1; } ------------------------------------------------------------------------= ---- --------------------- Tim Thomas Unix Systems Administrator Lockheed Martin EIS =B7 Denver Data Center 303-430-2281 mailto:tim...@lm... ------------------------------------------------------------------------= ---- --------------------- -----Original Message----- From: Aldo Calpini [mailto:da...@pe...] Sent: Tuesday, January 23, 2001 10:13 AM To: Thomas, Timothy B Subject: Re: [perl-win32-gui-users] Final Code: Click on URL in About Wind ow 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 =3D new Win32::GUI::Window( -title =3D> 'Win32::GUI::HyperLink demo', -pos =3D> [ 100, 100 ], -size =3D> [ 150, 100 ], -name =3D> 'Window', ); $Window->AddHyperLink( -text =3D> "dada's perl lab", -name =3D> "test", -pos =3D> [ 25, 25 ], -url =3D> "http://dada.perl.it", # or: -url =3D> "mailto:dada\@perl.it", ); $Window->Show(); my $rc =3D 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. =20 > 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__ $_=3Dq,just perl,,s, , another ,,s,$, hacker,,print; |
From: Aldo C. <da...@pe...> - 2001-01-24 09:47:01
|
Thomas, Timothy B wrote: > Aldo - pretty cool, did you just implement that? > I seem to be getting a not-very-descriptive error when I > try your code. See below. > Tim > > D:\Archive\scripts\completed\digitaltool>perl aldourl.gpl > Wrong number of parameters: expected 0, got 2. > BEGIN failed--compilation aborted at aldourl.gpl line 2. sorry, I forgot to mention that you need Win32::API version 0.20. if you don't want to upgrade Win32::API, you can change the following lines in HyperLink.pm 13: my $LoadCursor = new Win32::API("user32", "LoadCursor", "NN", "N"); -> my $LoadCursor = new Win32::API("user32", "LoadCursor", [N,N], "N"); 14: my $ShellExecute = new Win32::API("shell32", "ShellExecute", "NPPPPI", "N"); -> my $ShellExecute = new Win32::API("shell32", "ShellExecute", [N,P,P,P,P,I], "N"); cheers, Aldo __END__ $_=q,just perl,,s, , another ,,s,$, hacker,,print; |
From: Sam <sa...@se...> - 2001-01-23 20:55:37
|
-----BEGIN PGP SIGNED MESSAGE----- Hash: SHA1 I didn't say anything before (about the html thing) because it really didn't matter, but in this case it does. You don't really want to find file extensions in the registry, you want to find service providers. It's an academic point with html, but with mail it's critical for correct operation between mail clients. look at HKCR/http and HKCR/mailto for the two offending keys (they should have shell command open thingees if your clients are good). same applies for HKCR/ftp, and gopher wais etc etc etc > Just to tell you Thomas, emails in Outlook have the ending > .eml > > > 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" > > > > > > _______________________________________________ > Perl-Win32-GUI-Users mailing list > Per...@li... > http://lists.sourceforge.net/lists/listinfo/perl-win32-gui-users > -----BEGIN PGP SIGNATURE----- Version: N/A iQA/AwUBOm1IP5sRND2Z+TaWEQLoxgCeOmCRBRcoYC01SRwr4J5EsFmPas0An1ru hizFZbFtSrQSEh3RUaEkqngP =WO0q -----END PGP SIGNATURE----- Sam Jacobson R & D Manager / Software Engineer Selective Communications Ph +64 9 302 1142 www.selective.co.nz |