12 lines
265 B
Smalltalk
12 lines
265 B
Smalltalk
rendering
|
|
renderContactsOn: html
|
|
html tbsTable: [
|
|
html tableHead: [
|
|
html
|
|
tableHeading: 'Photo';
|
|
tableHeading: 'Name';
|
|
tableHeading: 'Email';
|
|
tableHeading: 'Actions'
|
|
].
|
|
self contactsDo: [ :contact | self renderContact: contact on: html ]
|
|
] |