6 lines
121 B
Smalltalk
6 lines
121 B
Smalltalk
rendering
|
|
renderCancelButtonOn: html
|
|
html tbsButton
|
|
beDanger;
|
|
cancelCallback: [ self answer: nil ];
|
|
with: 'Cancel' |