.rev file association issues

[Monte Goulding]

Howdy

Try this:

on mouseUp
  answer file "Choose Rev"
  if the result is "cancel" then exit mouseUp
  put replaceText(theF,"/","\") into theF
  put theF,1 into dIcon
  put theF & " %1" into sCom
  get setRegistry("HKEY_CLASSES_ROOT\.rev\", "Revolution")
  get setRegistry("HKEY_CLASSES_ROOT\Revolution\", "Revolution Stack")
  get setRegistry("HKEY_CLASSES_ROOT\Revolution\DefaultIcon\", dIcon)
  get setRegistry("HKEY_CLASSES_ROOT\Revolution\shell\open\command\", sCom)
end mouseUp

Cheers

Monte