REBOL/View 2.7



REBOL [] view layout [ h2 "Demo" area btn "Click Me" ]

the-form: layout [
across space 2x8
style label vtext bold 100x24 middle right
style bar box 306x3 edge [size: 1x1 color: water effect: 'bevel]
backcolor water bar return

    label "Full Name"     f1: field 200 return
    pad 120 c1: check vtext "Programmer" bold return
    pad 120 c2: check vtext "Operator" bold return
    label "Email Address" f2: field return
    label "Phone Number"  f3: field return
    label "Your Comments" f4: area wrap 200x100 return

    bar return
    pad 40 space 100
    btn-enter 60 "Submit" [
        unview/only the-form
        show-results
    ]
    btn-cancel 60 "Close" [unview/only the-form]
]
the-form/effect: [gradient 0x1]