Rebol Programming/set-font

USAGE:

SET-FONT aface 'word val 

DESCRIPTION:

(undocumented)

SET-FONT is a function value.

ARGUMENTS

• aface -- (Type: any)
• word -- (Type: any)
• val -- (Type: any)

SOURCE CODE

set-font: func [aface 'word val][
    if none? aface/font [aface/font: vid-face/font] 
    if not flag-face? aface font [aface/font: make aface/font [] flag-face aface font] 
    either word = 'style [
        either none? val [aface/font/style: none] [
            if none? aface/font/style [aface/font/style: copy []] 
            if word? aface/font/style [aface/font/style: reduce [aface/font/style]] 
            aface/font/style: union aface/font/style reduce [val]
        ]
    ] [set in aface/font word val]
]