content: property fileTypes : {{«class PNGf», ".png"}}
  property pathTypes : {{«class furl»}}
  
  on run argv
  	if argv is {} then
  		return ""
  	end if
  	
  	try
      	(item 1 of (clipboard info for «class furl»))
  		return POSIX path of (the clipboard as «class furl»)
  	on error
  		set imagePath to (item 1 of argv)
  		set theType to getType()
  		
  		if theType is not missing value then		
  			try
  				set myFile to (open for access imagePath with write permission)
  				set eof myFile to 0
  				write (the clipboard as (first item of theType)) to myFile
  				close access myFile
  				return (POSIX path of imagePath)
  			on error
  				try
  					close access myFile
  				end try
  				return ""
  			end try
  		else
  			return "no image"
  		end if
  	end try
  
  end run
  
  on getType()
  	repeat with aType in fileTypes
  		repeat with theInfo in (clipboard info)
  			if (first item of theInfo) is equal to (first item of aType) then return aType
  		end repeat
  	end repeat
  	return missing value
  end getType
  
  