411 REFERENCE · Wikibooks
Rebol Programming/set-style
Reference material by Wikibooks contributors. This retains its source identity and is not 411 news reporting.
USAGE:
SET-STYLE name new-face /styles ss
DESCRIPTION:
Set a style by its name.
SET-STYLE is a function value.
ARGUMENTS
name -- (Type: word)
new-face -- (Type: object)
REFINEMENTS
/styles
ss -- Stylesheet (Type: any)
SOURCE CODE
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]]
]