まあ、たいした物じゃないけど。自分で、つくる Web サイトの表示の確認の為にときどき使っています。
しかし、Firefox の AppleScript のサポートはひどいもんだ。
on run
try
|main|()
on error msg number errno
if errno is not -128 then
display alert msg message "Error Number : " & errno
end if
end try
end run
on |main|()
tell application "Safari"
set an_url to URL of document 1
end tell
do shell script "open -a Firefox " & quoted form of an_url
end |main|