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

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

{value
 
    def container =
        {FromToDateFieldContainer
            {CoreDateField}, {CoreDateField}, width = 10cm}

    {spaced-vbox
        {text Nomal DateField},
        {DateField width = 5cm},

        {text Advanced DateField},
        {CoreDateField width = 5cm},
        {FromToDateFieldContainer
            {CoreDateField}, || frome
            {CoreDateField}, || to
            between-date-fields = {text 〜},
            width = 10cm,
            {on e:ValueFinished at v:FromToDateFieldContainer do
                {if not v.valid-values? then
                    {popup-message “Not valid values…”}
                }
            }
        },

        {spaced-hbox
            container,
            {CommandButton label = “valid values?”,
                {on Action do
                    {popup-message container.valid-values?}
                }
            }
        }
    }
}