eXept Software AG Logo

Smalltalk/X Webserver

Smalltalk Dynamic Web Pages - Source of WebDemoApp1-test_svg1:

Home

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


ST/X 7.7.0.0; WebServer 1.702 at 20f6060372b9.unknown:8081; Sat, 21 Dec 2024 16:14:52 GMT