System Eventsからのclipboard to Pasteboard

【スクリプトエディタで開く】

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

#

#

#

# com.cocolog-nifty.quicktimer.icefloe

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

set ocidPasteboard to refMe's NSPasteboard's generalPasteboard()

ocidPasteboard's clearContents()

set the clipboard to "" as text

tell application "QuickTime Player"

  activate

  tell application "System Events"

    tell application process "QuickTime Player"

      keystroke "c" using command down

    end tell

  end tell

end tell

###ここがキモだった0.1秒でも待ちを作らないとNSPasteboardにデータが渡されない

###(データが渡る前に次の処理になってしまうって感じかな）

delay 0.1

set ocidPastBoardTypeArray to ocidPasteboard's |types|

log ocidPastBoardTypeArray as list