Rebol 程式設計/set-style

用法

SET-STYLE name new-face /styles ss 

描述

透過名稱設定樣式。

SET-STYLE 是一個函式值。

引數

• name -- (型別：字)
• new-face -- (型別：物件)

細化

• /styles
  • ss -- 樣式表 (型別：任何)

原始碼

set-style: func [
    "Set a style by its name." 
    name [word!] 
    new-face [object!] 
    /styles ss "Stylesheet" 
    /local here
][
    if none? styles [ss: vid-styles] 
    either here: find ss name [change next here new-face] [repend ss [name new-face]]
]