rebol []
do %filtimp.r

user-data: func [ fields [block!]
        /local bl
][
        bl: copy []
        foreach field fields [
                append bl field
		attempt [ append bl load get-face do field ]
        ]
        bl
]
validation-rule: [
vname: string!
vdate: date!
vtime: time!
vinc: decimal!
]


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 ]
                import/else user-data validation-rule 'errors
        ]
]