on scriptParsingError theError
ErrorOccured
end scriptParsingError
on errorDialog theError
ErrorOccured
end errorDialog
on errorOccured
answer "an error occured, could it be that this file does not exist?"
end errorOccured
@ 7 E choose file p on mouseUp answer file "a file" if the result is empty or it is not empty then put it into field "path" else beep end if end mouseUp d cREVGeneral scriptChecksum t܌F~E2܈_Vb bookmarks revUniqueID 1043427723955 handlerList mouseUpscriptSelection char 129 to 128 prevHandler mouseUp tempScript scripton mouseUp
answer file "a file"
if the result is empty or it is not empty then
put it into field "path"
else
beep
end if
end mouseUp
path )` 0 cREVGeneral revUniqueID 1043431139778 compress pon mouseUp set the itemDelimiter to "." put field "path" into thePath if thepath is empty then errorOccured exit mouseUp end if put compress( URL "BINFILE:" & thepath) into URL ("binfile:" & item 1 to -2 of thePath & ".gz") end mouseUp j d cREVGeneral scriptChecksum <# ݭB revUniqueID 1043431233210 bookmarks handlerList mouseUp tempScript prevHandler mouseUpscriptSelection char 114 to 113scripton mouseUp
set the itemDelimiter to "."
put field "path" into thePath
if thepath is empty then
errorOccured
exit mouseUp
end if
put compress( URL "BINFILE:" & thepath) into URL ("binfile:" & item 1 to -2 of thePath & ".gz")
end mouseUp
decompress p on mouseUp set the itemDelimiter to "." put field "path" into thePath put decompress( URL "BINFILE:" & thepath) into URL ("binfile:" & item 1 to -2 of thePath & ".rev") end mouseUp d cREVGeneral scriptChecksum I@ 5FhMDQ revUniqueID 1043431390243 bookmarks handlerList mouseUp tempScript prevHandler errorDialogscriptSelection char 188 to 187script ]on mouseUp
set the itemDelimiter to "."
put field "path" into thePath
put decompress( URL "BINFILE:" & thepath) into URL ("binfile:" & item 1 to -2 of thePath & ".rev")
end mouseUp
New Field 1 34 Tabs false cREVGeneral revUniqueID 1043432440497 BYou can also type in a filepath instead of clicking "choose file"