This is the type of edit field I am using, I think it is the regular  
edit field not Appearance


SetRect( r, 207, 67, 612, 83 )
s = ""
edit field _fontnamefield, s, @r, _framed, _leftJust
edit text #_fontnamefield, fn FMGetFontFamilyFromName( "Lucida  
Grande"), 13

SetRect( r, 207, 100, 299, 116 )
s = ""
edit field _cFontID, s, @r, _framed, _leftJust
edit text #_cFontID, fn FMGetFontFamilyFromName( "Lucida Grande"), 13