カーソルサイズをトグルするAppleScript

動作するけど汚い…

tell application "System Preferences"
    set current pane to pane "com.apple.preference.universalaccess"

    tell application "System Events"
        repeat until application process "System Preferences" is not (exists)
        end repeat
        delay 0.5
        tell first window of process "System Preferences"
            tell table 1 of scroll area 1
                set selected of row 2 to true
            end tell
            repeat until slider "カーソルのサイズ：" exists
            end repeat

            set theSlider to slider "カーソルのサイズ："
            set stash to value of theSlider
            if value of theSlider is 1.0 then
                set value of theSlider to 4
            else
                set value of theSlider to 1.0
            end if
            stash
        end tell
    end tell
    quit
end tell

---

20160716時点でうまく動かない…repeat入っているので使用には注意。

カーソルサイズを最小＝最大でトグル。
Maestroなどでショートカットキーを当てて使用

tell application "System Preferences"   
    set current pane to pane "com.apple.preference.universalaccess"
end tell
tell application "System Events"
    tell first window of process "System Preferences"
        repeat until slider "カーソルのサイズ：" exists
        end repeat
        tell table 1 of scroll area 1
            set selected of row 2 to true
        end tell
        set theSlider to slider "カーソルのサイズ："       
        set stash to value of theSlider
        if value of theSlider is 1.0 then
            set value of theSlider to 4
        else
            set value of theSlider to 1.0
        end if
        stash
    end tell
end tell
tell application "System Preferences" to quit

問題点

アクセシビリティパネルで「キャプション」を選択している（していた）と、ディスプレイへ自動で移動できない。

コードをお借りした＆参考にしたページ

『画面のグレー/カラーのスイッチ』
http://goozenlab.com/blog/2013/02/grayscale-switch/

『mouse - How can I easily toggle the cursor size back and forth between normal and largest? - Ask Different』
http://apple.stackexchange.com/questions/88267/how-can-i-easily-toggle-the-cursor-size-back-and-forth-between-normal-and-larges