action
title: aTitle text: aText
	^ self new
		title: aTitle;
		text: aText;
		yourself