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
_______________________________________________
use-revolution mailing list
[EMAIL PROTECTED]
http://lists.runrev.com/mailman/listinfo/use-revolution
