Rebol Programming/set-font
Appearance
USAGE:
[edit | edit source]SET-FONT aface 'word val
DESCRIPTION:
[edit | edit source](undocumented)
SET-FONT is a function value.
ARGUMENTS
[edit | edit source]- aface -- (Type: any)
- word -- (Type: any)
- val -- (Type: any)
SOURCE CODE
[edit | edit source]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] ]