MC IDE v2.6b12

[Richard Gaskin]

Tariel Gogoberidze wrote:
> 
> On Jan 26, Richard Gaskin wrote:
> 
>>> ----------
>>> on linkClicked pLink
>>>   if "@" is in pLink then revMail pLink
>>>   else revGoUrl pLink
>>> end linkClicked
>>>
>>> Not too long, rather easy :-)
>>>
>>> Best Regards from Paris,
>>> Eric Chatonet
>>> ------------
> 
>>
>>> And may be revGoUrl handler could be added to MC IDE ?. Unless Rev Inc.
>>> has something against it of course.
>>> It's commonly used in posted stacks and would add more compatibility to
>>> MC IDE.
>>
>> For copyright reasons we can't include Rev's handlers directly in the MC
>> IDE distribution.  We can, however, create a library importer.
>> Currently one needs Rev anyway to get the engine, and with some of the
>> changes in an upcoming release of Rev it may be beneficial to require a
>> Rev install somewhere on the drive to draw parts from anyway.
>>
>> I would rather wait for the next Rev release before adding such a
>> critter to MC, but in the meantime if someone wants to make a plugin for
>> importing Rev libs I see no reason not to.
>>
>>
> 
> OK, but actually it's not necessary to use RevGoURL to  add URL link and 
> "@" mail recognition to answer dialog,
> 
> Ken Ray posted his excellent  "stsGoURL pURL" script  that does just 
> that on both MC and Rev lists a while ago.
> 
> May be, with Ken's permission of course,  this script can be added to 
> answer dialog?
> 
> Richard, you did a great job improving answer dialog in MC IDE and 
> making it HIG complaint and it's already excepts HtmlText.
>  Wouldn't it be nice  to have a  link recognition in it as well?
> 
> Just in case you would consider this and Ken is OK with it, I would copy 
> Ken's posted script below
> 
> -------------------------------
> on linkClicked pLink
>   stsGoURL pLink
> end linkClicked
> 
> on stsGoURL pURL
>   put char 1 to offset(":",pURL) of pURL into tProtocol
>   if (char 1 to 6 of pURL = "file:/") and (char 7 of pURL <> "/") then
>     -- convert to local path with three ///
>     replace "file:/" with "file:///" in pURL
>   else
>     put "file:,http:,mailto:,gopher:,aim:" into tProtocols
>     if tProtocol is not among the items of tProtocols then
>       -- assume web
>       put "http://" & pURL into pURL
>       put false into tIsIM
>     end if
>   end if
>   switch (the platform)
>   case "MacOS"
>     if isOSX() then
>       get shell("open" && q(pURL))
>     else
>       do ("open location" && q(pURL)) as AppleScript
>     end if
>     break
>   case "Win32"
>     put (word 1 of the systemVersion is "NT") into tIsNT
>     if $COMSPEC <> "" then
>       set the shellCommand to $COMSPEC
>     else
>       if tIsNT then
>         set the shellCommand to "cmd.exe"
>       else
>         set the shellCommand to "command.com"
>       end if
>     end if
>     switch tProtocol
>     case "mailto:"
>       put queryRegistry("HKEY_CLASSES_ROOT\mailto\shell\open\command\") 
> into tMailApp
>       -- replace placeholders for all Win versions (%1 for non-XP 
> modern, %l for old, %ProgramFiles% for XP)
>       replace q("%1") with pURL in tMailApp
>       replace "%1" with pURL in tMailApp
>       replace q("%l") with pURL in tMailApp
>       replace "%l" with pURL in tMailApp
>       replace "%ProgramFiles%" with $PROGRAMFILES in tMailApp
>       open process tMailApp for neither
>       break
>     case "aim:"
>       -- Example:
>       --    aim:goim?screenname=binentertainment&message=This+is+a+test
>       put 
> queryRegistry("HKEY_LOCAL_MACHINE\Software\classes\aim\shell\open\command\") 
> into tAIMApp
>       replace q("%1") with pURL in tAIMApp
>       replace "%1" with pURL in tAIMApp
>       open process tAIMApp for neither
>       break
>     default
>       put word 1 of 
> queryRegistry("HKEY_LOCAL_MACHINE\Software\classes\http\shell\open\command\") 
> into tBrowserPath
>       if tIsNT then
>         set the hideconsolewindows to false
>         open process (tBrowserPath && q(pURL)) for neither
>       else
>         get shell(tBrowserPath && q(pURL))
>       end if
>       break
>     end switch
>   end switch
> end stsGoURL
> 
> function isOSX
>   set the itemDel to "."
>   return (item 1 of the systemVersion >=10)
> end isOSX
> 
> function q pWhat
>   return quote & pWhat & quote
> end q
> ----------------------------
> 
> best regards
> Tariel


Done for the next build.

-- 
  Richard Gaskin
  Fourth World Media Corporation
  ___________________________________________________________
  Ambassador at FourthWorld.com       http://www.FourthWorld.com