Subscribeon run
tell application "Finder"
select window of desktop
set curDesktop to (get desktop picture as text)
reveal curDesktop
end tell
end run
tell application "System Events"
tell current desktop to set currentDesktop to (get picture)
end tell
tell application "Finder"
reveal currentDesktop
activate
end tell
tell application "System Events"
tell current desktop
set currentDesktop to (get picture as text)
tell application "Finder"
reveal currentDesktop
end tell
end tell
end tell
get desktop picture acts as expected. I have another script that just throws out the current wallpaper. I just call it with quicksilver as needed and it works reliably for me. If you would like copies of the scripts, just MeMail me.You are not logged in, either login or create an account to post comments
on run
tell application "Finder"
select window of desktop
set curDesktop to (get desktop picture as text)
display dialog "The Current Desktop Image is " & curDesktop
end tell
end run
posted by jedicus at 4:11 PM on April 22