Hmmm - - - that still creates a new browser window each time alGoURL is
called (on my Mac). It launches Safari. I do like the "please wait" latency
mask feature, however.
In a message dated 7/14/04 3:06:18 AM, [EMAIL PROTECTED] writes:
> on altGoURL tURL
> �� put the tempName into tLaunchPath
> �� set itemDel to "/"
> �� put "temp_launch.html" into last item of tLaunchPath
> �� set itemDel to ","
> �� put createHTML(tURL) into tCode
> �� #
> �� if "Mac" is in platform() then
> � �� set the fileType to "????TEXT"
> � �� put tCode into url ("file:" & tLaunchPath)
> � �� delete char 1 of tLaunchPath
> � �� replace "/" with ":" in tLaunchPath
> � �� put "tell application" && quote & "Finder" & quote & cr &\\
> � � � �� "open file" && quote & tLaunchPath & quote & cr &\\
> � � � �� "end tell" into s
> � �� do s as AppleScript
> �� end if
> �� #
> �� if "Win" is in platform() then
> � �� put tCode into url ("file:" & tLaunchPath)
> � �� set the hideConsoleWindows to true
> � �� put empty into tTitle
> � �� if "NT" is in systemVersion() then
> � � �� set the shellCommand to "cmd.exe"
> � � �� put quote & quote into tTitle
> � �� end if
> � �� get shell("start" && tTitle && quote & tURL & quote)
> �� end if
>
> end altGoURL
>
> function createHTML tURL
> �� put \\
> � � �� "" & return &\\
> � � �� "<head>" & return &\\
> � � �� "<meta http-equiv=" & quote & "Refresh" & quote && "content=" &\\
> � � �� quote & "0 URL=" & tURL & quote & ">" & return &\\
> � � �� "<title>Launcher</title>" & return &\\
> � � �� "</head>" & return &\\
> � � �� "" & return &\\
> � � �� "<center>" & return &\\
> � � �� "
>
>
> " & return &\\
> � � �� "Loading URL. One moment please..." & return &\\
> � � �� "</center>" & return &\\
> � � �� "" & return &\\
> � � �� "" into tCode
> �� return tCode
> end createHTML
>
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution
