# Dialog chapter
proc Feedback { message } {
	global feedback
	# An entry widget is used because it won't change size
	# based on the message length, and it can be scrolled
	set e $feedback(entry)
	$e config -state normal
	$e delete 0 end
	$e insert 0 $message
	# Leave the entry in a read-only state
	$e config -state disabled
	# Force a display update
	update idletasks
}
