6 lines
160 B
Smalltalk
6 lines
160 B
Smalltalk
rendering
|
|
renderRemoveButtonForContact: aContact on: html
|
|
html tbsButton
|
|
beDanger;
|
|
callback: [ self contactBook removeContact: aContact ];
|
|
with: 'Remove' |