#!/bin/sh # MetaCard 2.4 stack # The following is not ASCII text, # so now would be a good time to q out of more exec mc $0 "$@" Launch3dx^WLaunch OS X app  ULucida Grande cREVGeneral debugObjects bookmarks handlerListscriptSelection char 1 to 0 prevHandler tempScriptscript @^W  AppleScript)`DT cREVGeneral revUniqueID 1048115292735  tell application "Finder" 2 choose file with prompt "Find the app to launch" 0 0 end tell`ARFind & LaunchEpon mouseUp do fld "AppleScript" as AppleScript put the result into appPath replace ":" with "/" in appPath replace quote with "" in appPath delete word 1 of appPath if char 1 to 2 of revAppVersion() <> "1." then set the itemDel to "/" delete item 1 of appPath end if delete last char of appPath put "/" before appPath put appPath into fld "App" -- if Rev started the app, it can't relaunch it again without this -- even if it has been quit in the interim if the openProcesses contains appPath then kill process appPath end if launch appPath if the result is not empty then answer the result end mouseUp d cREVGeneral scriptChecksumbj 3y revUniqueID 1048115306792 bookmarks breakPoints handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 380 to 379scripty

on mouseUp

do fld "AppleScript" as AppleScript

put the result into appPath

replace ":" with "/" in appPath

replace quote with "" in appPath

delete word 1 of appPath

if char 1 to 2 of revAppVersion() <> "1." then

set the itemDel to "/"

delete item 1 of appPath

end if

delete last char of appPath

put "/" before appPath

put appPath into fld "App"

-- if Rev started the app, it can't relaunch it again without this

-- even if it has been quit in the interim

if the openProcesses contains appPath then

kill process appPath

end if

launch appPath

if the result is not empty then answer the result

end mouseUp

App)`D& cREVGeneral revUniqueID 1048115451907  $/Applications/Internet Explorer.appLaunchEpon mouseUp put fld "App" into appPath -- if Rev started the app, it can't relaunch it again without this -- even if it has been quit in the interim if the openProcesses contains appPath then kill process appPath end if if there is not a file appPath and there is not a folder appPath then send mouseUp to btn "Find & Launch" else launch appPath if the result is not empty then answer the result end if end mouseUp d cREVGeneralscriptChecksum#{R+e/ revUniqueID 1048116679022 bookmarks handlerListmouseUp tempScript prevHandlermouseUpscriptSelectionchar 351 to 350script)

on mouseUp

put fld "App" into appPath

-- if Rev started the app, it can't relaunch it again without this

-- even if it has been quit in the interim

if the openProcesses contains appPath then

kill process appPath

end if

if there is not a file appPath and there is not a folder appPath then

send mouseUp to btn "Find & Launch"

else

launch appPath

if the result is not empty then answer the result

end if

end mouseUp

 New Field 1 Dz cREVGeneral revUniqueID 1048649201443 mA combination of AppleScript and Transcript to allow you to launch OS X applications from within Revolution. kStart with the "Find & Launch" button which uses AppleScript to find a file path that works in Transcript. HThen use the Launch button to launch the selected application directly.  New Field 2 >0" cREVGeneral revUniqueID 1048649323992 'Use these scripts any way you want :-) Sarah Reichelt