REBOL [
    Title: "Field Style"
    Date: 6-Feb-2004
]

svvc/field: svvc/field-select: :white

stylize/master [
    FIELD: FACE 200x22 with [
        color: white
        colors: reduce [svvc/field svvc/field-select]
        edge: [size: 1x1 color: 68.98.125] ; [127.157.185]
        font: [color: svvc/field-font style: colors: shadow: none size: 11]
        para: [wrap?: off]
        feel: ctx-text/edit
        init: [
            if color [colors: reduce [color colors/2]]
            if not string? text [text: either text [form text][copy ""]]
            if not flag-face? self hide [data: text]
        ]
        flags: [field return tabbed on-unfocus]
        words: [hide [new/data: copy "" flag-face new hide args]]
    ]
]