iTunesで選択した曲の名前をコピーするためのAppleScript

曲目を書き出したいーってときに何かいい方法は無いかなってことで。
こうなります。

このままコピーできます。

以下のコードをスクリプトエディタに貼付けて、アプリケーションとして保存すると使えます。

on run
    tell application "iTunes"
        activate
        set selectedTracks to selection
        if selectedTracks is not {} then
            
            set nameList to ""
            repeat with i in selectedTracks
                set theName to name of i
                set nameList to nameList & theName & "
"
            end repeat
            
            display dialog "曲名一覧です" default answer nameList buttons {"OK"} default button 1
            
        end if
    end tell
end run