{radio1.add-event-handler
        {on ValueChanged do
           
            ||適用すべきロケールを選択します
            let my-locale:Locale = {Locale “en”}
            {switch {String radio1.value} 
             case  “English” do
                set my-locale = {Locale “en” }
             case  “Japanese” do
                set my-locale = {Locale “ja”}
             case  “Korean” do
                set my-locale = {Locale “ko”}
            }

            ||選択されたロケールを設定します
            {set-working-locale my-locale}

            ||[Do you want to log off now?]という文字列を
            ||現在のロケールに対応する翻訳ファイルを参照して表示します
            set hlr.value = {hlmessage Do you want to log off now?}
            set result1.value = {lmessage Do you want to log off now?}
           
            ||現在のワーキングロケールを取得
            def gwl-l = {get-working-locale}  
            set gwl.value = gwl-l.name
            ||現在のホストロケールを取得
            def ghl-l = {get-host-locale}  
            set ghl.value = ghl-l.name
        }
    }