Rebol 编程/set-font

用法

SET-FONT aface 'word val 

描述

(未记录)

SET-FONT 是一个函数值。

参数

• aface -- (类型：任何)
• word -- (类型：任何)
• val -- (类型：任何)

源代码

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