revGoURL in same window

Wed Jul 14 08:47:13 EDT 2004

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, chipp at chipp.com 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
> 