Damnable Google groups has word wrapped the text of my AppleScript.
Something needs to be done about that.

Save this AppleScript as a drag and drop application. You'll have to 
change the path to the SetFile tool.

on open (argList)
  repeat with theAlias in argList
  set thePath to quoted form of POSIX path of theAlias
  -- display dialog thePath
  set creatorcode to "'R*ch'"
  -- display dialog creatorcode
  set command to "/Users/doug/bin/SetFile -t TEXT -c " & creatorcode & 
space & thePath
  -- display dialog command
  do shell script command
  end repeat
  end open

-- 

--> A fair tax is one that you pay but I don't <--

--~--~---------~--~----~------------~-------~--~----~
You received this message because you are subscribed to the Google
Groups "BBEdit Talk" group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/bbedit?hl=en
If you have a specific feature request or would like to report a suspected (or 
confirmed) problem with the software, please email to "[email protected]" 
rather than posting to the group.
-~----------~----~----~----~------~----~------~--~---

Reply via email to