renderContentOn: html
	super renderContentOn: html.
	m := model shallowCopy.
	html form: [
		html text: 'Full name : '.
		html textInput on: #fullname of: m.
		html break.
		html text: 'Birthdate : '.
		html dateInput on: #birthdate of: m.
		html break.
		html submitButton 
			text: 'Test temporary';
			callback: [self inform: m fullname].
		html submitButton 
			text: 'Save';
			callback: [model := m shallowCopy. self inform: model fullname. self answer].
		html cancelButton  
			text: 'Cancel';
			callback: [self answer].
		]