{curl 6.0, 7.0 applet} {curl-file-attributes character-encoding = "utf8"} {applet manifest = "manifest.mcurl", {compiler-directives careful? = true} } {value let feedback:MessageDisplay = {MessageDisplay} let full-name:TextField = {TextField width = 8cm, {validate-with {StringValidator min-chars = 3, max-chars = 25}, required?=true} } let user-age:TextField = {TextField width = 1cm, {validate-with {NumericValidator min-allowable = 18, max-allowable = 40}, required? = true, message = "Users must be between 18 and 40"} } let address1:TextField = {TextField width = 8cm, {validate-with {StringValidator min-chars = 3}} } let address2:TextField = {TextField width = 8cm, {validate-with {StringValidator min-chars = 3}} } let zip-code:TextField = {TextField width = 3cm, {validate-with ValidationPattern.us-zip-code} } let home-phone:TextField = {TextField width = 5cm, {validate-with ValidationPattern.us-phone-number, required?=true} } let email-address:TextField = {TextField width = 5cm, {validate-with ValidationPattern.email-address, required? = true} } let enter-button:CommandButton = {CommandButton label = "Enter", name = "e-button", {on Action do {popup-message {VBox "You entered:", full-name.value, address1.value, address2.value, zip-code.value, home-phone.value, email-address.value, user-age.value } } } } {Dialog {Table columns = 2, "Name:", full-name, "Address: ", address1, "City, State: ", address2, "Zipcode: ", zip-code, "Phone: ", home-phone, "Email: ", email-address, "Age: ", user-age, enter-button, feedback }, message-display = feedback, {validate-with {DialogValidator}}, {on vc:ValidationComplete at d:Dialog do set {d.get-by-name "e-button"}.enabled? = d.valid? } } }