>Yes, I meant an EditBox.
>Thanks,
>Cecil
>
Use STRTOFILE and FILETOSTR functions. Something like this:

********************************************************************
*  Description.......: FunctionCode1.DblClick()
*  Calling Samples...:
*  Parameter List....:
*  Created by........: Nadya Nosonovsky 05/24/2000 03:43:01 PM
*  Modified by.......: Nadya Nosonovsky 05/24/2000 05:06:43 PM
********************************************************************
local lcFunCode, lcFilePath, lcFunName, lcFile, lcCheckSum
lcFunCode=rtrim(this.value)
lcCheckSum=sys(2007,lcFunCode)
lcFilePath=addbs(alltrim(thisform.pgfFunctions.pageEdit.Funpath1.value)) && Full path
if thisform.CheckPath(m.lcFilePath)
	lcFunName=alltrim(thisform.pgfFunctions.pageEdit.FunName1.value) && Function name
	lcFile=m.lcFilePath+ m.lcFunName + '.prg'
	=strtofile(m.lcFunCode,m.lcFile)
	set message to "Program for " + m.lcFunName 
	modify command (m.lcFile)
	lcFunCode=rtrim(filetostr(m.lcFile))
	if sys(2007,m.lcFunCode)<>m.lcCheckSum && File was modified
		this.statusbartext='Program '+ m.lcFunName+' was modified...'
		this.value=m.lcFunCode
		this.refresh()
	endif
endif