Section 24.3. GUI Scripting Examples

24.3. GUI Scripting Examples

GUI scripting is something of an art, and needs either a big treatment providing the fruits of plentiful experience or a small treatment that shows a few useful examples and leaves you to explore further on your own. I've opted here for the latter; I'll just give a few practical examples of GUI scripting, without further elaboration.

First I'll show how to toggle File Sharing on and off through the System Preferences application. System Preferences itself is not particularly scriptable; all you can really do is go to the desired preference pane. GUI scripting does the rest:

 tell application "System Preferences"     activate     set current pane to pane "com.apple.preferences.sharing" end tell tell application "System Events"     tell application process "System Preferences"         tell tab group 1 of window "Sharing"             click radio button "Services"             select row 1 of table 1 of scroll area 1             click button 1         end tell     end tell end tell

Now let's work around the fact that TextEdit doesn't let you learn what text is selected. We can use GUI scripting to learn both what text is selected and where the selection is:

 tell application "TextEdit" to activate -- front window contains "this is a test of GUI scripting"; "test" is selected tell application "System Events"     tell application process "TextEdit"         tell window 1             tell text area 1 of scroll area 1                 get value of attribute "AXSelectedText" -- "test"                 get value of attribute "AXSelectedTextRange" -- {11,14}             end tell         end tell     end tell end tell

In this example, we work around the fact that you can't script TextEdit to close a window without saving it. The idea here is to close the window and allow the dialog to appear asking whether we want to save this document; when that happens, we press the Don't Save button using GUI scripting:

 tell application "TextEdit"     activate     close window 1 end tell tell application "System Events"     tell application process "TextEdit"         tell window 1             repeat while not (exists sheet 1)                 delay 0.5             end repeat             click button "Don't Save" of sheet 1         end tell     end tell end tell

Finally, we work around (sort of) the Dictionary application's not being scriptable:

 set s to text returned of (display dialog "Word to define:" default answer "") -- prestidigitation tell application "Dictionary" to activate open location "DICT:///" & (s as string) tell application "System Events"     tell application process "Dictionary"         tell UI element 1 of scroll area 1 of scroll area 1 of group 1 of window 1             set s to value of it         end tell     end tell end tell s -- Dictionary prestidigitation |?prest??dij??t? sh ?n| noun formal magic tricks performed as entertainment. DERIVATIVES prestidigitator |-?dij??t?t?r| noun ORIGIN mid 19th cent.: from French, from preste 'nimble' + Latin digitus 'finger' + -ation.