411 REFERENCE · Wikibooks
Rebol Programming/set-font
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
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]
]