Quote:
Originally Posted by henningaround
Yeah, you're right. That's were one can see that I don't write the code myself but copy and paste stuff together and modify it until it works
|
There's nothing wrong with that. 😉
Here's a cleaned up version with error checking.
Code:
if ptIsRunning() then
-- Define Insert to open here
set Insert_to_open to "Insert Assignment A"
tell application "System Events"
tell process "Pro Tools"
set frontmost to true
-- Define the correct Insert group
if (Insert_to_open = "Insert Assignment A") then
set Insert_group to "Inserts A-E"
end if
tell (1st window whose title contains "Edit: ")
try
set selectedTrack to title of button of UI element 2 of (1st row of table "Track List" whose selected is true)
set formattedString to text of selectedTrack as string
set AppleScript's text item delimiters to "Selected. "
set theTextItems to every text item of formattedString
set AppleScript's text item delimiters to ""
set formattedString to theTextItems as string
on error e number n
if the n is -1719 then
tell application "Pro Tools" to display alert "No track was selected." message " " buttons {"Cancel"} default button 1
return
else
tell application "Pro Tools" to display alert "An Error Occurred" message e & " (" & n & ")" buttons {"Cancel"} default button 1
end if
end try
if exists (button Insert_to_open of group Insert_group of group formattedString) then
click button Insert_to_open of group Insert_group of group formattedString
else
return
end if
end tell
end tell
end tell
end if
on ptIsRunning()
return application "Pro Tools" is running
end ptIsRunning