{curl 6.0 applet}
{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
    || Disclosuer
    def frame1 =
        {DisclosureFrame
            width = 3cm,
            height = 5cm,
            background = “pink”,
            {spaced-vbox
                {TextField},
                {ComboBox}
            }
        }

    def frame2 =
        {DisclosureFrame
            width = 3cm,
            height = 5cm,
            background = “yellow”,
            {spaced-vbox
                {TextField},
                {ComboBox}
            }
        }
   
    {spaced-vbox
        {text Disclosure},

        || normal CommandButton
        {CommandButton
            label = “switch!”,
            {on Action do
                {frame1.switch}
            }
        },
        frame1,

        || DisclosureCommandButton
        {DisclosureCommandButton
            ||open-label = “open!!”,
            ||close-label = “close!!”,
            frame2
        },
        frame2
    }
}