REBOL Programming/set-font

USAGE:Edit

SET-FONT aface 'word val 

DESCRIPTION:Edit

(undocumented)

SET-FONT is a function value.

ARGUMENTSEdit

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

SOURCE CODEEdit

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]
]
Last modified on 13 November 2012, at 10:49