When I'm obliged to use GUI Scripting, I try to tighten up any
inserted delays by using conditional repeats rather than "blind"
delay amounts. Also, if a field value can be 'set' rather than
typed in (as it can be here), that helps too.
Both excellent points. I think you'll have to watch for setting the
".rtf" extension though because the original may be something else.
on TESaveAs(theKind, theTitle)
tell application "TextEdit" to activate
tell application "System Events" to tell application process
"TextEdit" to tell window 1
keystroke "s" using {command down, shift down}
repeat until (sheet 1 exists)
delay 0.2
end repeat
tell sheet 1
set value of text field 1 to (theTitle & ".rtf")
tell group 1 to tell pop up button 1
click
repeat until (menu 1 exists)
delay 0.2
end repeat
click menu item theKind of menu 1
repeat while (menu 1 exists)
delay 0.2
end repeat
end tell
click button "Save"
end tell
end tell
end TESaveAs
