eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test_svg2:

Home

Documentation
www.exept.de
Everywhere
for:
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
Index


ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Sun, 15 Sep 2019 18:04:23 GMT