> self session currentRequest at: #beXml ifPresent: [ : it |
> self session returnResponse:
> (WAResponse new
> contentType: 'text/xml' ;
> contents: someObject sixxString readStream ;
> yourself)]
>
If you make your own WACanvas subclass too you can do something like this:
response := Seaside.WAResponse new.
response contentType: 'application/atom+xml'.
response nextPutAll: '<?xml version="1.0" encoding="utf-8"?>'.
atom := SeasideAtom.AtomCanvas new.
atom context: html context.
html context document stream: response stream.
... do stuff with our new atom canvas ...
self session returnResponse: response.
_______________________________________________
seaside mailing list
seaside@...
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside
