theSVG1:aRequest
    "a reply, generating svg which is embedded by test_svg1:"

    |builderClass builder|

    "/ suppress decoration
    aRequest response replyPresenter:nil.

    (builderClass := Smalltalk classNamed:'HTML::SVGTreeBuilder') isNil ifTrue:[
        Smalltalk loadPackage:'stx:goodies/webServer/htmlTree/svg'.
        (builderClass := Smalltalk classNamed:'HTML::SVGTreeBuilder') isNil ifTrue:[
            self error:'failed to load SVG package'.
        ].
    ].
    builder := builderClass new.
    builder
       svg; 
         viewBox:(0@0 corner:270@400);
         width:'100%';
         height:'100%';
         g; id:'mainlayer';
           rect; 
             fill:'red'; stroke:'black'; x:15; y:15; width:100; height:50;
             onClick:'alert(''you clicked on red'');';
           rectEnd;
           rect; 
             fill:'blue'; stroke:'black'; x:150; y:15; width:100; height:50; rx:12; ry:18; 
             onClick:'alert(''you clicked on blue'');';
           rectEnd;
         gEnd;
       svgEnd.

    aRequest response
        nextPutAll:(builder xmlString)

Edit (disabled)
Index