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