property mFile
global mTextFile
property mTextField
global mDirectory
property textFieldsList
property defaultTextField
property deleteTextFile
on beginSprite me
textFieldsList = []
maxCastLib = the number of castLibs
repeat with theCastLib = 1 to maxCastLib
maxMember = the number of members of castLib theCastLib
repeat with memNumber = 1 to maxMember
set ooMember = member(memNumber, theCastLib)
if ooMember.type = #field then
if ooMember.name = EMPTY then
textFieldsList.append(ooMember)
else
textFieldsList.append(ooMember.name)
end if
end if
end repeat
end repeat
return textFieldsList
defaultTextField = textFieldsList[1]
end beginSprite
on mouseUp
if deleteTextFile = TRUE then deleteFile
writeFile
end
on writeFile
if objectP(mFile) then set mFile = 0
set theFile = the text of field mTextField
set mFile = new(xtra "fileio")
if the moviePath = "" then
alert "did you brush your teeth ??"
else
createFile( mFile, mDirectory&mTextFile&".txt")
openFile(mFile, mDirectory&mTextFile&".txt",0)
setPosition(mFile,getLength(mFile))
writeString(mFile, theFile)
alert "File Written: "&error(mFile,status(mFile))
end if
closeFile (mFile)
set mFile = 0
end writeFile
on deleteFile
if objectP(mFile) then set mFile = 0
set mFile = new(xtra "fileio")
if the moviePath = "" then
alert "did you brush your teeth ??"
else
openFile (mFile, mDirectory&mTextFile&".txt",0)
delete (mFile)
alert "File Deleted: "&error(mFile,status(mFile))
end if
closefile (mfile)
set mFile = 0
end deleteFile
on getPropertyDescriptionList
set description = [:]