I have a problem
Whenever the about box displays my edit field's contents get cleared
I tried saving the contents using the code below but it is not working

Brian

local fn DoDialog
dim as long evnt, id

evnt = dialog(0)
id = dialog(evnt)

select case( evnt )
case _wndClose
select( id )
long if id = _Editor
window close #_Editor
end if
long if id = _aboutWnd
dim save$
save$ = EDIT$(_cEdit)
window close #_aboutWnd
//Edit Field #_cEdit, save$
INCLUDE "NewDocument.incl"
FN BuildMain
EDIT FIELD #_cEdit,save$

end if

window close id
end select
case _btnClick
select( id )
case _runBtn
INCLUDE "Interpreter.incl"
FN ParseEFLines(_cEdit)
case _NewBtn
Include "NewDocument.incl"
DEF FN InitNewDocument
FN InitNewDocument
case _CompileBtn
beep
end select
end select

end fn