tell application "System Preferences" activate set current pane to pane "com.apple.preference.keyboard" end tell tell application "System Events" if UI elements enabled then tell process "System Preferences" tell window 1 tell tab group 1 click radio button 2 end tell tell slider 1 of tab group 1 set value to 7.0 set value to 6.0 end tell end tell end tell tell application "System Preferences" to quit else tell application "System Preferences" activate set current pane to pane "com.apple.preference.universalaccess" display dialog "UI element scripting is not enabled. Check \"Enable access for assistive devices\"" end tell end if end tell