Submit Hint Search The Forums LinksStatsPollsHeadlinesRSS
14,000 hints and counting!

Click here to return to the 'Create an iTunes Genius playlist via keyboard shortcut' hint
The following comments are owned by whoever posted them. This site is not responsible for what they say.
Create an iTunes Genius playlist via keyboard shortcut
Authored by: ptujec on Jan 20, '11 02:33:56PM
Thanks! That actually helped! Thats what I am using:
-- iTunes - New Genius Playlist
-- source:
-- The script will use the currently selected song as the basis for your genius playlist. 
-- Checks if iTunes is hidden and keeps that way after script is done.
-- edited by ptujec
-- last edited 2011-01-20

tell application "System Events"
		if visible of process "iTunes" is true then
			set okflag to true
			set okflag to false
		end if
		tell application "iTunes"
			reveal current track
		end tell
	end try
	my _action()
	if okflag is false then
		set visible of process "iTunes" to false
	end if
end tell --

on _action()
		tell application "System Events"
			tell process "iTunes"
				repeat with the_button in every button of window 1
					set the_props to properties of the_button
					if description of the_props is "genius" then
						click the_button
						-- return
					end if
				end repeat
			end tell
		end tell
	end try
end _action

[ Reply to This | # ]