Le vendredi 24 avril 2009 à 17:02 +0200, Paolo Bonzini a écrit : > Do you have a minimal testcase?
Is the attached component example enough? Cheers! Nico > > Paolo
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
]
]
signature.asc
Description: Ceci est une partie de message numériquement signée
_______________________________________________ help-smalltalk mailing list [email protected] http://lists.gnu.org/mailman/listinfo/help-smalltalk
