10 lines
252 B
Smalltalk
10 lines
252 B
Smalltalk
rendering
|
|
renderFullnameFieldOn: html
|
|
html tbsFormGroup: [
|
|
html label: 'Fullname'.
|
|
html textInput
|
|
tbsFormControl;
|
|
placeholder: 'fullname';
|
|
callback: [ :value | self contact fullname: value ];
|
|
value: (self contact fullname ifNil: '')
|
|
] |