{curl 6.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}
{applet manifest = “manifest.mcurl”}

{import * from COM.CURLAP.ADVANCED-UI.CONTROLS}
{import * from COM.CURL.GUI.STYLED-CONTROLS}
{install-style-sheet {manifest-url “file”, “DEFAULT-STYLE-SHEET”}}

{value

    {spaced-vbox
        {text Normal TextField},
        {TextField
            {validate-with
                {NumericValidator}, required? = true
            },
            {on e:ValidationComplete at v:TextField do
                {if v.valid? then
                    {dump e, v}
                }
            }
        },

        {text ValidationTextField},
        {ValidationTextField
            {validate-with
                {NumericValidator},
                required? = true,
                dialog-on-finished? = false
            }
        },

        {ValidationTextField
            prompt = “Just numeric value.”,
            ok-image = {url “images/1.png”},
            ng-image = {url “images/5.png”},
            height = 2cm,
            width = 10cm,
            font-size = 1cm,
            color = “red”,
            {validate-with
                {NumericValidator},
                required? = true,
                dialog-on-finished? = false
            },
            || NOTE: v:CoreTextField (not ValidationTextField)
            {on e:ValueFinished at v:CoreTextField do
                {dump e, v.value}
            }
        }

    }
}