[Seaside] generating callback from ajax

[Milan Mimica]

I know I'm not supposed to reuse the canvas provided by
"WAComponent>>renderContentOn: html", but I am resusing it to generate
callbacks in ajax responses.
Something like this:
MyComponent>>renderContentOn: html
canvas := html.
... rendering ...
... registering callback ...

MyComponent>>ajaxCallback
| url |
  url := canvas actionUrl copy
		addField: (canvas callbacks store: (JSAjaxCallback on: [...]));
		yourself.
    self requestContext respond: [ :ret |
		ret	doNotCache;
			contentType: (WAMimeType applicationJson
				charset: self requestContext handler charSet).
		url asString jsonOn: ret stream].


It works. The question is: Is it bad?


-- 
Milan Mimica
http://sparklet.sf.net