In the sample below, uncommenting the first PROMPT clause the font is reverted to the default one:
EMG
#include "Fivewin.ch"
FUNCTION MAIN()
LOCAL oDlg, oFnt
DEFINE FONT oFnt NAME "Arial" SIZE 0, -9
DEFINE DIALOG oDlg
ACTIVATE DIALOG oDlg;
ON INIT TOOLBAR( oDlg, oFnt );
CENTER
RELEASE FONT oFnt
RETURN NIL
STATIC FUNCTION TOOLBAR( oDlg, oFnt )
DEFINE BUTTONBAR OF oDlg SIZE 40, 40 2007
DEFINE BUTTON OF oDlg:oBar;
// PROMPT "Test"
DEFINE BUTTON OF oDlg:oBar;
PROMPT "Test";
FONT oFnt
RETURN NILEMG
