独自アプレットでのファイルダウンロードダイアログについて

[usami]

ありがとうございます。choose-fileを使って自己解決しました。
以下のようにするとできそうです。

Code:

{try
    def dlString:String = "http://curl.com/test.zip"
    let in-url:Url = {abs-url dlString}
    let out-file:#Url =
        {choose-file
            default-location={url {get-host-working-directory-url} & "/" & in-url.filename},
            style=FileDialogStyle.save-as,
            title="名前をつけて保存"
        }
    {if-non-null out-file then
        {copy in-url, {non-null out-file}, error-if-exists? = false, recurse? = false}
    }
catch e:Exception do
    {popup-message
        {VBox
            halign = "center",
            "ファイルのダウンロードに失敗しました。",
            e.message
        }
    }
}