-- <<<- global theHelpPage := object (WebPage) title: "HELP!" base: theSXPrefix contents object (WebHeading) level: 1 contents object (WebProp) prop: @message default: "I can't think of anything clever to say." end end "Here is what I can do:" object (WebMacro) func: (self str props -> local services := new WebBulletedList forEach theWebServer.services (service x -> append services ( object (WebBrokenLines) contents object (WebLink) url: service.name contents service.name end service.about end) ) ok services ) end "Click on one of the above to try out a service!" object (WebHorizontalLine) end object (WebAddress) contents "This ScriptX web server is an experimental multimedia production by " object (WebLink) url: "http://web.kaleida.com/u/hopkins" contents "Don Hopkins!" end end end registerService theWebServer \ (new WebService \ name: "Help" \ about: "Display a list of fun services you can click on!" \ handler: (service request params -> printHTML theHelpPage (new String) \ #(@message: "Help me, Spock!"))) -- >>>