{curl 7.0 applet}

{CommandButton
    label = "click here",
    {on Action do
        || shortcut procedure for creating a modal
        || popup dialog
        {popup-message
            {VBox
                {CheckButton
                    label = "My CheckButton",
                    || Attach dynamic event handler
                    {on ValueChanged at cb:CheckButton do
                        set cb.label = cb.value
                    },
                    {on ValueFinished do
                        {popup-message "ValueFinished was fired!"}
                    }
                }
            }
        }
    }
}