AppleScript - serious issue with "current playlist"

Question

Hi,
As I'm looking for weeks an elegant way to generate a Genius playlist from AppleScript although this option hasn't been built in (...), I finally found a workaround that clik on Genius button. However, this button's number (ID) change whether the displayed playlist is the Genius playlist or not. For this reason I tried to set two options in my script, laying on the ability to know whether the displayed playlist is the Genius one, thanks to "current playlist".
tell application "iTunes"
          if (name of current playlist) is "Genius" then
                    tell application "System Events"
  click button 12 of window "iTunes" of application process "iTunes"
                    end tell
          else
                    tell application "System Events"
  click button 10 of window "iTunes" of application process "iTunes"
                    end tell
          end if
end tell
However the "current playlist" seems like return to the playlist in which is the currently playing track, instead of the currently *targeted* track (as dictionary pretends)...
After many tests, it looks like it's the only reason why this script doesn't completely work.
Do you have any idea about how tell the targeted playlist?
Thanks for help!
Ben

Answer 1

Hi again,
Here the result of your script run on Lion:
{application process "iTunes" of application "System Events", {minimum value:missing value, orientation:missing value, position:{0, 0}, class:window, role description:"fenêtre standard", accessibility description:missing value, focused:false, title:"iTunes", size:{1440, 900}, value:missing value, help:missing value, enabled:missing value, maximum value:missing value, role:"AXWindow", entire contents:{}, subrole:"AXStandardWindow", selected:missing value, name:"iTunes", description:"fenêtre standard"}, {button 12 of window "iTunes" of application process "iTunes" of application "System Events"}}
It looks to me that Lion has a strange way to deal with fullscreen windows...
Moreover, it reminded me that I succeeded few days ago in generating Genius playlist while iTunes was in fullscreen mode (but not systemacilly) thanks to the line "telle "iTunes" to activate".
So, here is an update of your first script:
tell application "iTunes"
  name of (first window whose its class is browser window or its class is playlist window)
end tell
tell application "System Events" to tell window (the result) of process "iTunes"
          tell application "iTunes"
  activate
  play -- seems like script doesn't work in some cases if iTunes is not playing
          end tell
          click (first button whose value of attribute "AXDescription" is "Genius")
end tell
I tried every situation I can remember that didn't work before and now it seems to be completely funtional. So
thanks again! But I stay in touch in case you're curious about the result you asked me to post.