[ AppleScript ] iTunes のウインドウを全画面表示するスクリプト

iTunes は左上のズーム（緑色）ボタンをクリックしても、全画面表示にならないので書いてみました。

tell application "Finder"
  set x to bounds of the window of desktop
  set item 2 of x to 22
  tell application "iTunes"
    set bounds of window 1 to x
  end tell
end tell

動作確認：Mac OS 10.4.8 + iTunes 7.0.1