Rebol Programming/set-style

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