test_svg1: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 embed:(aRequest linkIdFor:self selector:#'theSVG1:').
    builder bodyEnd.

    aRequest response
        nextPutAll:(builder htmlString)

Edit
Index