set-title: make function! [
	"Set and show window title."
	face [object!] "Window dialog face"
	title [string!] "Window bar title"
][
	face/text: title
	face/changes: 'text
	show face
]