[REBOL] Re: Field color change on error.
From: rotenca:telvia:it at: 18-Oct-2002 2:11
Hi all,
> A font's style can be either none, 'bold, 'italic, 'underline or a
> block with the styles in. (Or an empty block). However, neither of
> these seem to work...
>
> set-font face style none
> set-font face style 'none
Set-font does not support none. It would be useful to do a little change to
the funtion:
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]
]
---
Ciao
Romano