property enableAlwaysShowArtwork : true
set theSystemLanguage to my systemLanguage()
if theSystemLanguage is "en" then
set showArtworkTitle to "Show Artwork"
set alwaysShowTitle to "Always Show"
set viewOptionsTitle to "View Options"
set viewAlbum to "Album"
else if theSystemLanguage is "de" then
set showArtworkTitle to "Cover einblenden"
set alwaysShowTitle to "Immer einblenden"
set viewOptionsTitle to "Darstellungsoptionen"
set viewAlbum to "Album"
set viewHinzugefuegt to "Hinzugefügt"
set viewAlbumInterpret to "Album-Interpret"
set viewBeatsproMinute to "Beats pro Minute"
set viewCDNummer to "CD-Nummer"
set viewDauer to "Dauer"
set viewEqualizer to "Equalizer"
set viewErschienen to "Erschienen"
set viewGenre to "Genre"
set viewiCloudDownload to "iCloud-Download"
set viewiCloudStatus to "iCloud-Status"
set viewInterpret to "Interpret"
set viewJahr to "Jahr"
set viewKomponist to "Komponist"
set viewMarkiert to "Markiert"
set viewTitelnummer to "Titelnummer"
set viewAlbumbewertung to "Albumwertung"
set viewBeschreibung to "Beschreibung"
set viewKomentar to "Kommentar"
set viewWerk to "Werk"
set viewWertung to "Wertung"
set viewGeaendert to "Geändert"
set viewHinzugefuegt to "Hinzugefügt"
set viewKaufdatum to "Kaufdatum"
set viewUEbersprungen to "Übersprungen"
set viewWiedergaben to "Wiedergaben"
set viewZuleztgespielt to "Zuletzt gespielt"
set viewZuletztuebersprungen to "Zuletzt übersprungen"
set viewAbtastrate to "Abtastrate"
set viewArt to "Art"
set viewDatenrate to "Datenrate"
set viewGroesse to "Größe"
set viewAlbumSort to "Album für Sortierung"
set viewAlbumIntSort to "Album-Interpret für Sortierung"
set viewIntSort to "Interpret für Sortierung"
set viewKopforSort to "Komponist für Sortierung"
set viewNameforSort to "Name für Sortierung"
set viewBroadcastSort to "Sendung für Sortierung"
set viewFolgeID to "Folgen-ID"
set viewFolgennummer to "Folgennummer"
set viewKategorie to "Kategorie"
set viewBroadcast to "Sendung"
set viewStaffel to "Staffel"
set SortManually to "Manuelle Sortierung"
set SortName to "Name"
end if
tell application "System Events"
if UI elements enabled then
tell application "iTunes" to activate
tell application process "iTunes"
if exists (some window whose title is viewOptionsTitle) then
set targetWindow to (some window whose title is viewOptionsTitle)
tell the targetWindow
-- Anfang alle Playlistkriterien abhaken
set theList to {showArtworkTitle, alwaysShowTitle, viewAlbum, viewHinzugefuegt, viewAlbumInterpret, viewAlbumInterpret, viewBeatsproMinute, viewCDNummer, viewDauer, viewEqualizer, viewErschienen, viewGenre, viewiCloudDownload, viewiCloudStatus, viewInterpret, viewJahr, viewKomponist, viewKomponist, viewMarkiert, viewTitelnummer, viewAlbumbewertung, viewBeschreibung, viewKomentar, viewWerk, viewWertung, viewGeaendert, viewHinzugefuegt, viewKaufdatum, viewUEbersprungen, viewWiedergaben, viewZuleztgespielt, viewZuletztuebersprungen, viewAbtastrate, viewArt, viewDatenrate, viewGroesse, viewAlbumSort, viewAlbumIntSort, viewIntSort, viewKopforSort, viewNameforSort, viewBroadcastSort, viewFolgeID, viewFolgennummer, viewKategorie, viewBroadcast, viewStaffel}
repeat with nItem in theList
tell checkbox nItem
if value is not 0 then click
end tell
end repeat
-- Ende alle Playlistkriterien abhaken
-- Anfang Playlistkriterien
set theList to {viewiCloudDownload, viewInterpret, viewAlbum, viewDauer, viewGenre, viewiCloudStatus, viewWertung, viewAlbumbewertung} -- < hier die Darstellungsoptionen eintragen die zur Darstellung gewünscht sind. Die hier angegebene Reihenfolge ist auch die Reihenfolge in der Playlist.
repeat with nItem in theList
tell checkbox nItem
if value is not 1 then click
end tell
end repeat
-- Ende Playlistkriterien
-- Anfang "Popup-Menü" für Sortierung
tell pop up button 1
click
delay 0.01
set listofItems to get name of every menu item
tell menu 1
click menu item viewAlbum -- < hier den Sortierer eintragen. Sortierung muss einer der ausgewählten Playlistkriterien sein die in "Playlistkriterien" ausgewählt wurden.
end tell
end tell
-- Ende "Popup-Menü" für Sortierung
click (some checkbox whose title is showArtworkTitle)
set theCheckBox to some checkbox whose title is alwaysShowTitle
set alwaysShowArtworkCheckBoxNeedsEnabling to (the value of theCheckBox is 0)
if enableAlwaysShowArtwork then
if alwaysShowArtworkCheckBoxNeedsEnabling then click theCheckBox
else
if not alwaysShowArtworkCheckBoxNeedsEnabling then click theCheckBox
end if
-- Anfang Slider für Covergrößendarstellung
set value of slider 1 to 2 -- < Werte für die Größen 0 = klein, 1 = mittel, 2 = groß
-- Ende Slider für Covergrößendarstellung
end tell
else
display dialog "Try opening the View options first"
end if
end tell
else
tell application "System Preferences"
activate
set current pane to pane "com.apple.preference.universalaccess"
display dialog "UI element scripting is not enabled. Check \"Enable access for assistive devices\" " & return & return & " (\"Zugriff für Hilfsgeräte aktivieren\")"
end tell
end if
end tell
on systemLanguage()
set appleLanguages to do shell script "defaults read NSGlobalDomain AppleLanguages"
tell application "System Events" to set languageList to the value of (make new property list item with properties {text:appleLanguages})
return the first item of the languageList
end systemLanguage