El siguiente Applescript debería funcionar:
on run
tell application "System Events"
tell current desktop
set desktopProperties to (get item 3 of (get properties as list) as text)
end tell
end tell
tell application "Finder"
reveal desktopProperties
end tell
end run
En Snow Leopard, para convertir esto en una acción útil, abra Automator.app
y seleccione del menú de plantilla Service
.
En la barra superior, que se lea: Service recibe No input
en any application
. Luego arrastre Run Applescript
desde el panel Biblioteca debajo de él y pegue el código Applescript anterior en esa ventana (reemplazando el código de plantilla predeterminado).
Guárdelo como un flujo de trabajo con el nombre adecuado (p Show Wallpaper
. Ej .). Esto aparecerá como una acción en el menú Servicios de todas las aplicaciones, o puede asignarle un atajo de teclado en el System Preferences\Keyboard Shortcuts
panel debajo Services
.
Referencias
- http://ask.metafilter.com/89541/OSX-Leopard-How-to-show-the-current-wallpaper-in-finder
/Library/Desktop Pictures/Nature/Aurora.jpg
.