(* dm at mayart.de, Dezember 2008

Adobe Illustrator CS
Aktives Dokument im Finder umbenennen.

Das Skript muss im Apple Skripteditor als *.scpt gespeichert und kann
unter Programme > Adobe Illustrator CSx > Vorgaben > Skripte abgelegt werden. 
Nach Neustart von Illustrator findet man es im Menü Datei > Skripten. 

Es geht auch mit dem Skript Menü in OS X (installieren mit AppleScript Utility in Programme > Applescript)
oder besser mit FastScripts: <http://www.red-sweater.com/fastscripts/index.html>.
Hier liegen die Skripte in ~/Library/Scripts/...

*)

tell application "Adobe Illustrator"
	
	set current_dok to (current document)
	
	set dok_name to name of current_dok
	
	display dialog "New Name:" default answer dok_name buttons {"Cancel", "Rename"} default button 2
	
	copy the result as list to {text_returned, button_pressed}
	
	if button_pressed is "Rename" then
		
		set dok_path to file path of current_dok
		
		save current_dok
		
		close current_dok
		
		set new_dok_path to (my rename_dok(dok_path, text_returned))
		
		open new_dok_path without dialogs
		
	end if
	
end tell


on rename_dok(dok_path, new_name)
	
	tell application "Finder"
		
		set dok_path to dok_path as alias
		
		set name of dok_path to new_name
		
		set new_dok_path to dok_path
		
	end tell
	
	return new_dok_path
	
end rename_dok