![]() |
Smalltalk/X WebserverSmalltalk Dynamic Web Pages - Source of WebDemoApp1-theSVG2: |
|
theSVG2:aRequest "a reply, generating svg which is embedded by test_svg2:" |builder| "/ suppress decoration aRequest response replyPresenter:nil. builder := HTML::SVGTreeBuilder 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) |
|
ST/X 7.2.0.0; WebServer 1.670 at bd0aa1f87cdd.unknown:8081; Fri, 29 Sep 2023 09:29:36 GMT
|