[Seaside] Q: WATagBrush>>before

[Boris Popov]

I'm trying to figure out how to extend WASubmitButtonTag to render some
<script> *before* proceeding with the <input> and my first hunch was to
override #before, but it's not quite what I'd hoped for. I ended up
overriding #openTag instead as follows, but wanted to hear if there's a
better way of doing it and if there's any problem with my hack as is?
Initial testing seems to indicate that it works as expected,

WASubmitButtonTag>>openTag

 self myScript ifNotEmpty: [:str |
  canvas forgetCurrentBrush.
  canvas script: (str expandMacrosWith: self ensureId).
  canvas brush: self].
 super openTag

Thanks!

-Boris

-- 
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5
http://tinyurl.com/r7uw4

boris at deepcovelabs.com

CONFIDENTIALITY NOTICE

This email is intended only for the persons named in the message
header. Unless otherwise indicated, it contains information that is
private and confidential. If you have received it in error, please
notify the sender and delete the entire message including any
attachments.

Thank you.