Mailing List Archive: 49091 messages
  • Home
  • Script library
  • AltME Archive
  • Mailing list
  • Articles Index
  • Site search
 

[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