get-values.r

rebol []

user-data: func [ fields [block!]
    /local bl
][
    bl: copy []
    foreach field fields [
        append bl field
        append bl get-face do field
    ]
    bl
]

view layout [
        text "name" vname: field
        text "edate" vdate: field
        text "etime" vtime: field
        text "income" vinc: field

        button "validate" [
            probe user-data [ vname vdate vtime vinc ]
        ]
]