my $sw = $mw->screenwidth;
	my $sw_new=int($sw*.99);
	$mw->geometry("${sw_new}x400+0+0");