sub watch_variable
{
	my( $mainwindow, $scalarref, $coderef ) = @_;
	$mainwindow->Entry(
		-textvariable => $scalarref,
		-validate => 'all',
		-validatecommand => sub { $coderef->( $_[0] ); 1 },
	);
}