{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
    {Frame
        background = “grey”,
        {spaced-hbox
            || extra-mnemonic tests :handle any key events
            {CoreCommandButton
                label = “F1”,
                extra-mnemonic = “f1”,
                {on Action do
                    {popup-message “mnemonic1”}
                }
            },
            {CoreCommandButton
                label = “F2”,
                extra-mnemonic = “f2”,
                {on Action do
                    {popup-message “mnemonic2”}
                }
            },
            {CoreCommandButton
                label = “F3”,
                extra-mnemonic = “f3”,
                enabled? = false,
                {on Action do
                    {popup-message “mnemonic3”}
                }
            },
            {CoreCommandButton
                label = “F12”,
                extra-mnemonic = “f12”,
                {on Action do
                    {popup-message “mnemonic12”}
                }
            }
        }
    }
}