OmniOutlinerの現在のファイルの名前を表示するAppleScript

code:scpit.scpt

tell application "OmniOutliner"

set d to document 1

set dname to name of document 1

display alert dname

end tell