REBOL [
    Title: "Dialog Box"
    File: %dialog.r
    Date: 20-May-2000
    Purpose: {
        Pops up a dialog requestor that displays a message
        and waits for the user to click a button.
    }
    Category: [view VID 1]
]

dialog: layout [
    backdrop effect [gradient 1x1 0.0.0 0.0.180]
    h2 "Important Notice:" red
    text yellow 200x100 {
        REBOL/View is not a toy. Use only under the supervision
        of a highly trained evangelist.
    }
    button "I Promise" [hide-popup]
]

view layout [
    backdrop effect [gradient 0.100.0 0.0.0]
    title white "Example"
    button "Click for Dialog" [inform dialog]
    button "Quit" [quit]
]