{let rta:RichTextArea = {RichTextArea}}
{value rta}
{CommandButton label = "Publish",
    {on e:Action do
        {{View
             {evaluate
                 {rta.format-as-curl-source-fragment}
             }
         }.show}
        {e.consume}
    }
}

{let rta:RichTextArea = {RichTextArea height = 1in}}
{let ta:TextArea = {TextArea width = 10cm, height = 1in}}
{value rta}{br}{value ta}

{CommandButton label = "Format",
    {on e:Action do
        set ta.value = {rta.format-as-curl-source-fragment}
        {e.consume}
    }
}
{CommandButton label = "Parse",
    {on e:Action do
        let success?:bool =
            {rta.parse-curl-source-fragment ta.value}
        {if not success? then
            {popup-message
                title = "Warning",
                {text
                    Some content or formatting may have
                    been lost while parsing the source
                    code fragment.
                }
            }
        }
        {e.consume}
    }
}