{curl 6.0,7.0,8.0 applet}
{curl-file-attributes character-encoding = “shift-jis”}

{import * from CURL.RUNTIME.HOST-PROCESS}

{value
    {CommandButton
        {on Action do
            let hp:HostProcess =
                {spawn-host-shell
                    read-stdout? = true,
                    “ver”
                }
            let tis:TextInputStream = {hp.read-open-stdout}
            let str:StringBuf = {tis.read-one-string}
            {tis.close}
            {popup-message str}
        }
    }
}