[Seaside] Default classes for form input tags?

[Boris Popov]

Why is it that form fields get their class initialized by default to match
their type in

WAFormInputTag>>with: aBlock
 self type isNil ifFalse: [
  self attributes at: 'type' ifAbsentPut: [ self type ].
  self class: self type ].
 super with: aBlock.

I find it very odd that Seaside would try to impose any classes onto the
developer, same applies to WAListTag>>with: and these are the only two cases
I could find.

Thanks!

-Boris

-- 
+1.604.689.0322
DeepCove Labs Ltd.
4th floor 595 Howe Street
Vancouver, Canada V6C 2T5

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.

-------------- next part --------------
A non-text attachment was scrubbed...
Name: smime.p7s
Type: application/x-pkcs7-signature
Size: 3370 bytes
Desc: not available
Url : http://lists.squeakfoundation.org/pipermail/seaside/attachments/20060809/0b34e3d5/smime.bin