On 29 Jan 2004, at 6:51 am, Barry Levine wrote:

Jan,

Would you mind providing the exact line(s) of Transcript one would use to accomplish that AppleScript task?

TIA,
Barry

Try this: (watch out for line wraps)


on mouseUp
  put "MooV,JPEG,PNGf,GIFf,TIFF,BMP" into tFilters
  put "Select a Quicktime file:" into tPrompt

  put getFilePath(tFilters, tPrompt) into tFile
  answer tFile
end mouseUp


function getFilePath pFilters, pPrompt
-- change comma-delimited list of filters to AppleScript list
-- force each file type to 4 characters
put "{" into tASfilters
repeat for each item i in pFilters
put quote & char 1 to 4 of (i & " ") & quote & comma after tASfilters
end repeat
put "}" into last char of tASfilters


  -- do the AppleScript which calls the file selector
  put "choose file with prompt " & quote & pPrompt & quote & \
     " of type " & tASfilters into tScript
  do tScript as AppleScript
  put the result into tFile
  if tFile is empty then return empty    -- no file chosen

  -- format from Mac file path to Rev file path
  delete word 1 of tFile            -- get rid of the word alias
  replace quote with "" in tFile    -- get rid of the quotes
  put revUnixFromMacPath(tFile) into tFile
  return tFile
end getFilePath

Cheers,
Sarah

_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution

Reply via email to