{curl 2.0 applet}

{import * from CURL.RUNTIME.HOST-PROCESS

}

{let contents:TextFlowBox = {DefaultTextFlowBox}}
{title html2curl gui}
Created curl file is saved as \"tmp.curl\". 
Use the save as-button to rename it.

{CommandButton
    label = "convert html2curl..",
    {on Action do
        {if-non-null u = {choose-file} then
            {if {local-file-exists? u} then
                {run-host-process
                    {url "html2curl.exe"},
                    {StringArray 
                        {non-null u.local-filename},
                        {non-null {url "tmp.curl"}.local-filename}
                    }
                }
                {with-busy-cursor
                    {contents.clear}
                    {try
                        {elaborate {url "tmp.curl"},
                            visual = contents
                        }
                     catch e:Throwable do
                        {contents.add e}
                    }
                }
            }
        }
    }
}
{CommandButton label = "save as ..",
    {on Action do
        {if-non-null u = {choose-file style = FileDialogStyle.save-as} then
            {write-to u, {contents.get-text}}
        }
    }
}
    
{value contents}