Object subclass: Foo [
    | bar baz |

    Foo class >> descriptionBar [
	^Magritte.MAStringDescription new
	    beRequired;
	    label: 'Bar';
	    autoAccessor: #bar;
	    yourself
    ]

    Foo class >> descriptionBaz [
	^Magritte.MAStringDescription new
	    beRequired;
	    label: 'Baz';
	    autoAccessor: #baz;
	    yourself
    ]
]

Seaside.WAComponent subclass: FooComponent [
    
    FooComponent class >> canBeRoot [^true]

    renderContentOn: html [
	html anchor
	    callback: [self callNewFoo];
	    with: [html text: 'foo']
    ]

    callNewFoo [
	self call: Foo new asComponent 
	    addValidatedForm; 
	    yourself
    ]
]