Tk::Pane: fix precedence warning (new in perl 5.41.x)

Warning looked like this:

   Possible precedence problem between ! and numeric eq (==) at .../blib/lib/Tk/Pane.pm line 297

Author: eserte

Tk/Pane.pm

@@ -294,7 +294,7 @@ sub xyview {
 
 	my $gridded = $pan->{Configure}{'-gridded'} || '';
 	my $do_gridded = ($gridded eq 'both'
-				|| (!$horz == ($gridded ne 'x'))) ? 1 : 0;
+				|| ((!$horz) == ($gridded ne 'x'))) ? 1 : 0;
 
 	if($do_gridded && $mul eq 'pages') {
 	    my $ch = ($slv->children)[0];