I would like my dialog box to appear in the upper left of the screen instead of the middle. What is the syntax for that? I couldn’t find any online.
Thanks
repeat -- start of shell
--finds the end of the in-out array
tell application "Microsoft Excel"
set inOutList to value of used range of active sheet
end tell
-- the loop that decrements array
--"i" is a pointer to array
repeat with i from (count inOutList) to 1 by -1
set {startValue, stopValue} to item i of inOutList -- puts in-out values to variables
set inValue to startValue * 1000.01528202278
set outValue to stopValue * 1000.01528202278
tell application "QuickTime Player 7"
activate --allow QT to be run by script
tell document 1 --the active file in QT
set selection start to inValue
set selection end to outValue --set in out points
set current time to inValue --show in point
delay 2 --wait show out point
set current time to outValue
end tell
--branch point
--make display for dialog box
set messageText to "cut " & quote & name of document 1 & quote & return & ¬
return & " start: " & inValue & ¬
return & "end: " & outValue & ¬
return & "Adjust before Cut" & ¬
return & "Use only this Button for Cut"
my displayMessage(messageText) --call subroutine displayMessage
--(msg) sets buttons and response
-- if default do tell-cut-end tell
--if not skip next 3 lines go to next item in in-out list
tell document 1
cut
end tell
end tell
end repeat
--my displayMessage2("Next Show ?")
---start of exit
activate me
set {button returned:buttonReturned} to display dialog "Project Complete " buttons {"Quit", "Next Project"}
if buttonReturned is "Quit" then
exit repeat
end if
end repeat
--subroutine when called activate and pass processing power to QT
on displayMessage(msg)
activate me
display dialog msg buttons {"Cut"} default button 1
activate application "QuickTime Player 7"
end displayMessage
on displayMessage2(msg)
activate me
display dialog msg --buttons {"Quit Script",} default button 1
--activate application "QuickTime Player 7"
end displayMessage2