test_svg2:aRequest
    "a reply, generating html using an HTMLBuilder

     Invoke via the browser as URL:
        host:port/<N>,svg1:
     where <N> is the registered name of this service.
    "

    |builder|

    builder := HTML::TreeBuilder newDocument.
    builder title:'hhh'.
    builder body.
    builder h1:'SVG Example'.
    builder div:[
        builder text:'hello world'
    ].
    builder iframe src:(aRequest linkIdFor:self selector:#'theSVG2:').
    builder iframeEnd.
    builder bodyEnd.

    aRequest response
        nextPutAll:(builder htmlString)

Edit (disabled)
Index