#5 Clutter playlist doesn't start with first song (w/fix)

[Anonymous]

Related to bug #986962 is the following annoying problem with Clutter 1.0b2:

1) Drag a CD cover from the Now Playing window out to the desktop.
2) Double-click the CD to start playing it.

Result: The "(Clutter)" playlist is populated and begins playing immediately, but not with the first song on the CD. Instead, it plays the first song that was added to the playlist, which is not necessarily the first song on the CD (or first in the completed playlist).

Expected result: When double-clicking a new CD, which is not already set up as the "(Clutter)" playlist, playback should begin with the first song on the CD. This implies that the playlist should be built completely before starting playback.

Fix: In the script "PlayArtistAlbum.scpt", locate the following handler:

on tryPlaylist(pl, theArtist, theAlbum, theTrack, dstPl)

Change the following:

if not played then
-- Play theTrack, or else the first track:

to:

if false then
-- Play theTrack, or else the first track:

This will delay playback until the repeat loop has completed and the playlist has been completely built.

[Nobody/Anonymous]

Logged In: NO

The previous fix was too simple; it broke the playing of specified tracks from the contextual menu. Here's a new version of the tryPlaylist() handler from PlayArtistAlbum.scpt that works much better:

on tryPlaylist(pl, theArtist, theAlbum, theTrack, dstPl)
tell application "iTunes"
set oldShuf to (shuffle of pl)
set shuffle of pl to false -- otherwise tracks are copied to trax in random order!
set trax to (search pl for theAlbum only albums)
set shuffle of pl to oldShuf

    set any to false
    set played to false
    repeat with t in trax
        if theArtist is null or theArtist is \(get artist of t\) then
            \-- Add this track:
            if not any then delete tracks of dstPl
            try
                duplicate t to dstPl
                set any to true
                set view of browser window 1 to dstPl
            end try
        end if
    end repeat

    if theTrack is not null then
        tell dstPl to play track theTrack
        set played to true
    end if

    if any and not played then my tryToPlay\(dstPl\)
    return any
end tell

end tryPlaylist