for (my $i = 0; $i < $rows; $i++) {
	$tl->gridRowconfigure($i,
			-weight => 1,
			-minsize => 13
				);
}

$tl->geometry( 630x461+113+74 );