addMessageView: aMessageView
	"Well TabBrush with: some brush appends
	- but we like to prepend"
	"messagesPlaceHolder := aMessageView with: messagesPlaceHolder.

		|h h2 t|
		Transcript clear.
		h := HTMLCanvas new.
		h div with: 'foo bar'.
		h2 := HTMLCanvas new.
		h2 with: h.

	messagesPlaceHolder with: aMessageView.
	"
	|htmlTagBrush|
	htmlTagBrush := HTMLCanvas new.
	htmlTagBrush with: aMessageView.
	htmlTagBrush with: messagesPlaceHolder.
	messagesPlaceHolder := htmlTagBrush.
	^ aMessageView