Rebol Programming/set-font

From Wikibooks, open books for an open world
Jump to navigation Jump to search

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]
]