10 lines
254 B
Smalltalk
10 lines
254 B
Smalltalk
rendering
|
|
renderEmailFieldOn: html
|
|
html tbsFormGroup: [
|
|
html label: 'Email'.
|
|
html emailInput
|
|
tbsFormControl;
|
|
placeholder: 'your@email.eu';
|
|
callback: [ :email | self contact email: email address ];
|
|
value: (self contact email ifNil: '')
|
|
] |