wfcreate usage in LPA prolog

[GFORCE100]

Hello,

I have a dialog box as below and I want to assign a new larger font to parse_box, 9000. (something like Arial, size 12 etc.)

I have tried following the wfcreate( foo, arial, 16, 0 ), wfont( (1,1), foo ). example however seem to run into something
about a predicate being protected each time.

Where am I going wrong? Won't it be something like:

wfcreate( myfontname, arial, 12, 0 ), wfont( (parse_box,10000), myfontname).


Dialog code:
_S1 = [dlg_ownedbyprolog,ws_sysmenu,ws_maximizebox,ws_minimizebox,ws_thickframe,ws_caption],
_S2 = [ws_child,ws_visible,ws_border,ws_hscroll,ws_vscroll],
_S3 = [ws_child,ws_visible,ws_tabstop,ws_border,es_left,es_autohscroll],
_S4 = [ws_child,ws_visible,ws_tabstop,bs_pushbutton],
_S5 = [ws_child,ws_visible,ss_left],
_S6 = [ws_child,ws_visible,ss_left,ss_sunken],
wdcreate( parse_box, `Mr Fix-it`, 234, 174, 598, 474, _S1 ),
wccreate( (parse_box,9000), grafix, `Grafix1`, 10, 80, 570, 310, _S2 ),
wccreate( (parse_box,8000), edit, ``, 10, 29, 460, 21, _S3 ),
wccreate( (parse_box,1), button, `Parse it`, 480, 25, 100, 22, _S4 ),
wccreate( (parse_box,10000), static, `Please enter your name:`, 10, 12, 200, 16, _S5 ),
wccreate( (parse_box,10001), static, `Please view your account details below:`, 10, 62, 250, 16, _S5 ),
wccreate( (parse_box,11000), static, `Programming by XXX, Version 1.00`, 10, 400, 570, 20, _S6 ).

Many thanks,